Stopping script while running

[Toffen]

How can i make a button to stop a scrit while its running? etc just press esc

[monoceres]

Here's a quick example:

Global $sleepactive=False
Opt("GUIOnEventMode",1)
GUICreate("Test",200,100)
$button=GUICtrlCreateButton("Pause script",10,10,180,80)
GUICtrlSetOnEvent(-1,"buttonpressed")
GUISetOnEvent(-3,"close")
GUISetState()
While 1
    sleep(100)
    while $sleepactive
        sleep(10)
    WEnd
    
WEnd
Func close ()
    Exit
EndFunc
Func buttonpressed()
    If $sleepactive=False Then
        $sleepactive=True
        GUICtrlSetData($button,"Unpause script")
    Else
        $sleepactive=False
        GUICtrlSetData($button,"Pause script")
    EndIf
EndFunc

[duckling78]

If you wanted Esc to quit the script then you can do something like this:

HotKeySet("{Esc}", "ExitScript")

While 1
    Sleep(100)
WEnd

Func ExitScript()
    Exit
EndFunc

[danielkza]

  duckling78 said:

If you wanted Esc to quit the script then you can do something like this:

HotKeySet("{Esc}", "ExitScript")

While 1
    Sleep(100)
WEnd

Func ExitScript()
    Exit
EndFuncoÝ÷ Ûú®¢×·lÞj覸µëhºÇºÚ"µÍÜ
    ][ÝÑÕRPÛÜÙSÛØÉ][ÝËJ

[PsaltyDS]

  danielkza said:

t's more apropriate to use

Opt("GUICloseOnEsc",1)

Did you try that? With that option set, ESC only sends a $GUI_EVENT_CLOSE message. If you don't happen to have a GUI open, what will that do?

That's right... nothing.

[Toffen]

Tyall