[..] Anti-bug + redemarage preci

[ani]

bonjour jif
faite un petit effort svp
Si vous auriez utilisé le moteur de recherche du forum avec les termes (error variable used without being declared) vous auriez trouvé la réponse, même en le traduisant idem. (erreur, la variable utilisé n'est pas déclaré).
Il vous faut juste la déclaré en début de script par exemple, soit par un dim/global ou local
Dim $Path

merci d'avance et bonne continuation

[JIF]

Merci de ta réponse Ani. J'ai fais ce que tu mat dis et il n'y a plus de message d'erreur. L'application ce lance bien et redémarre en cas de bug.

Cependant : Une foie que le scripte à redémarré l'application. Le scripte ce lance a nouveau au lieu de redémarrer luis aussi. Ce qui fait que le scripte est ouverts 2 ou 3 foie ou plus au lieu de une seul foie. De plusse le fichier log ne c'est pas crée dans le dossier ou est situé le scripte.

Comment remédier a ce problème ?

Voici mon code.

► Afficher le texte

Code : Tout sélectionner

#NoTrayIcon                                              ; Include
#include <File.au3>
#include <ImageSearch.au3>
; -------------------------------------------------------
;Déclaration de variable
Global $vtimer, $Verif1, $Verif0, $Verif2, $Path, $Partie ; Fonction de debuguage du scripte
;Initialisation du script
$vtimer = TimerInit()
$Verif1 = -1
$Verif0 = 0
AdlibEnable("verif", 1000)
; -------------------------------------------------------
$x1 = 0 ; Détéction des images
$y1 = 0
; -------------------------------------------------------
HotKeySet("{F2}", "My_Exit") ; Début de la fonction de fermeutur du script, touche F2
; -------------------------------------------------------
If FileExists($path) Then FileDelete($path) ; Netoyage des parametres
FileWrite($path, $Partie)
; -------------------------------------------------------
ShellExecute(@ProgramFilesDir & "\application_xxx.exe") ; Démarage de xxx aplication
WinWait("application_xxx")
WinSetState("application_xxx", "", @SW_MAXIMIZE)
; --------------------------------------------------------
For $result = 1 To 999999 Step 1 ; Page 1
    $result = _ImageSearch("a1.bmp", 0, $x1, $y1, 0)
    If $result = 1 Then
        MouseClick("left", 300, 360, 2, 0)
        Send("napoleon2005")
        Send("{ENTER}")
        ExitLoop 1 ; On sort de la boucle
    EndIf
Next
$Verif0 = 1
; ---------------------------------------------------------
For $result = 1 To 999999 Step 1 ; Page 2
    $result = _ImageSearch("a2.bmp", 0, $x1, $y1, 0)
    If $result = 1 Then
        MouseClick("left", 200, 400, 4, 0)
        ExitLoop 1 ; On sort de la boucle
    EndIf
Next
$Verif0 = 2
; ----------------------------------------------------------
For $result = 1 To 999999 Step 1 ; Page 3
    $result = _ImageSearch("a3.bmp", 0, $x1, $y1, 0)
    If $result = 1 Then
        MouseClick("left", 200, 450, 4, 0)
        ExitLoop 1 ; On sort de la boucle
    EndIf
Next
$Verif0 = 3
; -------------------------------------------------------
While 1 ; Debut de la boucle infini du scripte
    ; ------------------------------------------------------
    If $Partie = 0 Or $Partie = 1 Then ; Patie 1
        $Verif0 = 4

        For $result = 1 To 999999 Step 1
            $result = _ImageSearch("1.bmp", 0, $x1, $y1, 0)
            If $result = 1 Then
                _MouseClick("left", 545, 580)
                ExitLoop 1 ; On sort de la boucle
            EndIf
        Next
        $Partie = 1
    EndIf
    ; ------------------------------------------------------
    If $Partie = 0 Or $Partie = 2 Then ; Partie 2
        $Verif0 = 5

        For $result = 1 To 999999 Step 1
            $result = _ImageSearch("2.bmp", 0, $x1, $y1, 0)
            If $result = 1 Then
                _MouseClick("left", 745, 578)
                ExitLoop 1 ; On sort de la boucle
            EndIf
        Next
        $Partie = 2
    EndIf
    ; ----------------------------------------------------
    If $Partie = 0 Or $Partie = 3 Then ; Partie 3
        $Verif0 = 6

        For $result = 1 To 999999 Step 1
            $result = _ImageSearch("3.bmp", 0, $x1, $y1, 0)
            If $result = 1 Then
                _MouseClick("left", 60, 330)
                ExitLoop 1 ; On sort de la boucle
            EndIf
        Next
        $Partie = 3
    EndIf
    ; ----------------------------------------------------
    If $Partie = 0 Or $Partie = 4 Then ; Partie 4
        $Verif0 = 7

        For $result = 1 To 999999 Step 1
            $result = _ImageSearch("4.bmp", 0, $x1, $y1, 0)
            If $result = 1 Then
                _MouseClick("left", 615, 578)
                ExitLoop 1 ; On sort de la boucle
            EndIf
        Next
        $Partie = 4
    EndIf
    ; ----------------------------------------------------
WEnd ; Fin de la boucle infini du scripte.
; ----------------------------------------------------
Func My_Exit() ; Fin de la fonction de fermetur du script
    Exit 0
EndFunc   ;==>My_Exit
; ---------------------------------------------------
Func _MouseClick($Moc_buton, $Moc_x, $Moc_y, $Moc_clicks = 2, $Moc_speed = 0) ; Débugage des faux clique
    For $Moc_i = 1 To $Moc_clicks
        MouseMove($Moc_x, $Moc_y, $Moc_speed)
        While MouseGetPos(0) <> $Moc_x And MouseGetPos(1) <> $Moc_y
            Sleep(1)
            MouseMove($Moc_x, $Moc_y, $Moc_speed)
        WEnd
        MouseDown($Moc_buton)
        MouseDown($Moc_buton)
        Sleep(1)
        MouseDown($Moc_buton)
        Sleep(1)
        MouseUp($Moc_buton)
        MouseUp($Moc_buton)
        Sleep(1)
        MouseUp($Moc_buton)
    Next
EndFunc   ;==>_MouseClick
; -------------------------------------------------
Func verif() ; Antit bug du script et procede au débugage du scripte
    $Verif2 = $Verif0
    If $Verif2 = $Verif1 Then
        If TimerDiff($vtimer) > 30000 Then ; temps de la verif
            WinClose("[REGEXPTITLE:application_xxx]", "")
            Sleep(5000)
            $Verif2 = $Verif0
            If Not @Compiled Then
                ShellExecute(@AutoItExe, @ScriptFullPath & " " & $Verif0)
            Else
                ShellExecute(@ScriptFullPath, $Verif0)
            EndIf
            Exit
        EndIf
    Else
        $vtimer = TimerInit()
        $Verif1 = $Verif0
    EndIf
EndFunc   ;==>verif
; -------------------------------------------------
Func OnAutoItExit() ; Fonction du fichier log.
    If @exitCode = 4 Then
        If FileExists($path) Then FileDelete($path)
        FileWrite($path, $Partie)
    EndIf
    Exit
EndFunc   ;==>OnAutoItExit
 

Merci de me répondre.

Cordialement JIF,

[JIF]

Personne pour m'aidez ?

Cordialement JIF,

[JIF]

Svp aidez moi. C'est tres importent.

[JIF]

Je vous en pris répondez moi.

[JIF]

Help mi ?

[Tlem]

4 message d'affiler pour remonter votre sujet, je trouve qu'il y à abus.

Si personne ne vous répond, c'est que :
- Votre demande est incompréhensible.
ou
- Votre demande est trop compliquée.
ou
- Votre demande implique un investissement de temps que d'autres n'ont pas.
ou
- Votre demande n'intéresse personne.
ou
- Tout simplement les gens qui pourrait vous répondre sont en vacance.

Mettez à profit ce temps pour effectuer vous même vos recherches et arrêtez de remonter sans cesse votre sujet.