Sign in to follow this  
Followers 0
Misha

All The Code Problems..

5 posts in this topic

I am haveing dip problems :\ I cant make it exit....and the Right/Picker/Left/Shield functions dont work .

Ill just post all the code of my soft.

#include <GuiConstants.au3>
TrayTip( "MishScript", "Hello, " & @UserName & @CRLF & "Welcome to The MishScript" & @CRLF & @CRLF & "Please note to stop all press 0" & @CRLF & "Enjoy.", 8, 16)
Dim $Slide
Dim $I, $AutoPicker 
Dim $RightClicker
Dim $LeftClicker
Dim $ShieldClicker

Opt ("SendKeyDelay", 1     )
Opt ("WinTitleMatchMode", 1  )
Opt ("SendKeyDownDelay", 50  )
Opt ("MouseClickDownDelay", 1)
Opt ("GUIOnEventMode", 1)

HotKeySet( "{NUMPAD0}", "Stop")

GuiSetOnEvent ( $GUI_EVENT_CLOSE , "ExitMish")

;-------------------------MAIN GUI----------------------------
;AutoPicker Tab Gui
    GuiCreate( "AutoPicker" ,350,200)
        $TabCreate=GUICtrlCreateTab ( 10 , 10 ,340 ,190 ,0x0008)
            $AutoPickTabCreate=GuiCtrlCreateTabItem ( "AutoPicker" )
                $SliderCreate4=GUICtrlCreateSlider( 15 , 40 , 40 , 100,2)
                    GUICtrlCreateLabel( "Slide it" , 60 , 40 , 75, 25)
                        $AutoPickerButton = GUICtrlCreateButton("Start Picking", 60, 117,75,23)
    GUISetState()
        GUICtrlSetLimit( $SliderCreate4,1000,1)
            GUICtrlSetData($SliderCreate4,1)
    $Slide=GuiCtrlRead($SliderCreate4)
        GuiCtrlSetOnEvent( $SliderCreate4 , "AutoSlider")
            $Label = GUICtrlCreateLabel ( $Slide , 60, 60 , 75 , 25)
                GuiCtrlSetOnEvent( $AutoPickerButton, "AutoPicker")

;RightClicker Tab Gui
GuiCtrlCreateTabItem( "RightClicker" )
    $SliderCreate1=GUICtrlCreateSlider( 15 , 40 , 40 , 100,2)
        GUICtrlSetLimit(-1,1000, 25)
        GUICtrlSetData($SliderCreate1,25)
            GUICtrlCreateLabel( "Slide it" ,  60 , 40 , 75, 25)
                $CheckBoxCreate = GuiCtrlCreateCheckBox( "AutoPicker",60,94)
                    $RightClickerButton = GuiCtrlCreateButton("Start Clicking",60,117,75,23)
GuiSetState()
        $Slide1 = GuiCtrlRead($SliderCreate1)
        $Label1 = GUICtrlCreateLabel ( $Slide1 , 60, 60 , 75 , 25)
        GuiCtrlSetOnEvent ( $Slidercreate1 , "AutoSlider1")
            $CheckBoxRead = GuiCtrlRead($CheckBoxCreate)
                GuiCtrlSetOnEvent( $RightClickerButton , "RightClicker")

;LeftClicker Tab Gui
GuiCtrlCreateTabItem( "LeftClicker" )
    $SliderCreate2=GUICtrlCreateSlider( 15 , 40 , 40 , 100,2)
        GUICtrlSetLimit(-1,1000, 25)
        GUICtrlSetData($SliderCreate1,25)
            GUICtrlCreateLabel( "Slide it" ,  60 , 40 , 75, 25)
                $CheckBoxCreate1 = GuiCtrlCreateCheckBox( "AutoPicker",60,94)
                    $LeftClickerButton = GuiCtrlCreateButton("Start Clicking",60,117,75,23)
