[R] Mod Break ne marche pas

[dididarkangel]

Bonjours à tous j'ai crée ma propre pause :

► Afficher le texte

Code : Tout sélectionner

HotKeySet("{F10}","PAUSE")

Func PAUSE()    
        SplashTextOn("", "Activation de la pause 10 Sec...", 250, 70, 280, 922, 0 + 1 + 16 + 32, "Times New Roman", 12, 800)
   Sleep(1000)
    SplashOff()
    SplashTextOn("", "Activation de la pause 9 Sec...", 250, 70, 280, 922, 0 + 1 + 16 + 32, "Times New Roman", 12, 800)
   Sleep(1000)
    SplashOff()
    SplashTextOn("", "Activation de la pause 8 Sec...", 250, 70, 280, 922, 0 + 1 + 16 + 32, "Times New Roman", 12, 800)
   Sleep(1000)
    SplashOff()
    SplashTextOn("", "Activation de la pause 7 Sec...", 250, 70, 280, 922, 0 + 1 + 16 + 32, "Times New Roman", 12, 800)
   Sleep(1000)
    SplashOff()
    SplashTextOn("", "Activation de la pause 6 Sec...", 250, 70, 280, 922, 0 + 1 + 16 + 32, "Times New Roman", 12, 800)
   Sleep(1000)
    SplashOff()
    SplashTextOn("", "Activation de la pause 5 Sec...", 250, 70, 280, 922, 0 + 1 + 16 + 32, "Times New Roman", 12, 800)
   Sleep(1000)
    SplashOff()
    SplashTextOn("", "Activation de la pause 4 Sec...", 250, 70, 280, 922, 0 + 1 + 16 + 32, "Times New Roman", 12, 800)
   Sleep(1000)
    SplashOff()
    SplashTextOn("", "Activation de la pause 3 Sec...", 250, 70, 280, 922, 0 + 1 + 16 + 32, "Times New Roman", 12, 800)
   Sleep(1000)
    SplashOff()
    SplashTextOn("", "Activation de la pause 2 Sec...", 250, 70, 280, 922, 0 + 1 + 16 + 32, "Times New Roman", 12, 800)
   Sleep(1000)
    SplashOff()
    SplashTextOn("", "Activation de la pause 1 Sec...", 250, 70, 280, 922, 0 + 1 + 16 + 32, "Times New Roman", 12, 800)
   Sleep(1000)
    SplashOff()
   SplashTextOn("", "Pause Fini ...", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Times New Roman", 12, 800)
   Sleep(500)
   SplashOff()
EndFunc

Cependant celle ci est limité à un nombres de secondes ici (10) j'ai donc essayer la fonction break :

► Afficher le texte

Code : Tout sélectionner

HotKeySet("{F10}","PAUSE")
HotKeySet("{F11}","UNPAUSE")

Func PAUSE()    
        Break (1)
EndFunc

Func UNPAUSE()  
        Break (0)
EndFunc

Mais celle ci ne marche pas quelque un poudrais t'il m'éclaircir

Merci d'avance

[ani]

bonjour
en regardeant l'aide, il est noté ceux-ci
Enables or disables the users' ability to exit a script from the tray icon menu.

pour votre fonction ceux-ci serait ,

► Afficher le texte

Code : Tout sélectionner

_PauseSplash("Test","Activation de la pause", "sec ...", 15, 250, 70, 280, 22, 49, "Times New Roman", 12, 800)

Func _PauseSplash($Titre, $TextDebut, $TextFin, $pause, $width, $height, $PosX, $PosY, $Option, $Fontname, $Fontz, $fontwt)
Dim $message = "", $i = 0
SplashTextOn($Titre, $message,  $width, $height, $PosX, $PosY,$Option, $Fontname, $Fontz, $fontwt)

For $i = $pause To 0 Step - 1
    If $i = 0 Then
        $message = "Pause Fini ..." 
    Else
        $message = $TextDebut & " " & $i & " " & $TextFin & @LF
    EndIf
    ControlSetText($Titre, "", "Static1", $message)
    Sleep(1000)
Next
Exit
EndFunc

Il doit exister quelque exemple sur le forum concernant la mise en pause d'un script.

Exemple tiré de l'aide:

► Afficher le texte

Code : Tout sélectionner

; Appuyer sur Esc pour terminer le script, Pause/Break pour mettre en "pause"

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

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

bonne continuation.