[R] Pause et reprise d'un script

[cortx]

Bonjour à vous tous.

Je suis en train de travailler sur un script permettant toute les x secondes d'écrire des informations dans un fichier journal.
Voilà j'aurai besoin d'un petit coup de pouce sur un problème de boucle que je n'arrive pas à comprendre.

Code : Tout sélectionner

HotKeySet("{F11}", "debut")
HotKeySet("{F12}", "fin")

While 1
 $i=0
 While $i = 1
  $rand = Random ( 1000 , 2000 , 1 )
  sleep ( $rand )
  send ( "blablabla" )
  sleep ( 1000 )
  send ( "{ENTER}" )
  sleep ( 1300 )
  send ( "{Space}" )
 WEnd
WEnd

Func fin()
   $i=0
EndFunc

Func debut()
    $i=1
EndFunc
 

Mon problème vient du fait que lorsque j'appuie sur F11 la boucle d'écriture se lance, mais impossible de l'arrêter en appuyant sur F12 et j'arrive pas a comprendre pourquoi.
Le seul truc que je vois c'est qu'une fois la boucle lancé il ne vérifie plus ou n'accepte plus le changement de la variable.

Une petite idée pour me dépanner ?
En vous remerciant par avance.

[Tlem]

Je dirais qu'il y a sans doute plusieurs problèmes dans votre cas.
1 - La touche F12 est elle disponible (Chez moi elle ne l'est pas)
2 - Je dirais qu'il y a une boucle en trop et pas de pause (Ressources utilisées a fond).
3 - Il est bien de mettre one option de sortie du code au cas ou.

Cela nous donne :

Code : Tout sélectionner

HotKeySet("{F9}", "debut")
HotKeySet("{F10}", "fin")
HotKeySet("{ESC}", "Sortie")

$i=0
 
While 1
    If $i = 1 Then
        $rand = Random ( 1000 , 2000 , 1 )
        Sleep ( $rand )
        send ( "blablabla" )
        sleep ( 1000 )
        send ( "{ENTER}" )
        sleep ( 1300 )
        send ( "{Space}" )
    EndIf
    Sleep (30)
WEnd

Func fin()
   $i=0
EndFunc

Func debut()
    $i=1
EndFunc

Func Sortie()
    Exit
EndFunc

[cortx]

Merci bien.
Tout marche, et apparemment il met en pause une fois sorti de la boucle d'écriture.
C'est peut être pour ça que moi je pouvais pas le mettre en pause car il ne sortait jamais.

Merci pour le temps passé.