GuiSetState()
        $Slide2 = GuiCtrlRead($SliderCreate2)
        $Label2 = GUICtrlCreateLabel ( $Slide2 , 60, 60 , 75 , 25)
        GuiCtrlSetOnEvent ( $Slidercreate2 , "AutoSlider2")
            $CheckBoxRead1 = GuiCtrlRead($CheckBoxCreate1)
                GuiCtrlSetOnEvent ($LeftClickerButton, "LeftClicker")
    
;ShieldClicker Tab Gui
GuiCtrlCreateTabItem( "ShieldClicker" )
    $SliderCreate3=GUICtrlCreateSlider( 15 , 40 , 40 , 100,2)
        GUICtrlSetLimit(-1,1000, 25)
            GUICtrlCreateLabel( "Slide it" ,  60 , 40 , 75, 25)
                $CheckBoxCreate2 = GuiCtrlCreateCheckBox( "AutoPicker",60,94)
                    $EditShieldClickerCreate = GuiCtrlCreateInput("After How many skills", 160,65,80,20)
                        $EditShieldClickerButton = GUICtrlCreateInput("Shield Skill Button", 160,90,80,20)
                            $EditShieldClickerFirstButton = GUICtrlCreateInput("Attack Skill Button", 160,115,80,20)
                                $ShieldClickerButton = GuiCtrlCreateButton("Start Clicking",60,117,75,23)
    GuiSetState()
        $EditShieldClickerReadEvery = GuiCtrlRead( $EditShieldClickerCreate )
            $EditShieldClickerReadButton = GuiCtrlRead ( $EditShieldClickerButton )
                $EditShieldClickerReadFirstButton = GuiCtrlRead ( $EditShieldClickerFirstButton )
        $Slide3 = GuiCtrlRead($SliderCreate3)
            $Label3 = GUICtrlCreateLabel ( $Slide3 , 60, 60 , 75 , 25)
        GuiCtrlSetOnEvent ( $Slidercreate3 , "AutoSlider3")
            $CheckBoxRead1 = GuiCtrlRead($CheckBoxCreate2)
                GuiCtrlSetOnEvent ( $ShieldClickerButton, "ShieldClicker")
GuiCtrlCreateTabItem ("")
                                                                        
                                                                        
;------------------------Functions of User----------------------                                                                        

Func Stop ()
    If $AutoPicker = 1 Then
            TrayTip( "Stop", "AutoPicker Stopped.", 4, 4)
                $AutoPicker = 0
                    WinActivate ("Classname=Shell_TrayWnd")
    While (1=1)
        Sleep( 1000 )
    Wend
ElseIf $RightClicker = 1 Then
    TrayTip( "Stop", "RightClicker Stopped.", 4, 4)
        $RightClicker = 0 
            WinActivate ("Classname=Shell_TrayWnd")
    While (1=1)
        Sleep( 1000 )
    Wend
Else
    if $LeftClicker = 1 Then
        TrayTip( "Stop", "LeftClicker Stopped.", 4, 4)
            $LeftClicker = 0
                WinActivate ("Classname=Shell_TrayWnd")
    While (1=1)
        Sleep( 1000 )
    Wend
Else
    if $ShieldClicker = 1 Then
        TrayTip( "Stop", "ShieldClicker Stopped.", 4, 4)
            $ShieldClicker = 0 
                WinActivate ("Classname=Shell_TrayWnd")
    While (1=1)
        Sleep( 1000 )
    Wend
    Else 
    TrayTip( "Stop", "Functions Stopped.", 4, 4)
        WinActivate ("Classname=Shell_TrayWnd")
    While (1=1)
        Sleep( 1000 )
    Wend
EndIf
EndIf
EndIf
    EndFunc

Func ExitPicker ()
    GuiCtrlSetData( $AutoPickerButton, "Start Picking")
    GuiCtrlSetOnEvent( $AutoPickerButton, "AutoPicker")
EndFunc


Func ExitRight ()
    GuiCtrlSetData( $RightClickerButton , "Start Clicking")
    GuiCtrlSetOnEvent( $RightClickerButton, "RightClicker")
EndFunc


