Stopping a While 1 loop?

[jgq85]

I've got together a test script from a GUI and doe fine what I want it to, but I'm having trouble figuring out how to stop the loop from running when I think it's a good time to stop it.

Once this is running I have no way to stop it but to close AutoIt down completely

Any command or button or hotkey I can use to stop it from running?

Func _AssetURLStrLoop()

While 1
Sleep(300)
WinActivate("Microsoft Word", "")
Sleep(300)
Send("^c")
Sleep(300)
Send("^k")
;~ Send("{TAB}{TAB}{TAB}{TAB}")
Sleep(300)
Send("www.google.com" & "^v")
Sleep(300)
Send("{Enter}")
Send("{RIGHT}")
Send("{DOWN}")
Send("+{HOME}")
WEnd

[size=4]EndFunc[/size]

[Nessie]

You can set an hotkey:

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

_AssetURLStrLoop()

Func _AssetURLStrLoop()
    While 1
        Sleep(300)
        WinActivate("Microsoft Word", "")
        Sleep(300)
        Send("^c")
        Sleep(300)
        Send("^k")
;~ Send("{TAB}{TAB}{TAB}{TAB}")
        Sleep(300)
        Send("www.google.com" & "^v")
        Sleep(300)
        Send("{Enter}")
        Send("{RIGHT}")
        Send("{DOWN}")
        Send("+{HOME}")
    WEnd
EndFunc   ;==>_AssetURLStrLoop

Func Terminate()
    Exit
EndFunc

When you think that everything is fine just press the esc key

Hi!

[DicatoroftheUSA]

Or you can click the tray item and choose exit.

If you do not wish it to exit entirely, have the hotkey function toggle a global variable that through an if then statement will trigger the exitloop function.

[jgq85]

Cool thanks guys

[Jos]

Cool thanks guys

Why did you report your own comment?

Guess you wanted to reply...

Edited March 8, 2013 by Jos

[jgq85]

It appears that the ESC key will only work to terminate the script of my GUI script is idle.

However, if I click the button that triggers the While loop, ESC won't work. Script will just run endlessley, and no hotkeys will work. I have to go into the script editor and break the script from there.

GUI:

[size=4]$Form1_1 = GUICreate("Incident Manager", 328, 203, 281, 625, -1, BitOR($WS_EX_TOPMOST,$WS_EX_WINDOWEDGE))[/size]
GUISetBkColor(0x00FFFF)
$AssetURLStr = GUICtrlCreateButton("AssetURLStr", 104, 87, 89, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

GUI Button case:

[size=4]While 1[/size]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $AssetURLStrLoop
_AssetURLStrLoop()
EndSwitch
WEnd

Button's script:

[size=4]Func _AssetURLStrLoop()
While 1
Sleep(300)
WinActivate("Microsoft Word", "")
Sleep(300)
Send("^c")
Sleep(300)
Send("^k")
Sleep(300)
Send("www.google.com" & "^v")
Sleep(300)
Send("{Enter}")
Send("{RIGHT}")
Send("{DOWN}")
Send("+{HOME}")
WEnd
EndFunc

Edit: Why do these forums keep adding tags to my text?

Edited March 8, 2013 by jgq85

[Nessie]

Try this:

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
HotKeySet("{ESC}", "Terminate")

Global $paused = False


$Form1_1 = GUICreate("Incident Manager", 328, 203, 281, 625, -1, BitOR($WS_EX_TOPMOST, $WS_EX_WINDOWEDGE))
GUISetBkColor(0x00FFFF)
$AssetURLStr = GUICtrlCreateButton("AssetURLStr", 104, 87, 89, 17)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ##

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $AssetURLStr
            _AssetURLStrLoop()
    EndSwitch
WEnd

Func _AssetURLStrLoop()
    While $paused = False
        WinActivate("Microsoft Word", "")
        Sleep(300)
        Send("^c")
        Sleep(300)
        Send("^k")
        Sleep(300)
        Send("www.google.com" & "^v")
        Sleep(300)
        Send("{Enter}")
        Send("{RIGHT}")
        Send("{DOWN}")
        Send("+{HOME}")
    WEnd
    ;Exit ;Uncomment this if you wanna exit
EndFunc   ;==>_AssetURLStrLoop

Func Terminate()
    $paused = True
EndFunc   ;==>Terminate

Edited March 8, 2013 by Nessie