Exit a while loop with a hotkey

[BlackPhoenix]

I just started with autoit so I ain't that good yet. Now I got a little problem here, I can't find it on the forum or in the tutorials/FAQ's so thats why I ask it here.

Func button1()
While 1
    StealMedium ()
    StealAuto ()
    DrivingLicense ()
    Shootingrange ()
    WEnd
EndFunc

I want to exit this loop with a hotkey (Esc)

Then I need to make it so that it is possible to exit the loop after each different function

For Example: The while loop is running, it is at DriversLicense(), then the user presses (Esc) and it exits the loop.

Tnx in advance

Edited December 20, 2008 by BlackPhoenix

[Andreik]

I just started with autoit so I ain't that good yet. Now I got a little problem here, I can't find it on the forum or in the tutorials/FAQ's so thats why I ask it here.

Func button1()
While 1
    StealMedium ()
    StealAuto ()
    DrivingLicense ()
    Shootingrange ()
    WEnd
EndFunc

I want to exit this loop with a hotkey (Esc)

Then I need to make it so that it is possible to exit the loop after each different function

For Example: The while loop is running, it is at DriversLicense(), then the user presses (Esc) and it exits the loop.

Tnx in advance

HotKeySet("{ESC}","Quit")
Func button1()
While 1
    StealMedium ()
    StealAuto ()
    DrivingLicense ()
    Shootingrange ()
WEnd
EndFunc

Func Quit()
    Exit
EndFunc

[BlackPhoenix]

HotKeySet("{ESC}","Quit")
Func button1()
While 1
    StealMedium ()
    StealAuto ()
    DrivingLicense ()
    Shootingrange ()
WEnd
EndFunc

Func Quit()
    Exit
EndFunc

Ok this works, I will experiment a bit to make it stop directly after I press (ESC). Now it stops, but it does after it went trough all 4 functions.

[MrCreatoR]

Hi and wellcome to the forum!

For Example: The while loop is running, it is at DriversLicense(), then the user presses (Esc) and it exits the loop

Try this:

Global $iLoop = True

HotKeySet("{ESC}", "_ExitLoop")

Func Button1()
    $iLoop = True
    
    While $iLoop
        StealMedium()
        If Not $iLoop Then ExitLoop
        
        StealAuto()
        If Not $iLoop Then ExitLoop
        
        DrivingLicense()
        If Not $iLoop Then ExitLoop
        
        Shootingrange()
        If Not $iLoop Then ExitLoop
    WEnd
    
    $iLoop = False
EndFunc

Func _ExitLoop()
    $iLoop = False
EndFunc

[BlackPhoenix]

Hi and wellcome to the forum!

Try this:

Global $iLoop = True

HotKeySet("{ESC}", "_ExitLoop")

Func Button1()
    $iLoop = True
    
    While $iLoop
        StealMedium()
        If Not $iLoop Then ExitLoop
        
        StealAuto()
        If Not $iLoop Then ExitLoop
        
        DrivingLicense()
        If Not $iLoop Then ExitLoop
        
        Shootingrange()
        If Not $iLoop Then ExitLoop
    WEnd
    
    $iLoop = False
EndFunc

Func _ExitLoop()
    $iLoop = False
EndFunc

Thanks for the fast reply.

Well I tried this, but when i press ESC nothing happens at all. It doesn't quit the loop

-EDIT- Fixed, I was holding ESC not long enough

Edited December 20, 2008 by BlackPhoenix