Pause script till key is pushed?

[noobieautolearn]

I saw another topic on this but it got kind of convoluted. Is there no easy way to tell a script to pause until a key is pressed? Is there no function like winwaitactive only waitforkey or anything like that?

[Jos]

Thought the helpfile example was pretty easy for HotKeySet() .... no?

Jos

[noobieautolearn]

Thought the helpfile example was pretty easy for HotKeySet() .... no?

Jos

I'll look at it again. to be specific I would want it to run the script and just enter a line to tell it to pause until the key is pressed not set a hotkey to pause the script.

[Jos]

I'll look at it again. to be specific I would want it to run the script and just enter a line to tell it to pause until the key is pressed not set a hotkey to pause the script.

Either way works ...

Read the helptopic, have a play with it and in case of issues:show some code you are having problems with.

Jos

[noobieautolearn]

I looked at the set hotkey help and example. I am trying to understand the principle behind it. First thing that confuses me is Global $paused. I understand that it is setting a variable called $paused but does the variable include all those hotkeys listed below it?

Second thing, I think I understand HotKeySet("{PAUSE}", "TogglePause") as you could set "{PAUSE}" to any key you wanted it to be and "TogglePause" is just the name of the function that you specified which again you could name anything you wanted. Func TogglePause() is just defining the function that you referenced above but then the $Paused= NOT $Paused is a bit confusing. Also confusing to me what command are you actually using that the script regognizes to pause and could you just use that command in a line in the script to pause it at a location until the hotkey to unpause it is used? Like could I just have one of the lines be NOT $Paused and it would pause the script there until I pushed the specified key?

; 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

[water]

$Paused holds the state of the script: True means script is paused, False means script is not paused.

$Paused = NOT $Paused

just switches from False to True to False.

[noobieautolearn]

Ok, I still don't understand it fully but for anyone that wants to do this there is a fairly easy way. I did not know this until now but one of the lines in your script can be TogglePause(). That is the basically activating the function of pausing without pushing the hotkey. It's probably obvious to a lot of people but it wasn't to me.

Another thing, whenever I used the code in the example and I pause the script and then unpause it the script icon for this script in the bottom right hand corner will not go away on it's own even after the script is finished. Anyone else have this issue? I have to right click it and exit or push esc after it's done.

[water]

Does the task manager still show your script before you right click the icon and exit the script?

[noobieautolearn]

Does the task manager still show your script before you right click the icon and exit the script?

Yes it is still running.

[water]

Can then please post the code you run?

[noobieautolearn]

Here is code to a simple script where I get the same problem.

Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
MouseClick("left", 27, 38, 1)
TogglePause()
MouseClick("left", 27, 40, 1)
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 ;==>Terminate

[careca]

That is working fine here... i just modified it a bit because of organization.

Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")

While 1
ToolTip('Script is Running',0,0)
MouseClick("left", 400, 400, 1)
Sleep(500)
WEnd

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

Func Terminate()
Exit 0
EndFunc ;==>Terminate

[noobieautolearn]

That is working fine here... i just modified it a bit because of organization.

Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")

While 1
ToolTip('Script is Running',0,0)
MouseClick("left", 400, 400, 1)
Sleep(500)
WEnd

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

Func Terminate()
Exit 0
EndFunc ;==>Terminate

One thing I noticed was that you removed the line TogglePause() in between the 2 mouse clicks. The issue I have with this code is that IF you pause it and then resume when it is done it will not go away when the rest of the script has run but if you don't pause it, it will go away just fine. In my experience with this code it doesn't matter if you actually use the pause button during the script or if you make a line in the script TogglePause().

Edited March 26, 2013 by noobieautolearn

[Exit]

The OP wants a script that continues after ANY key is pressed.

Here my solution.

;   Wait for key
;
#include <WinAPI.au3>

Beep(500, 300)
_Wait_for_Key()
Beep(800, 300)

Func _Wait_for_Key()
    Global $_Wait_for_Key = 1
    Local $hProc = DllCallbackRegister("_Wait_for_Key_Proc", "long", "int;wparam;lparam")
    Local $hGM = _WinAPI_GetModuleHandle(0)
    Local $handleK = _WinAPI_SetWindowsHookEx($WH_KEYBOARD_LL, DllCallbackGetPtr($hProc), $hGM)
    While $_Wait_for_Key
        Sleep(100)
    WEnd
    _WinAPI_UnhookWindowsHookEx($handleK)
    DllCallbackFree($hProc)
    Return
EndFunc   ;==>_Wait_for_Key

Func _Wait_for_Key_Proc($nCode, $wParam, $lParam)
    $_Wait_for_Key = 0
    Return
EndFunc   ;==>_Wait_for_Key_Proc

After the first beep, the script pauses until ANY key is pressed and then beeps again and exits.

BTW: You can extend the script to honor also mouse moves.

Edited March 26, 2013 by Exit

[careca]

The OP wants a script that continues after ANY key is pressed.

Where have you read that? because i missed it.

@noobieautolearn:

Sorry, didn't understand the problem, it pauses when you press pause, will resume when you press pause again, and will exit when you press escape.

What did you want then?

[noobieautolearn]

Where have you read that? because i missed it.

@noobieautolearn:

Sorry, didn't understand the problem, it pauses when you press pause, will resume when you press pause again, and will exit when you press escape.

What did you want then?

I want it to pause if I push pause, I want it to resume if I push pause. I want it to exit the script if I push esc but I also want it to exit once the script is done running.

The last part does not seem to happen if you pause it during the script and then unpause it. It will do the rest of the actions in the script but will only exit once you push esc even though there is no more lines of code to run.

Did you try the simplified script I posted? If you notice once the pause command was issued and then the script is unpaused even though there is nothing more for it to do it will not exit on it's own.

Edited March 26, 2013 by noobieautolearn

[BrewManNH]

That's because it's inside the While loop, you have no exit from it.

[noobieautolearn]

That's because it's inside the While loop, you have no exit from it.

Hit me like a ton of bricks. All I have to do is put Terminate() at the end of the script, now it exits when it's done.

Thanks

[careca]

;Script
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc
Terminate()

Func Terminate()
Exit 0
EndFunc ;==>Terminate

Is the same as:

;Script
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc

Exit

Do you mean that it works like you want, like this?

Edited March 27, 2013 by careca

[noobieautolearn]

;Script
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc
Terminate()

Func Terminate()
Exit 0
EndFunc ;==>Terminate

Is the same as:

;Script
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc

Exit

Do you mean that it works like you want, like this?

Hmm It now works the way I want it now, all I did was add Terminate() after the last command and now the script will exit after it has done the last thing.

So for instance, this is the simplified script that works the way I want it. The reason it was not clicking is before I was just used to the script exiting by it's self after the last command but when you add the pause and terminate code it seems you have to tell it to terminate or it stays open.

Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
MouseClick("left", 27, 38, 1)
TogglePause()
MouseClick("left", 27, 40, 1)
Terminate()
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 ;==>Terminate

Edited March 28, 2013 by noobieautolearn