Func ExitLeft ()
    GuiCtrlSetData ( $LeftClickerButton , "Start Clicking")
    GuiCtrlSetOnEvent ( $LeftClickerButton , "LeftClicker")
EndFunc


Func ExitShield ()
    GuiCtrlSetData ( $ShieldClickerButton , "Start Clicking")
    GuiCtrlSetOnEvent ( $ShieldClickerButton , "ShieldClicker")
EndFunc


Func AutoSlider ()
    $SliderInfo1=GuiCtrlRead( $SliderCreate4)
    GuiCtrlSetData( $Label, $SliderInfo1)
EndFunc

Func AutoSlider1 ()
    $SliderInfo=GuiCtrlRead( $SliderCreate1)
    GuiCtrlSetData( $Label1, $SliderInfo)
EndFunc

Func AutoSlider2 ()
    $SliderInfo2=GuiCtrlRead( $SliderCreate2)
    GuiCtrlSetData( $Label2, $SliderInfo2)
EndFunc


Func AutoSlider3 ()
    $SliderInfo3=GuiCtrlRead( $SliderCreate3)
    GuiCtrlSetData( $Label3, $SliderInfo3)
EndFunc
;-----------------------Functions of the GUI-----------------------





Func AutoPicker ()
    GuiCtrlSetData( $AutoPickerButton, "Stop Picking")
    $PickerEvent=GuiCtrlSetOnEvent( $AutoPickerButton, "ExitPicker")
    $AutoPicker = 1
    While $PickerEvent <> 1
        sleep($Slide)
        WinActivate ("Classname=Shell_TrayWnd")
        Send(" ",1)
        WinActivate ("Classname=Shell_TrayWnd")
        Send("{BACKSPACE}")
    WEnd
EndFunc


Func RightClicker ()
    GuiCtrlSetData( $RightClickerButton , "Stop Clicking")
    $RightEvent=GuiCtrlSetOnEvent( $RightClickerButton, "ExitRight")
    if $CheckBoxRead = 1 Then
        $RightClicker = 1
While $RightEvent <> 1
    MouseClick( "Right")
    WinActivate ("Classname=Shell_TrayWnd")
    Sleep($Slide1)
    MouseUp( "Right")
    WinActivate ("Classname=Shell_TrayWnd")
    Sleep($Slide)
    Send( " ", 1)
WEnd
Else
    $RightClicker = 1
    While $RightEvent <> 1
    MouseClick ("Right")
    Sleep($Slide1)
    MouseUp("Right")
    Wend
Endif
EndFunc


Func LeftClicker ()
    GuiCtrlSetDatA( $LeftClickerButton , "Stop Clicking")
    $LeftEvent=GuiCtrlSetOnEvent( $LeftClickerButton, "ExitLeft")
    If $CheckBoxRead1 = 1 Then
$LeftClicker = 1
    While $LeftEvent <> 1
    MouseClick( "Left")
    WinActivate ("Classname=Shell_TrayWnd")
    Sleep($Slide2)
    MouseUp( "Left")
    WinActivate ("Classname=Shell_TrayWnd")
    Sleep($Slide)
    Send( " ", 1)
WEnd
Else
    $LeftClicker = 1
    While $LeftEvent <> 1
    MouseClick ("Left")
    Sleep($Slide1)
    MouseUp("Left")
    Wend
Endif
EndFunc


Func ShieldClicker ()
    GuiCtrlSetData( $ShieldClickerButton , "Stop Clicking")
    $ShieldEvent=GuiCtrlSetOnEvent( $ShieldClickerButton, "ExitShield")
    if $CheckBoxRead2 = 1 Then      
        $ShieldClicker = 1
        While $ShieldEvent <> 1
For $I = 1 to $EditShieldClickerReadEvery
    MouseClick ("Right")
        WinActivate ("Classname=Shell_TrayWnd")
        Sleep($Slider3)
            MouseUp ("Right")
            Sleep($Slide)
                Send (" ", 1)
