Loop a key with a toggled pause

[Qbeezy]

I am looking for a script that can loop pressing "q" on the keyboard and is activated/deactivated by the pause key.

Thanks for your help.

I found a perfect example on google before but now I can't find anything.

[AutoBert]

Have a look in the helpfile: The example of HotKeySet is just what you want.

[Qbeezy]

This just opens up a message box. :/

; 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   ;==>TogglePause
Func Terminate()
    Exit 0
EndFunc   ;==>Terminate
Func ShowMessage()
    MsgBox(4096, "", "This is a message.")
EndFunc   ;==>ShowMessage

Edited February 6, 2012 by Qbeezy