[AutoIt] Frage

07/04/2010 18:39 Turundeth#1
#deleted
07/04/2010 18:51 killeeer111#2
du musst noch ne while schleife einfügen:
PHP Code:
Global $Active = 0 

HotKeySet("{ö}", "_StartBot") 
HotKeySet("{ä}", "_PauseBot") 
HotKeySet("{ü}", "_EndeBot") 


While 1
Sleep(100)
WEnd

Func _StartBot() 
    $Active = 1 
EndFunc 

Func _PauseBot() 
    $Active = 0 
EndFunc 

Func _EndeBot() 
    Exit 
EndFunc 

If $Active = 1 Then 
     
    Send( "{1}" ) 
    Sleep (1000) 
    Send( "{1}" ) 
    Sleep (1000) 
    Send( "{2}" ) 
    Sleep (1000) 
    Send( "{3}" ) 
    Sleep (1000) 
    Send( "{4}" ) 
    Sleep (1000) 
    Send( "{5}" ) 
    Sleep (1000) 
    Send( "{7}" ) 
    Sleep (1000) 
     
    $coord = PixelSearch(  0,  0, 144, 574,  x1B53C8 ) 
    If Not @error Then 
            Send( "{1}" ) 
            Sleep (1000) 
            Send( "{1}" ) 
            Sleep (1000) 
            Send( "{2}" ) 
            Sleep (1000) 
            Send( "{3}" ) 
            Sleep (1000) 
            Send( "{4}" ) 
            Sleep (1000) 
            Send( "{5}" ) 
            Sleep (1000) 
            Send( "{7}" ) 
            Sleep (1000) 
        Else 
            Send( "8" ) 
            Sleep (1000) 
            Send( "9" ) 
            Sleep (1000) 
            Send( "0" ) 
            Sleep (1000) 
    EndIf 
EndIf 
der bot hat sich beendet weil keine if bedinung zutraf
07/04/2010 19:02 Turundeth#3
#deleted
07/04/2010 19:12 killeeer111#4
was die while schleife oder der "ganze" Bot?
07/04/2010 19:56 omer36#5
hast da was vergessen...: 0x1B53C8
und für das "unendlich laufen" muss du in dem bereich was du laufen lassen willst While 1 einfügen und am ende WEnd.
zb so:
PHP Code:
Global $Active = 0

HotKeySet("{ö}", "_StartBot")
HotKeySet("{ä}", "_PauseBot")
HotKeySet("{ü}", "_EndeBot")

Func _StartBot()
    $Active = 1
EndFunc

Func _PauseBot()
    $Active = 0
EndFunc

Func _EndeBot()
    Exit
EndFunc

While 1
If $Active = 1 Then
    Send( "{1}" )
    Sleep (1000)
    Send( "{1}" )
    Sleep (1000)
    Send( "{2}" )
    Sleep (1000)
    Send( "{3}" )
    Sleep (1000)
    Send( "{4}" )
    Sleep (1000)
    Send( "{5}" )
    Sleep (1000)
    Send( "{7}" )
    Sleep (1000)

    $coord = PixelSearch(  0,  0, 144, 574,  0x1B53C8 )
    If Not @error Then
            Send( "{1}" )
            Sleep (1000)
            Send( "{1}" )
            Sleep (1000)
            Send( "{2}" )
            Sleep (1000)
            Send( "{3}" )
            Sleep (1000)
            Send( "{4}" )
            Sleep (1000)
            Send( "{5}" )
            Sleep (1000)
            Send( "{7}" )
            Sleep (1000)
        Else
            Send( "8" )
            Sleep (1000)
            Send( "9" )
            Sleep (1000)
            Send( "0" )
            Sleep (1000)
    EndIf
EndIf
WEnd 
07/04/2010 22:14 Turundeth#6
#deleted