Next
    MouseClick("right")
    Sleep($Slider3)
        WinActivate("Classname=Shell_TrayWnd")
            MouseUp("Right")
                WinActivate("Classname=Shell_TrayWnd")
                Sleep($Slider)
                    Send( " ", 1)
                        WinActivate("Classname=Shalle_TrayWnd")
                            Send( $EditShieldClickerReadButton, 1)
                                WinActivate("Classname=Shalle_TrayWnd")
                                    MouseClick("right")
                                        WinActivate("Classname=Shell_TrayWnd")
                                            MouseUp("Right")
                                                WinActivate("Classname=Shell_TrayWnd")
                                                    Send( $EditShieldClickerFirstButton, 1)
    WEnd
Else
    $ShieldClicker = 1
    While 1
For $I = 1 to $EditShieldClickerReadEvery
MouseClick ("Right")
        WinActivate ("Classname=Shell_TrayWnd")
        Sleep($Slider3)
            MouseUp ("Right")
            Next
                            MouseClick("right")
    Sleep($Slider3)
        WinActivate("Classname=Shell_TrayWnd")
            MouseUp("Right")
                WinActivate("Classname=Shell_TrayWnd")Send( $EditShieldClickerReadButton, 1)
                                WinActivate("Classname=Shalle_TrayWnd")
                                    MouseClick("right")
                                        WinActivate("Classname=Shell_TrayWnd")
                                            MouseUp("Right")
                                                WinActivate("Classname=Shell_TrayWnd")
                                                    Send( $EditShieldClickerFirstButton, 1)
                                                WEnd
                                                    EndIf
                                                        EndFunc
                                        
                            
;---------------------Main While ----------------
Func ExitMish ()
    Exit
    EndFunc
While 1
    Sleep (1)
Wend

Share this post


Link to post
Share on other sites



Do you really need this:

Opt("GUIOnEventMode",1)

?

Try to write your Script with Select...Case...EndSelect if you need.

And then at the End

While 1
$msg = GuiGetMsg()
If $msg =$GUI_EVENT_CLOSE Then Exitloop
WEnd

--------------------------------------------------------------------------------------------------------------------------------Scripts : _Encrypt UDF_UniquePCCode UDF MS like calculatorInstall programm *UPDATED* --------------------------------------------------------------------------------------------------------------------------------[quote name='Helge' post='213117' date='Jul 26 2006, 10:22 AM']Have you ever tried surfing the internet with a milk-carton ?This is similar to what you're trying to do.[/quote]

Share this post


Link to post
Share on other sites

I would like wif OnEvent.

Share this post


Link to post
Share on other sites

this is better... not perfect

#include <GuiConstants.au3>
TrayTip( "MishScript", "Hello, " & @UserName & @CRLF & "Welcome to The MishScript" & @CRLF & @CRLF & "Please note to stop all press 0" & @CRLF & "Enjoy.", 8, 16)
Dim $Slide
Dim $I, $AutoPicker
Dim $RightClicker
Dim $LeftClicker
Dim $ShieldClicker
Dim $Slide, $slider3, $Slider, $CheckBoxRead2
Opt ("SendKeyDelay", 1     )
Opt ("WinTitleMatchMode", 1  )
Opt ("SendKeyDownDelay", 50  )
Opt ("MouseClickDownDelay", 1)
Opt ("GUIOnEventMode", 1)

HotKeySet( "{NUMPAD0}", "Stop")



;-------------------------MAIN GUI----------------------------
;AutoPicker Tab Gui
    GuiCreate( "AutoPicker" ,350,200)
        $TabCreate=GUICtrlCreateTab ( 10 , 10 ,340 ,190 ,0x0008)
            $AutoPickTabCreate=GuiCtrlCreateTabItem ( "AutoPicker" )
                $SliderCreate4=GUICtrlCreateSlider( 15 , 40 , 40 , 100,2)
                    GUICtrlCreateLabel( "Slide it" , 60 , 40 , 75, 25)
                        $AutoPickerButton = GUICtrlCreateButton("Start Picking", 60, 117,75,23)
    
        GUICtrlSetLimit( $SliderCreate4,1000,1)
            GUICtrlSetData($SliderCreate4,1)
    $Slide=GuiCtrlRead($SliderCreate4)
        GuiCtrlSetOnEvent( $SliderCreate4 , "AutoSlider")
            $Label = GUICtrlCreateLabel ( $Slide , 60, 60 , 75 , 25)
                GuiCtrlSetOnEvent( $AutoPickerButton, "AutoPicker")

