Sign in to follow this  
Followers 0
Tasmania

Pause function

6 posts in this topic

I am looking to pause a script if ^!+p is pressed... this is the script:

HotKeySet("^!+b", "quit")
HotKeySet("^!+p", "pause")

AutoItSetOption("TrayAutoPause", 0)

Func quit()
 MsgBox(64, "Exit", "The question eliminator has exited.")
 Exit
EndFunc

Func pause()
 $Paused = NOT $Paused
 
    While $Paused
        sleep(100)
        TraySetState(4)
    WEnd
 
    TraySetState(8)
EndFunc

MsgBox(64, "Running", "The question eliminator is running. At any time press CTRL-ALT-SHIFT-B to exit." & @CRLF & "You may also press CTRL-ALT-SHIFT-P to pause/unpause the elimitator.")

While 1 
 If WinExists("Question", "OK") Then
  ControlClick("Question", "OK", 1)
 EndIf

 Sleep(500)
WEnd

This is an almost EXACT copy from the help file, as far as pause is concerned, so I'm confused as to why it's not working. Anyone know?

Share this post


Link to post
Share on other sites



Which keys are you pressing ? Ctrl and Alt and Shift and p ?

Yeah :)

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

It works for me. The icon in the task bar start blinking when paused.

EDIT:

I noticed that it won't unpause, that's because you din't declare $Pause

Add this;

Global $Paused
Edited by aslani

[font="Georgia"]Chances are, I'm wrong.[/font]HotKey trouble?Stringregexp GuideAutoIT Current Version

Share this post


Link to post
Share on other sites

Ah ha! Thanks :) Sorry... I must have overlooked it...

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0