[R] Redémarrer un script à son début sur condition

[pierrotm777]

Bonjour,
J'ai un script qui fonctionne trés bien lorsqu'il est lancé après un programme qu'il écoute en permanence .
Si je le lance avant , je le fais patienter dans une boucle qui test le démarrage de ce programme, et lorsque ce programme est actif je souhaite que mon script redémarre de lui-même à son début sans sortir !


J'ai donc essayé cette solution sans succès:

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>

$rr = "NIL"
$F = WinExists("MonProgramme")

If $F = 1 Then
    $rr = ObjCreate("RideRunner.SDK")
EndIf

$Timer = TimerInit()

While $F = 0
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            ExitLoop

    EndSwitch
    $diff = TimerDiff($Timer)
    if $diff>2000  then

    If $F = 1 Then _Restart_Prg()
    $debut = TimerInit()
    EndIf

Wend

While $F = 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
Wend
            
Func _Restart_Prg()
    If @Compiled Then
        ShellExecute(@scriptdir&"\"&@ScriptName)
    Else
        ShellExecute(@scriptdir&"\"&@ScriptName,"", @AutoItExe)
    EndIf
    Exit
EndFunc

ainsi que cette autre solution toujours sans succés:

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>

$rr = "NIL"
$F = WinExists("MonProgramme")

If $F = 1 Then
    $rr = ObjCreate("RideRunner.SDK")
EndIf

While 1
    $nMsg = GUIGetMsg()
    If $F = 1 Then _Restart_Prg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
Wend
            
Func _Restart_Prg()
    If @Compiled Then
        ShellExecute(@scriptdir&"\"&@ScriptName)
    Else
        ShellExecute(@scriptdir&"\"&@ScriptName,"", @AutoItExe)
    EndIf
    Exit
EndFunc

Merci de votre aide par avance

[roselito13]

Mes une "While 1" des le debut du script, là ou tu veux reprendre

Et mes le "Wend" dans la condition, pas tester mais sa devrais marcher en théorie

[noman]

Bonsoir,

Peut être que la fonction ProcessExists pourrais vous aider.

L'exemple ci-dessous montre simplement une boucle qui va vérifier si le processus mon_app.exe existe, puis éxécute la fonction _InitScript('paramètre') et quitte la boucle.

Exemple :

Code : Tout sélectionner

While1
    Sleep(100)
    If ProcessExists('mon_app.exe') Then
        MsgBox(0, '', 'processus mon_app.exe trouvé')
        _InitScipt('paramètre')
        ExitLoop
    EndIf
WEnd

Func _InitScript('paramètre')

;le code de votre application

EndFunc
 

Bonne soirée

[jchd]

Et mets le "Wend" dans la condition, pas testé mais ça devrait marcher en théorie

Euh, en théorie nous sommes certains que ça ne peut se faire !
Les structures de blocs doivent être imbriquées et ne peuvent en aucun cas s'interpénétrer, au 21éme siècle.

[SagePourpre]

Voici à quoi devrait ressembler la forme de votre script dans ce cas

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
Global _
        $strTitreProgramme = "Sans titre - Bloc-notes", _
        $hWnd = WinExists($strTitreProgramme), _
        $boolOpen



While 1
    While Not $hWnd ; équivalent de while $hWnd = 0  (juste plus beau ( avis personnel ))
        $hWnd = WinExists($strTitreProgramme)
        ToolTip('NON', 0, 0)
        Sleep(1000)
    WEnd


    While $hWnd
        $hWnd = WinExists($strTitreProgramme)
        ToolTip('OUI', 0, 0)
        Sleep(1000)
    WEnd
WEnd
 

Même chose que le premier code, avec une légère complexification.
Dans cette seconde mouture, en plus d'effectuer des actions selon si
le programme est fermé ou ouvert, une action est faîte lorsque le programme est
fermé et lorsqu'il est ouvert.

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
Global _
        $strTitreProgramme = "Sans titre - Bloc-notes", _
        $hWnd = WinExists($strTitreProgramme), _
        $boolOpen = True



While 1
    $boolOpen = Not $boolOpen
    While Not $hWnd ;  Programme fermé
        $hWnd = WinExists($strTitreProgramme)

        If $boolOpen = True Then
            $boolOpen = Not $boolOpen
            MsgBox(0,'Alerte','Le programme vient d''être fermé')
        EndIf


        ToolTip('NON', 0, 0)
        Sleep(1000)
    WEnd
$boolOpen = Not $boolOpen

    While $hWnd
        $hWnd = WinExists($strTitreProgramme)


        If $boolOpen = True Then
            $boolOpen = Not $boolOpen
            MsgBox(0,'Alerte','Le programme vient d''être ouvert')
        EndIf


        ToolTip('OUI', 0, 0)
        Sleep(1000)
    WEnd
WEnd

[pierrotm777]

Merci beaucoup à tous,
L'example de sagepourpre me semble correspondre le plus à mon besoin , mais je vais tester tout cela.

Merci encore !

[pierrotm777]

J'ai essayé d'adapter votre exemple à mon script en y ajoutant 1 bouton mais il ne fonctionne pas.
Je pense que je place le switch au mauvais endroit !

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
Global $boolOpen = True

$F = WinExists("RoadRunner")

$MainGUI = GUICreate("Skinner Tool", 500, 603, -1, -1)
$About = GUICtrlCreateButton("?", 390, 5, 25, 25)
GUISetState()

While 1
    $boolOpen = Not $boolOpen
    While Not $F ;  Programme fermé
        $F = WinExists("RoadRunner")
        If $boolOpen = True Then
            $boolOpen = Not $boolOpen
            MsgBox(0,'Alerte','Le programme vient d''être fermé')
        EndIf
        ToolTip('NON', 0, 0)
        Sleep(1000)

        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                Exit
        EndSwitch
    Wend

    $boolOpen = Not $boolOpen

    While $F ;  Programme ouvert
        $F = WinExists("RoadRunner")
        If $boolOpen = True Then
            $boolOpen = Not $boolOpen
            MsgBox(0,'Alerte','Le programme vient d''être ouvert')
        EndIf
        ToolTip('OUI', 0, 0)
        Sleep(1000)

        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                Exit

            Case $About
                SplashTextOn("Thanks","Thanks to the French Autoit"&@CRLF&"helped me for this script ! :-)",300, 80, 99, 199, "",48,14)
                sleep(3000)
                SplashOff()
        EndSwitch
    WEnd
Wend

[pierrotm777]

J'ai trouvé !
Le problème des boutons non actifs vient des sleep(1000).
Une fois enlevé , cela fonctionne trés bien

Merci beaucoup !