;RightClicker Tab Gui
GuiCtrlCreateTabItem( "RightClicker" )
    $SliderCreate1=GUICtrlCreateSlider( 15 , 40 , 40 , 100,2)
        GUICtrlSetLimit(-1,1000, 25)
        GUICtrlSetData($SliderCreate1,25)
            GUICtrlCreateLabel( "Slide it" ,  60 , 40 , 75, 25)
                $CheckBoxCreate = GuiCtrlCreateCheckBox( "AutoPicker",60,94)
                    $RightClickerButton = GuiCtrlCreateButton("Start Clicking",60,117,75,23)

        $Slide1 = GuiCtrlRead($SliderCreate1)
        $Label1 = GUICtrlCreateLabel ( $Slide1 , 60, 60 , 75 , 25)
        GuiCtrlSetOnEvent ( $Slidercreate1 , "AutoSlider1")
            $CheckBoxRead = GuiCtrlRead($CheckBoxCreate)
                GuiCtrlSetOnEvent( $RightClickerButton , "RightClicker")

;LeftClicker Tab Gui
GuiCtrlCreateTabItem( "LeftClicker" )
    $SliderCreate2=GUICtrlCreateSlider( 15 , 40 , 40 , 100,2)
        GUICtrlSetLimit(-1,1000, 25)
        GUICtrlSetData($SliderCreate1,25)
            GUICtrlCreateLabel( "Slide it" ,  60 , 40 , 75, 25)
                $CheckBoxCreate1 = GuiCtrlCreateCheckBox( "AutoPicker",60,94)
                    $LeftClickerButton = GuiCtrlCreateButton("Start Clicking",60,117,75,23)

        $Slide2 = GuiCtrlRead($SliderCreate2)
        $Label2 = GUICtrlCreateLabel ( $Slide2 , 60, 60 , 75 , 25)
        GuiCtrlSetOnEvent ( $Slidercreate2 , "AutoSlider2")
            $CheckBoxRead1 = GuiCtrlRead($CheckBoxCreate1)
                GuiCtrlSetOnEvent ($LeftClickerButton, "LeftClicker")
    
;ShieldClicker Tab Gui
GuiCtrlCreateTabItem( "ShieldClicker" )
    $SliderCreate3=GUICtrlCreateSlider( 15 , 40 , 40 , 100,2)
        GUICtrlSetLimit(-1,1000, 25)
            GUICtrlCreateLabel( "Slide it" ,  60 , 40 , 75, 25)
                $CheckBoxCreate2 = GuiCtrlCreateCheckBox( "AutoPicker",60,94)
                    $EditShieldClickerCreate = GuiCtrlCreateInput("After How many skills", 160,65,80,20)
                        $EditShieldClickerButton = GUICtrlCreateInput("Shield Skill Button", 160,90,80,20)
                            $EditShieldClickerFirstButton = GUICtrlCreateInput("Attack Skill Button", 160,115,80,20)
                                $ShieldClickerButton = GuiCtrlCreateButton("Start Clicking",60,117,75,23)
    
        $EditShieldClickerReadEvery = GuiCtrlRead( $EditShieldClickerCreate )
            $EditShieldClickerReadButton = GuiCtrlRead ( $EditShieldClickerButton )
                $EditShieldClickerReadFirstButton = GuiCtrlRead ( $EditShieldClickerFirstButton )
        $Slide3 = GuiCtrlRead($SliderCreate3)
            $Label3 = GUICtrlCreateLabel ( $Slide3 , 60, 60 , 75 , 25)
        GuiCtrlSetOnEvent ( $Slidercreate3 , "AutoSlider3")
            $CheckBoxRead1 = GuiCtrlRead($CheckBoxCreate2)
                GuiCtrlSetOnEvent ( $ShieldClickerButton, "ShieldClicker")
