[R] Pause de script avec hotkey marche pas

[lian]

Bonjour, j'ai utilisé l'exemple donné dans l'aide pour faire un petit script qui permet d'utiliser des hotkey pour simuler des clics de souris. Ça marche très bien... sauf la fonction pause qui est pourtant copié/collé de l'aide. J'ai bien le pop up de message d'information qui s'affiche mais le script continue à fonctionner. Mon code.

Code : Tout sélectionner

#Include <Misc.au3>
#include <MsgBoxConstants.au3>

$dll = DllOpen("user32.dll")

Global $fPaused = False

HotKeySet("{INS}", "TogglePause")
HotKeySet("{LEFT}", "MouseleftClick")
HotKeySet("{RIGHT}", "MouserightClick")
HotKeySet("{UP}", "MousemiddleClick")
HotKeySet("{DOWN}", "MousemiddleClick")
HotKeySet("+!d", "Terminate"); Shift-Alt-d

While 1
    Sleep(100)
WEnd

Func MouseleftClick()
    MouseClick("")
EndFunc

Func MouserightClick()
    MouseClick("right")
EndFunc

Func MousemiddleClick()
    MouseClick("middle")
EndFunc

Func TogglePause()
    $fPaused = Not $fPaused
    While $fPaused
        Sleep(100)
        ToolTip('Script is "Paused"', 0, 0)
    WEnd
    ToolTip("")
EndFunc   ;==>TogglePause

Func Terminate()
    Exit
EndFunc   ;==>Terminate

[lian]

Bon, après quelques recherches, je crois que j'ai compris que ça ne marche pas parce que dans l'exemple les fonctions sont indépendantes et qu'il faut que j'imbrique les choses. Plus qu'à comprendre comment.

[lian]

Bon, ça y est, j'ai compris comment ça marchait:

Il faut tester si c'est en pause dans chacune des fonctions gérant les hotkeys - évidemment...
Ce qui donne par exemple:

Code : Tout sélectionner

Func MouseleftClick()
    If $fPaused = False Then
    MouseClick("")
    EndIf
EndFunc