Jump to content

All The Code Problems..


Misha
 Share

Recommended Posts

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
Link to comment
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]

Link to comment
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

Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...