GuiCtrlCreateTabItem ("")
                                                                        
                                                                        
;------------------------Functions of User----------------------   

GUISetState()
GuiSetOnEvent ( $GUI_EVENT_CLOSE , "ExitMish")
While 1
    sleep(10)
WEnd

Func Stop ()
    If $AutoPicker = 1 Then
            TrayTip( "Stop", "AutoPicker Stopped.", 4, 4)
                $AutoPicker = 0
                    WinActivate ("Classname=Shell_TrayWnd")
    While (1=1)
        Sleep( 1000 )
    Wend
ElseIf $RightClicker = 1 Then
    TrayTip( "Stop", "RightClicker Stopped.", 4, 4)
        $RightClicker = 0
            WinActivate ("Classname=Shell_TrayWnd")
    While (1=1)
        Sleep( 1000 )
    Wend
Else
    if $LeftClicker = 1 Then
        TrayTip( "Stop", "LeftClicker Stopped.", 4, 4)
            $LeftClicker = 0
                WinActivate ("Classname=Shell_TrayWnd")
    While (1=1)
        Sleep( 1000 )
    Wend
Else
    if $ShieldClicker = 1 Then
        TrayTip( "Stop", "ShieldClicker Stopped.", 4, 4)
            $ShieldClicker = 0
                WinActivate ("Classname=Shell_TrayWnd")
    While (1=1)
        Sleep( 1000 )
    Wend
    Else
    TrayTip( "Stop", "Functions Stopped.", 4, 4)
        WinActivate ("Classname=Shell_TrayWnd")
    While (1=1)
        Sleep( 1000 )
    Wend
EndIf
EndIf
EndIf
    EndFunc

Func ExitPicker ()
    GuiCtrlSetData( $AutoPickerButton, "Start Picking")
    GuiCtrlSetOnEvent( $AutoPickerButton, "AutoPicker")
EndFunc


Func ExitRight ()
    GuiCtrlSetData( $RightClickerButton , "Start Clicking")
    GuiCtrlSetOnEvent( $RightClickerButton, "RightClicker")
EndFunc


Func ExitLeft ()
    GuiCtrlSetData ( $LeftClickerButton , "Start Clicking")
    GuiCtrlSetOnEvent ( $LeftClickerButton , "LeftClicker")
EndFunc


Func ExitShield ()
    GuiCtrlSetData ( $ShieldClickerButton , "Start Clicking")
    GuiCtrlSetOnEvent ( $ShieldClickerButton , "ShieldClicker")
EndFunc


Func AutoSlider ()
    $SliderInfo1=GuiCtrlRead( $SliderCreate4)
    GuiCtrlSetData( $Label, $SliderInfo1)
EndFunc

Func AutoSlider1 ()
    $SliderInfo=GuiCtrlRead( $SliderCreate1)
    GuiCtrlSetData( $Label1, $SliderInfo)
EndFunc

Func AutoSlider2 ()
    $SliderInfo2=GuiCtrlRead( $SliderCreate2)
    GuiCtrlSetData( $Label2, $SliderInfo2)
EndFunc


Func AutoSlider3 ()
    $SliderInfo3=GuiCtrlRead( $SliderCreate3)
    GuiCtrlSetData( $Label3, $SliderInfo3)
EndFunc
;-----------------------Functions of the GUI-----------------------





Func AutoPicker ()
    GuiCtrlSetData( $AutoPickerButton, "Stop Picking")
    $PickerEvent=GuiCtrlSetOnEvent( $AutoPickerButton, "ExitPicker")
    $AutoPicker = 1
    While $PickerEvent <> 1
        sleep($Slide)
        WinActivate ("Classname=Shell_TrayWnd")
        Send(" ",1)
        WinActivate ("Classname=Shell_TrayWnd")
        Send("{BACKSPACE}")
    WEnd
EndFunc


