Pause And Resume The Script With A Function

[Guest mcdunkey]

is it possible to pause and resume the script with a function and if so how?

[Jos]

cut&paste from the helpfile... function HotKeySet():

Example

expandcollapse popup

; Press Esc to terminate script, Pause/Break to "pause"

Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("+!d", "ShowMessage") ;Shift-Alt-d

;;;; Body of program would go here;;;;
While 1
    Sleep(100)
WEnd
;;;;;;;;

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is "Paused"',0,0)
    WEnd
    ToolTip("")
EndFunc

Func Terminate()
    Exit 0
EndFunc

Func ShowMessage()
    MsgBox(4096,"","This is a message.")
EndFunc


Func Terminate()
    Exit 0
EndFunc

Func ShowMessage()
    MsgBox(4096,"","This is a message.")
EndFunc

[w_sp8er]

JdeB, u put duplicate of the following:

Func Terminate()
   Exit 0
EndFunc

Func ShowMessage()
   MsgBox(4096,"","This is a message.")
EndFunc

[scriptkitty]

I prefer:

hotkeyset("{pause}","pause")
pause(); if you want it to start paused.

$begin = TimerStart()
while 1
tooltip(TimerStop($begin),0,0)
wend


func Pause()
if Not IsDeclared("pause") then global $pause=1
$pause=Not $pause
while Not $pause
   sleep(10)
wend
endfunc

[Jos]

JdeB, u put duplicate of the following:

Func Terminate()
   Exit 0
EndFunc

Func ShowMessage()
   MsgBox(4096,"","This is a message.")
EndFunc

This is what's in the Help file and I didn't check it ....

So let's blame Cyberslug

Edited April 23, 2004 by JdeB