Func RightClicker ()
    GuiCtrlSetData( $RightClickerButton , "Stop Clicking")
    $RightEvent=GuiCtrlSetOnEvent( $RightClickerButton, "ExitRight")
    if $CheckBoxRead = 1 Then
        $RightClicker = 1
While $RightEvent <> 1
    MouseClick( "Right")
    WinActivate ("Classname=Shell_TrayWnd")
    Sleep($Slide1)
    MouseUp( "Right")
    WinActivate ("Classname=Shell_TrayWnd")
    Sleep($Slide)
    Send( " ", 1)
WEnd
Else
    $RightClicker = 1
    While $RightEvent <> 1
    MouseClick ("Right")
    Sleep($Slide1)
    MouseUp("Right")
    Wend
Endif
EndFunc


Func LeftClicker ()
    GuiCtrlSetDatA( $LeftClickerButton , "Stop Clicking")
    $LeftEvent=GuiCtrlSetOnEvent( $LeftClickerButton, "ExitLeft")
    If $CheckBoxRead1 = 1 Then
$LeftClicker = 1
    While $LeftEvent <> 1
    MouseClick( "Left")
    WinActivate ("Classname=Shell_TrayWnd")
    Sleep($Slide2)
    MouseUp( "Left")
    WinActivate ("Classname=Shell_TrayWnd")
    Sleep($Slide)
    Send( " ", 1)
WEnd
Else
    $LeftClicker = 1
    While $LeftEvent <> 1
    MouseClick ("Left")
    Sleep($Slide1)
    MouseUp("Left")
    Wend
Endif
EndFunc


Func ShieldClicker ()
    GuiCtrlSetData( $ShieldClickerButton , "Stop Clicking")
    $ShieldEvent=GuiCtrlSetOnEvent( $ShieldClickerButton, "ExitShield")
    if $CheckBoxRead2 = 1 Then      
        $ShieldClicker = 1
        While $ShieldEvent <> 1
For $I = 1 to $EditShieldClickerReadEvery
    MouseClick ("Right")
        WinActivate ("Classname=Shell_TrayWnd")
        Sleep($Slider3)
            MouseUp ("Right")
            Sleep($Slide)
                Send (" ", 1)
Next
    MouseClick("right")
    Sleep($Slider3)
        WinActivate("Classname=Shell_TrayWnd")
            MouseUp("Right")
                WinActivate("Classname=Shell_TrayWnd")
                Sleep($Slider)
                    Send( " ", 1)
                        WinActivate("Classname=Shalle_TrayWnd")
                            Send( $EditShieldClickerReadButton, 1)
                                WinActivate("Classname=Shalle_TrayWnd")
                                    MouseClick("right")
                                        WinActivate("Classname=Shell_TrayWnd")
                                            MouseUp("Right")
                                                WinActivate("Classname=Shell_TrayWnd")
                                                    Send( $EditShieldClickerFirstButton, 1)
    WEnd
Else
    $ShieldClicker = 1
    While 1
For $I = 1 to $EditShieldClickerReadEvery
MouseClick ("Right")
        WinActivate ("Classname=Shell_TrayWnd")
        Sleep($Slider3)
            MouseUp ("Right")
            Next
                            MouseClick("right")
    Sleep($Slider3)
        WinActivate("Classname=Shell_TrayWnd")
            MouseUp("Right")
                WinActivate("Classname=Shell_TrayWnd")
                Send( $EditShieldClickerReadButton, 1)
                                WinActivate("Classname=Shalle_TrayWnd")
                                    MouseClick("right")
                                        WinActivate("Classname=Shell_TrayWnd")
                                            MouseUp("Right")
                                                WinActivate("Classname=Shell_TrayWnd")
                                                    Send( $EditShieldClickerFirstButton, 1)
                                                WEnd
                                                    EndIf
                                                        EndFunc
                                        
                            
;---------------------Main While ----------------
Func ExitMish ()
    Exit
EndFunc

8)


NEWHeader1.png

Share this post


Link to post
Share on other sites

Thanks that worked but my whiles of functions autopicker/rightclicker/leftclicker/shieldclicker dont work can anyone else help on that?

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0