[R] Detection de bug dans un script

[JIF]

Merci de ta réponse Iste, j'ai copier colé le code que tu m'a donné, mais il me mes une erreur a la ligne 405 en rapport avec : sleep($temps)
erreur : Variable used without being declared.

Il me met ce message d'erreur au bout de 30 seconde exactement.
temps défini par AdlibEnable("verif",30000)

Si je le mes a 60000 il me mettra l'erreur au bout de 60 seconde.

Et si je compile le script il me mes une erreur à la ligne 1
erreur : Variable used without being declared.

Il me met ce message d'erreur au bout de 30 seconde exactement.
temps défini par AdlibEnable("verif",30000)

Si je le mes a 60000 il me mettra l'erreur au bout de 60 secondes.

D'où peut provenir le problème ?

► Afficher le texte

Code : Tout sélectionner

#NoTrayIcon                                                                             ; Include
#include <FF.au3>
#include <File.au3>
#include <ImageSearch.au3>


;~ verif("D:\Documents_and_Settings\FOURNIER_JIMMY\Mes_documents\script\msnmsgr_v4", 30000)
AdlibEnable("verif",30000)

; --------------------------------------------------------------------------------------------------------------------------------------------------
Global Const $TAILLE_FICHIER_0 = 13320147 ; Vidéo 11-1 + 11-2
Global Const $TAILLE_FICHIER_1 = 38457549 ; Vidéo 1
Global Const $TAILLE_FICHIER_2 = 6758656 ; Vidéo 2
Global Const $TAILLE_FICHIER_3 = 25025090 ; Vidéo 3
Global Const $TAILLE_FICHIER_4 = 12313029 ; Vidéo 4
Global Const $TAILLE_FICHIER_5 = 30027252 ; Vidéo 5
Global Const $TAILLE_FICHIER_6 = 16612920 ; Vidéo 6
Global Const $TAILLE_FICHIER_7 = 7102076 ; Vidéo 7
Global Const $TAILLE_FICHIER_8 = 16106659 ; Vidéo 8
Global Const $TAILLE_FICHIER_9 = 12917688 ; Vidéo 9
Global Const $TAILLE_FICHIER_10 = 26180403 ; Vidéo 10
Global $f ; nom du fichier
; ---------------------------------------------------------------------------------------------------------------------------------------------------
Global Const $url_0 = "http://cours-echecs.blogspot.com"
Global Const $url_1 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B01"
Global Const $url_2 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B02"
Global Const $url_3 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B03"
Global Const $url_4 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B04"
Global Const $url_5 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B05"
Global Const $url_6 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B06"
Global Const $url_7 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B07"
Global Const $url_8 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B08"
Global Const $url_9 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B09"
Global Const $url_10 = "http://cours-echecs.blogspot.com/search/label/cours_n%C2%B010"
Global Const $url_11 = "http://cours-echecs.blogspot.com/search/label/cours_n%C2%B011"
; --------------------------------------------------------------------------------------------------------------------------------------------------
Global $Socket = _FFStart() ; Démarage de Mozila Firefox
; --------------------------------------------------------------------------------------------------------------------------------------------------
$x1 = 0 ; Détéction d'Image
$y1 = 0
;---------------------------------------------------------------------------------------------------------------------------------------------------
HotKeySet("{F2}", "My_Exit") ; Début de la fonction de fermeutur du script, touche F2
;---------------------------------------------------------------------------------------------------------------------------------------------------
$OpenUrl = _FFOpenUrl($Socket, $url_0)
For $dectectionpixel = 1 To 999999 Step 1 ; Vidéo 11-1
    $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8)
    If Not @error Then
        MouseClick("left", $coord[0], $coord[1])
        ExitLoop 1 ; On sort de la boucle
    EndIf
    $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8, 30)
    If Not @error Then
        MouseClick("left", $coord[0], $coord[1])
        ExitLoop 1 ; On sort de la boucle
    EndIf
Next
$f = detecteNouveauChargement()
detecteFinChargement($f, $TAILLE_FICHIER_0)
MouseClick("left", 737, 787, 1)
For $result = 1 To 999999 Step 1
    $result = _ImageSearch("11.bmp", 0, $x1, $y1, 0)
    If $result = 1 Then
        $OpenUrl = _FFOpenUrl($Socket, $url_1)
        ExitLoop 1 ; On sort de la boucle
    EndIf
Next
; --------------------------------------------------------------------------------------------------------------------------------------------------
While 1 ; Début de la boucle du scripte
    ; --------------------------------------------------------------------------------------------------------------------------------------------------
    $Verif0 = 1
    For $dectectionpixel = 1 To 999999 Step 1 ; Vidéo 1
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8, 30)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 2
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_1)
    MouseClick("left", 736, 787, 1)
    $Verif0 = 3
    For $result = 1 To 999999 Step 1
        $result = _ImageSearch("1.bmp", 0, $x1, $y1, 0)
        If $result = 1 Then
            $OpenUrl = _FFOpenUrl($Socket, $url_2)
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 4


    ; ------------------------------------------------------------------------------------------------------------------------------------------------------
    For $dectectionpixel = 1 To 999999 Step 1 ; Vidéo 2
        $coord = PixelSearch(525, 815, 535, 827, 0xC4C8B8)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
        $coord = PixelSearch(525, 815, 535, 827, 0xC4C8B8, 30)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 5
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_2)
    MouseClick("left", 736, 819, 1)
    $Verif0 = 6
    For $result = 1 To 999999 Step 1
        $result = _ImageSearch("2.bmp", 0, $x1, $y1, 0)
        If $result = 1 Then
            $OpenUrl = _FFOpenUrl($Socket, $url_3)
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 7



    ; ---------------------------------------------------------------------------------------------------------------------------------------------------
    For $dectectionpixel = 1 To 999999 Step 1 ; Vidéo 3
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8, 30)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 8
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_3)
    MouseClick("left", 736, 787, 1)
    $Verif0 = 9
    For $result = 1 To 999999 Step 1
        $result = _ImageSearch("3.bmp", 0, $x1, $y1, 0)
        If $result = 1 Then
            $OpenUrl = _FFOpenUrl($Socket, $url_4)
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 10
    ; ---------------------------------------------------------------------------------------------------------------------------------------------------
    For $dectectionpixel = 1 To 999999 Step 1 ; Vidéo 4
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8, 30)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 11
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_4)
    MouseClick("left", 736, 787, 1)
    $Verif0 = 12
    For $result = 1 To 999999 Step 1
        $result = _ImageSearch("4.bmp", 0, $x1, $y1, 0)
        If $result = 1 Then
            $OpenUrl = _FFOpenUrl($Socket, $url_5)
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 13
    ; ----------------------------------------------------------------------------------------------------------------------------------------------------
    For $dectectionpixel = 1 To 999999 Step 1 ; Vidéo 5
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8, 30)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 14
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_5)
    MouseClick("left", 736, 787, 1)
    $Verif0 = 15
    For $result = 1 To 999999 Step 1
        $result = _ImageSearch("5.bmp", 0, $x1, $y1, 0)
        If $result = 1 Then
            $OpenUrl = _FFOpenUrl($Socket, $url_6)
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 16
    ; --------------------------------------------------------------------------------------------------------------------------------------------------
    For $dectectionpixel = 1 To 999999 Step 1 ; Vidéo 6
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8, 30)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 17
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_6)
    MouseClick("left", 736, 787, 1)
    $Verif0 = 18
    For $result = 1 To 999999 Step 1
        $result = _ImageSearch("6.bmp", 0, $x1, $y1, 0)
        If $result = 1 Then
            $OpenUrl = _FFOpenUrl($Socket, $url_7)
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 19
    ; ---------------------------------------------------------------------------------------------------------------------------------------------------
    For $dectectionpixel = 1 To 999999 Step 1 ; Vidéo 7
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8, 30)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 20
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_7)
    MouseClick("left", 736, 787, 1)
    $Verif0 = 21
    For $result = 1 To 999999 Step 1
        $result = _ImageSearch("7.bmp", 0, $x1, $y1, 0)
        If $result = 1 Then
            $OpenUrl = _FFOpenUrl($Socket, $url_8)
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 22
    ; ---------------------------------------------------------------------------------------------------------------------------------------------------
    For $dectectionpixel = 1 To 999999 Step 1 ; Vidéo 8
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8, 30)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 23
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_8)
    MouseClick("left", 736, 787, 1)
    $Verif0 = 24
    For $result = 1 To 999999 Step 1
        $result = _ImageSearch("8.bmp", 0, $x1, $y1, 0)
        If $result = 1 Then
            $OpenUrl = _FFOpenUrl($Socket, $url_9)
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 25
    ; ---------------------------------------------------------------------------------------------------------------------------------------------------
    For $dectectionpixel = 1 To 999999 Step 1 ; Vidéo 9
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8, 30)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 26
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_9)
    MouseClick("left", 736, 787, 1)
    $Verif0 = 27
    For $result = 1 To 999999 Step 1
        $result = _ImageSearch("9.bmp", 0, $x1, $y1, 0)
        If $result = 1 Then
            $OpenUrl = _FFOpenUrl($Socket, $url_10)
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 28
    ; ---------------------------------------------------------------------------------------------------------------------------------------------------
    For $dectectionpixel = 1 To 999999 Step 1 ; Vidéo 10
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8, 30)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 29
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_10)
    MouseClick("left", 737, 787, 1)
    $Verif0 = 30
    For $result = 1 To 999999 Step 1
        $result = _ImageSearch("10.bmp", 0, $x1, $y1, 0)
        If $result = 1 Then
            $OpenUrl = _FFOpenUrl($Socket, $url_11)
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 31
    ; --------------------------------------------------------------------------------------------------------------------------------------------------
    For $dectectionpixel = 1 To 999999 Step 1 ; Vidéo 11-2
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8, 30)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 32
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_0)
    MouseClick("left", 736, 787, 1)
    $Verif0 = 33
    For $result = 1 To 9999999 Step 1
        $result = _ImageSearch("11.bmp", 0, $x1, $y1, 0)
        If $result = 1 Then
            $OpenUrl = _FFOpenUrl($Socket, $url_1)
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 34
    ; -------------------------------------------------------------------------------------------------------------------------------------------------
WEnd ; Fin de la boucle du script
; -------------------------------------------------------------------------------------------------------------------------------------------------
Func detecteNouveauChargement() ; Contrôle de chargement des vidéo dans le dossier temporaire de Mozila Firfox
    Local $i, $fFlaTmp
    Local $dateCreation, $dateFichier, $dateActuelle

    $dateActuelle = @YEAR & @MON & @MDAY & @HOUR & @MIN & @SEC

    While 1
        $fFlaTmp = _FileListToArray(@TempDir, "fla*.tmp", 1)

        If Not @error Then
            For $i = 1 To $fFlaTmp[0]
                $dateCreation = FileGetTime(@TempDir & "\" & $fFlaTmp[$i], _
                        1, _ ; date création
                        1) ; format YYYYMMDDHHMMSS

                ; si un nouveau fichier fla*.tmp a été créé alors on sort des boucles
                If $dateCreation > $dateActuelle Then ExitLoop 2
            Next
        EndIf

        Sleep(250)
    WEnd

    ; retourne le nom du fichier en chargement
    Return $fFlaTmp[$i]
EndFunc   ;==>detecteNouveauChargement

Func detecteFinChargement($nomFichier, $tailleFichier)
    Do
        Sleep(250)
    Until FileGetSize(@TempDir & "\" & $nomFichier) = $tailleFichier
EndFunc   ;==>detecteFinChargement
; ----------------------------------------------------------------------------------------------------------------------------------------------------
Func My_Exit() ; Fin de la fonction de fermetur du script
    Exit 0
EndFunc   ;==>My_Exit


Func verif()
    $Verif1 = $Verif0
    while 1
        sleep($temps)
        $Verif2 = $Verif0
        if $Verif2 = $Verif1 then exitloop
    wend
    ProcessClose("firefox.exe")
    If Not @Compiled Then
        ShellExecute(@AutoItExe, @ScriptFullPath)
    Else
        ShellExecute(@ScriptFullPath)
    EndIf
EndFunc   ;==>verif

[Iste]

ha oui, c'est un erreur de ma part, j'ai super mal adapté la fonction !
Désolé, je corrige ca au plus vite et j'édite ce post

Edit : voila, j'ai modifier le code de mon précédent post (pour éviter de trop surcharger le topic)
Normalement, cette foi c'est bon ! Enfin, j'espère !!!

[JIF]

Merci de ta réponse Iste, le script détecte bien lorsqu'il est coincer et redémarre bien mozilla firefoxe cependant des problème persistes.

1) Le script quitte mozzila firefoxe brutalement se qui efface tout ce qui est sauvegardé dans le dossier temporaire de mozzila firefox et me mes un message comme quoi mozilla firefox a étai quitté brutalement et me demande de restauré la dernière session ou bien d'en crée une autre. A mon avis il faudrait passé par une autre fonction que ProcessClose.
Si je mes la fonction :

Code : Tout sélectionner

WinClose("[REGEXPTITLE:Mozilla]", "")

a la place de :

Code : Tout sélectionner

 ProcessClose("firefox.exe")

La détection de bug fonctionnera telle toujours ?

2) Comme les lecture de mes vidéo dépendes de mon pc et de ma connexion internet et que sella n'est jamais
stable il arrive que le script détecte un bug alors que le script fonctionnai sens aucun problème. Je me demandais donc alors comment je pourrais faire pour que si le script détecte un bug qu'il relance une vérification sur la même ligne et si le script n'a toujours pas changer de ligne après 30 secondes de plus (ceux qui fait un total de 1 minute) il relance mozzila firefoxe et le script luis même ?

[Iste]

alors, pour le WinClose() au lieu du ProcessClose(), oui ca serait bien mieux ^^ j'avais juste mis ca car je savais pas trop quoi faire x)

Apres, pour une double vérif heu... hum... oui ben déja, tu pourrais simplement vérifier toute les 5min. Ca limiterais le nombre de faux positif, pis quand le script planterais vraiment, ca prendrait que 5min a relancer !
en fait je dis ca car je suis pas sur du comportement du script si il venait a lancer deux foi la verif, et comme je t'ai déja passé suffisament de script fourareu..

[JIF]

Merci de ta réponses Iste, mais passe moi quand même le scripte avec la fonction de seconde vérification car 5 minute ou 10 minute ferai le même problème, mon script ne fait que s'adapte a ma machine et a ma connexion. Je penses que ne pas mettre de seconde vérification le rendra beaucoup plus instable.

Merci de me répondre.

Cordialement JIF,

[Iste]

ben ca change vraiment peu la vérification, et risque de poser des probleme a cause de l'adlibenable (la fonction de verif et rappelé alors qu'elle tourne encore en fond)
Donc va veut dire des déclaration en local, du coup je sais pas trop comment faire...

En fait, je viens de regarder, je vois vraiment pas comment faire ^^'

[JIF]

Merci de ta réponse Iste, mais j'ai vus qu'il y a un autre problème, le script ferme bien mozilla firefox après qu'il est détecté un bug et relance bien mozilla firefoxe sans problème. mais voila il ne redémarre pas mon scripte a zéro il ouvre a nouveau mon script, ceux qui fait que au bout d'un moment mon scripte a très fortement ralentit et mon pc aussi. J'ai vus que mon script était ouvert 5 foie au lieux de 1 foie. Comment faire pour que il se relance dans le même script et non qu'il ouvre a nouveau mon scripte ?

mais la détection sa fonctionne comment ?
Ici les 30 secondes se re initialise a chaque vérification positive ou il continu en boucle ?

exemple 1 : le script démarre a 30 seconde. La vérification 1 est positive après 8 seconde sur 30 seconde; le script ce réinitialise sont compteur a 30 seconde, la vérification 2 est positive après 25 seconde sur 30 seconde; le scripte réinitialise sont compteur a 30 seconde, la vérification 3 est positive après 12 seconde sur 30 seconde...etc.

exemple 2 : Le script démarre a 30 seconde. Au bout de 30 secondes la vérification 5 est positive, il relence une vérification 30 secondes après, la vérification 27 est positive, il relance une vérification 30 seconde après , la vérification 8 est positive, il relance une vérification 30 seconde après , la vérification 32 est positive...etc.

Si le script fonctionné comme le 2ieme exemple. Y aurait-il une solution pour qu'il fonctionne comme le premier exemple ?

[Iste]

haha oui, j'ai oublié le "exit" xD
apres le winclos et le IF pour relancer le script, rajoute un exit ^^'

La le script modifi periodiquement une varible. Tout les x seconde il regarde cette variable. Si elle change pas, c'est que le script planté.
La il est sensé fermer firefox (ca c'est ok) s'auto relancer (ok aussi) et fermer se fermer (ca j'ai oublié ^^')

et alors, ce que tu dis, c'est possible, mais super chiant a faire xD alors comme c'est une verif de bug, c'est pas grave si tu tape toute les 10minute meme
tu perdras que 10minute grand max

[JIF]

Merci de ta réponse Iste, mais pourrai tu me dire comment faire pour que le script fonctionne comme le première exemple ?

J'ai fait la modification de l'exit comme tu m'a dit; le script nse ferme bien et mozzila firefox aussi. mais le script ne se relance pas.
D'où viens le problème ?

Voici ce que j'ai modifier.

► Afficher le texte

Code : Tout sélectionner

#NoTrayIcon                                                                             ; Include
#include <FF.au3>
#include <File.au3>
#include <ImageSearch.au3>


;~ verif("D:\Documents_and_Settings\FOURNIER_JIMMY\Mes_documents\script\msnmsgr_v4", 30000)
$Verif1 = -1
$Verif0 = 0
AdlibEnable("verif",50000)

; --------------------------------------------------------------------------------------------------------------------------------------------------
Global Const $TAILLE_FICHIER_0 = 13320147 ; Vidéo 11-1 + 11-2
Global Const $TAILLE_FICHIER_1 = 38457549 ; Vidéo 1
Global Const $TAILLE_FICHIER_2 = 6758656 ; Vidéo 2
Global Const $TAILLE_FICHIER_3 = 25025090 ; Vidéo 3
Global Const $TAILLE_FICHIER_4 = 12313029 ; Vidéo 4
Global Const $TAILLE_FICHIER_5 = 30027252 ; Vidéo 5
Global Const $TAILLE_FICHIER_6 = 16612920 ; Vidéo 6
Global Const $TAILLE_FICHIER_7 = 7102076 ; Vidéo 7
Global Const $TAILLE_FICHIER_8 = 16106659 ; Vidéo 8
Global Const $TAILLE_FICHIER_9 = 12917688 ; Vidéo 9
Global Const $TAILLE_FICHIER_10 = 26180403 ; Vidéo 10
Global $f ; nom du fichier
; ---------------------------------------------------------------------------------------------------------------------------------------------------
Global Const $url_0 = "http://cours-echecs.blogspot.com"
Global Const $url_1 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B01"
Global Const $url_2 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B02"
Global Const $url_3 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B03"
Global Const $url_4 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B04"
Global Const $url_5 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B05"
Global Const $url_6 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B06"
Global Const $url_7 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B07"
Global Const $url_8 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B08"
Global Const $url_9 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B09"
Global Const $url_10 = "http://cours-echecs.blogspot.com/search/label/cours_n%C2%B010"
Global Const $url_11 = "http://cours-echecs.blogspot.com/search/label/cours_n%C2%B011"
; --------------------------------------------------------------------------------------------------------------------------------------------------
Global $Socket = _FFStart() ; Démarage de Mozila Firefox
; --------------------------------------------------------------------------------------------------------------------------------------------------
$x1 = 0 ; Détéction d'Image
$y1 = 0
;---------------------------------------------------------------------------------------------------------------------------------------------------
HotKeySet("{F2}", "My_Exit") ; Début de la fonction de fermeutur du script, touche F2
;---------------------------------------------------------------------------------------------------------------------------------------------------
$OpenUrl = _FFOpenUrl($Socket, $url_0)
For $dectectionpixel = 1 To 999999 Step 1 ; Vidéo 11-1
    $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8)
    If Not @error Then
        MouseClick("left", $coord[0], $coord[1])
        ExitLoop 1 ; On sort de la boucle
    EndIf
    $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8, 30)
    If Not @error Then
        MouseClick("left", $coord[0], $coord[1])
        ExitLoop 1 ; On sort de la boucle
    EndIf
Next
$f = detecteNouveauChargement()
detecteFinChargement($f, $TAILLE_FICHIER_0)
MouseClick("left", 737, 787, 1)
For $result = 1 To 999999 Step 1
    $result = _ImageSearch("11.bmp", 0, $x1, $y1, 0)
    If $result = 1 Then
        $OpenUrl = _FFOpenUrl($Socket, $url_1)
        ExitLoop 1 ; On sort de la boucle
    EndIf
Next
; --------------------------------------------------------------------------------------------------------------------------------------------------
While 1 ; Début de la boucle du scripte
    ; --------------------------------------------------------------------------------------------------------------------------------------------------
    $Verif0 = 1
    For $dectectionpixel = 1 To 999999 Step 1 ; Vidéo 1
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8, 30)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 2
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_1)
    MouseClick("left", 736, 787, 1)
    $Verif0 = 3
    For $result = 1 To 999999 Step 1
        $result = _ImageSearch("1.bmp", 0, $x1, $y1, 0)
        If $result = 1 Then
            $OpenUrl = _FFOpenUrl($Socket, $url_2)
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 4


    ; ------------------------------------------------------------------------------------------------------------------------------------------------------
    For $dectectionpixel = 1 To 999999 Step 1 ; Vidéo 2
        $coord = PixelSearch(525, 815, 535, 827, 0xC4C8B8)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
        $coord = PixelSearch(525, 815, 535, 827, 0xC4C8B8, 30)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 5
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_2)
    MouseClick("left", 736, 819, 1)
    $Verif0 = 6
    For $result = 1 To 999999 Step 1
        $result = _ImageSearch("2.bmp", 0, $x1, $y1, 0)
        If $result = 1 Then
            $OpenUrl = _FFOpenUrl($Socket, $url_3)
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 7



    ; ---------------------------------------------------------------------------------------------------------------------------------------------------
    For $dectectionpixel = 1 To 999999 Step 1 ; Vidéo 3
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8, 30)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 8
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_3)
    MouseClick("left", 736, 787, 1)
    $Verif0 = 9
    For $result = 1 To 999999 Step 1
        $result = _ImageSearch("3.bmp", 0, $x1, $y1, 0)
        If $result = 1 Then
            $OpenUrl = _FFOpenUrl($Socket, $url_4)
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 10
    ; ---------------------------------------------------------------------------------------------------------------------------------------------------
    For $dectectionpixel = 1 To 999999 Step 1 ; Vidéo 4
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8, 30)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 11
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_4)
    MouseClick("left", 736, 787, 1)
    $Verif0 = 12
    For $result = 1 To 999999 Step 1
        $result = _ImageSearch("4.bmp", 0, $x1, $y1, 0)
        If $result = 1 Then
            $OpenUrl = _FFOpenUrl($Socket, $url_5)
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 13
    ; ----------------------------------------------------------------------------------------------------------------------------------------------------
    For $dectectionpixel = 1 To 999999 Step 1 ; Vidéo 5
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8, 30)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 14
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_5)
    MouseClick("left", 736, 787, 1)
    $Verif0 = 15
    For $result = 1 To 999999 Step 1
        $result = _ImageSearch("5.bmp", 0, $x1, $y1, 0)
        If $result = 1 Then
            $OpenUrl = _FFOpenUrl($Socket, $url_6)
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 16
    ; --------------------------------------------------------------------------------------------------------------------------------------------------
    For $dectectionpixel = 1 To 999999 Step 1 ; Vidéo 6
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8, 30)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 17
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_6)
    MouseClick("left", 736, 787, 1)
    $Verif0 = 18
    For $result = 1 To 999999 Step 1
        $result = _ImageSearch("6.bmp", 0, $x1, $y1, 0)
        If $result = 1 Then
            $OpenUrl = _FFOpenUrl($Socket, $url_7)
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 19
    ; ---------------------------------------------------------------------------------------------------------------------------------------------------
    For $dectectionpixel = 1 To 999999 Step 1 ; Vidéo 7
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8, 30)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 20
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_7)
    MouseClick("left", 736, 787, 1)
    $Verif0 = 21
    For $result = 1 To 999999 Step 1
        $result = _ImageSearch("7.bmp", 0, $x1, $y1, 0)
        If $result = 1 Then
            $OpenUrl = _FFOpenUrl($Socket, $url_8)
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 22
    ; ---------------------------------------------------------------------------------------------------------------------------------------------------
    For $dectectionpixel = 1 To 999999 Step 1 ; Vidéo 8
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8, 30)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 23
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_8)
    MouseClick("left", 736, 787, 1)
    $Verif0 = 24
    For $result = 1 To 999999 Step 1
        $result = _ImageSearch("8.bmp", 0, $x1, $y1, 0)
        If $result = 1 Then
            $OpenUrl = _FFOpenUrl($Socket, $url_9)
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 25
    ; ---------------------------------------------------------------------------------------------------------------------------------------------------
    For $dectectionpixel = 1 To 999999 Step 1 ; Vidéo 9
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8, 30)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 26
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_9)
    MouseClick("left", 736, 787, 1)
    $Verif0 = 27
    For $result = 1 To 999999 Step 1
        $result = _ImageSearch("9.bmp", 0, $x1, $y1, 0)
        If $result = 1 Then
            $OpenUrl = _FFOpenUrl($Socket, $url_10)
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 28
    ; ---------------------------------------------------------------------------------------------------------------------------------------------------
    For $dectectionpixel = 1 To 999999 Step 1 ; Vidéo 10
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8, 30)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 29
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_10)
    MouseClick("left", 737, 787, 1)
    $Verif0 = 30
    For $result = 1 To 999999 Step 1
        $result = _ImageSearch("10.bmp", 0, $x1, $y1, 0)
        If $result = 1 Then
            $OpenUrl = _FFOpenUrl($Socket, $url_11)
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 31
    ; --------------------------------------------------------------------------------------------------------------------------------------------------
    For $dectectionpixel = 1 To 999999 Step 1 ; Vidéo 11-2
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8, 30)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 32
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_0)
    MouseClick("left", 736, 787, 1)
    $Verif0 = 33
    For $result = 1 To 9999999 Step 1
        $result = _ImageSearch("11.bmp", 0, $x1, $y1, 0)
        If $result = 1 Then
            $OpenUrl = _FFOpenUrl($Socket, $url_1)
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 34
    ; -------------------------------------------------------------------------------------------------------------------------------------------------
WEnd ; Fin de la boucle du script
; -------------------------------------------------------------------------------------------------------------------------------------------------
Func detecteNouveauChargement() ; Contrôle de chargement des vidéo dans le dossier temporaire de Mozila Firfox
    Local $i, $fFlaTmp
    Local $dateCreation, $dateFichier, $dateActuelle

    $dateActuelle = @YEAR & @MON & @MDAY & @HOUR & @MIN & @SEC

    While 1
        $fFlaTmp = _FileListToArray(@TempDir, "fla*.tmp", 1)

        If Not @error Then
            For $i = 1 To $fFlaTmp[0]
                $dateCreation = FileGetTime(@TempDir & "\" & $fFlaTmp[$i], _
                        1, _ ; date création
                        1) ; format YYYYMMDDHHMMSS

                ; si un nouveau fichier fla*.tmp a été créé alors on sort des boucles
                If $dateCreation > $dateActuelle Then ExitLoop 2
            Next
        EndIf

        Sleep(250)
    WEnd

    ; retourne le nom du fichier en chargement
    Return $fFlaTmp[$i]
EndFunc   ;==>detecteNouveauChargement

Func detecteFinChargement($nomFichier, $tailleFichier)
    Do
        Sleep(250)
    Until FileGetSize(@TempDir & "\" & $nomFichier) = $tailleFichier
EndFunc   ;==>detecteFinChargement
; ----------------------------------------------------------------------------------------------------------------------------------------------------
Func My_Exit() ; Fin de la fonction de fermetur du script
    Exit 0
EndFunc   ;==>My_Exit


Func verif()
    $Verif2 = $Verif0
    If $Verif2 = $Verif1 then
        WinClose("[REGEXPTITLE:Mozilla]", "")
        [color=#FF0000]Exit[/color] ; J'ai rajouté le exit ici.
        If Not @Compiled Then
            ShellExecute(@AutoItExe, @ScriptFullPath)
        Else
            ShellExecute(@ScriptFullPath)
        EndIf
    EndIf
    $Verif1 = $Verif0
EndFunc   ;==>verif

[Iste]

la nouvelle fonction

Code : Tout sélectionner

Func verif()
    $Verif2 = $Verif0
    If $Verif2 = $Verif1 then
        If TimerDiff($vtimer) > 30000 ;temps de la verif
            WinClose("[REGEXPTITLE:Mozilla]", "")
            Sleep(30000)
            $Verif2 = $Verif0
            If Not @Compiled Then
                ShellExecute(@AutoItExe, @ScriptFullPath)
            Else
                ShellExecute(@ScriptFullPath)
            EndIf
            Exit
        EndIf
    Else
        $vtimer = TimerInit()
        $Verif1 = $Verif0
    EndIf
EndFunc   ;==>verif

et au debut du code chager le

Code : Tout sélectionner

verif("D:\Documents_and_Settings\FOURNIER_JIMMY\Mes_documents\script\msnmsgr_v4", 30000)
$Verif1 = -1
$Verif0 = 0
AdlibEnable("verif",30000)

en

Code : Tout sélectionner

$vtimer = TimerInit()
$Verif1 = -1
$Verif0 = 0
AdlibEnable("verif",1000)

comme d'habe je peux pas tester, mais ca devrait marcher

[JIF]

Merci de ta réponse Iste, j'ai remplacer ce que tu me dit, mais il me met ce message d'erreur a la ligne 1 lorsque le scripte est compilé If statement must have a "then " keyword

D'où peux provenir le problème ?

Voici mon code.

► Afficher le texte

Code : Tout sélectionner

#NoTrayIcon                                                                             ; Include
#include <FF.au3>
#include <File.au3>
#include <ImageSearch.au3>


$vtimer = TimerInit()
$Verif1 = -1
$Verif0 = 0
AdlibEnable("verif",1000)

; --------------------------------------------------------------------------------------------------------------------------------------------------
Global Const $TAILLE_FICHIER_0 = 13320147 ; Vidéo 11-1 + 11-2
Global Const $TAILLE_FICHIER_1 = 38457549 ; Vidéo 1
Global Const $TAILLE_FICHIER_2 = 6758656 ; Vidéo 2
Global Const $TAILLE_FICHIER_3 = 25025090 ; Vidéo 3
Global Const $TAILLE_FICHIER_4 = 12313029 ; Vidéo 4
Global Const $TAILLE_FICHIER_5 = 30027252 ; Vidéo 5
Global Const $TAILLE_FICHIER_6 = 16612920 ; Vidéo 6
Global Const $TAILLE_FICHIER_7 = 7102076 ; Vidéo 7
Global Const $TAILLE_FICHIER_8 = 16106659 ; Vidéo 8
Global Const $TAILLE_FICHIER_9 = 12917688 ; Vidéo 9
Global Const $TAILLE_FICHIER_10 = 26180403 ; Vidéo 10
Global $f ; nom du fichier
; ---------------------------------------------------------------------------------------------------------------------------------------------------
Global Const $url_0 = "http://cours-echecs.blogspot.com"
Global Const $url_1 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B01"
Global Const $url_2 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B02"
Global Const $url_3 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B03"
Global Const $url_4 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B04"
Global Const $url_5 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B05"
Global Const $url_6 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B06"
Global Const $url_7 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B07"
Global Const $url_8 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B08"
Global Const $url_9 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B09"
Global Const $url_10 = "http://cours-echecs.blogspot.com/search/label/cours_n%C2%B010"
Global Const $url_11 = "http://cours-echecs.blogspot.com/search/label/cours_n%C2%B011"
; --------------------------------------------------------------------------------------------------------------------------------------------------
Global $Socket = _FFStart() ; Démarage de Mozila Firefox
; --------------------------------------------------------------------------------------------------------------------------------------------------
$x1 = 0 ; Détéction d'Image
$y1 = 0
;---------------------------------------------------------------------------------------------------------------------------------------------------
HotKeySet("{F2}", "My_Exit") ; Début de la fonction de fermeutur du script, touche F2
;---------------------------------------------------------------------------------------------------------------------------------------------------
$OpenUrl = _FFOpenUrl($Socket, $url_0)
For $dectectionpixel = 1 To 999999 Step 1 ; Vidéo 11-1
    $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8)
    If Not @error Then
        MouseClick("left", $coord[0], $coord[1])
        ExitLoop 1 ; On sort de la boucle
    EndIf
    $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8, 30)
    If Not @error Then
        MouseClick("left", $coord[0], $coord[1])
        ExitLoop 1 ; On sort de la boucle
    EndIf
Next
$f = detecteNouveauChargement()
detecteFinChargement($f, $TAILLE_FICHIER_0)
MouseClick("left", 737, 787, 1)
For $result = 1 To 999999 Step 1
    $result = _ImageSearch("11.bmp", 0, $x1, $y1, 0)
    If $result = 1 Then
        $OpenUrl = _FFOpenUrl($Socket, $url_1)
        ExitLoop 1 ; On sort de la boucle
    EndIf
Next
; --------------------------------------------------------------------------------------------------------------------------------------------------
While 1 ; Début de la boucle du scripte
    ; --------------------------------------------------------------------------------------------------------------------------------------------------
    $Verif0 = 1
    For $dectectionpixel = 1 To 999999 Step 1 ; Vidéo 1
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8, 30)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 2
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_1)
    MouseClick("left", 736, 787, 1)
    $Verif0 = 3
    For $result = 1 To 999999 Step 1
        $result = _ImageSearch("1.bmp", 0, $x1, $y1, 0)
        If $result = 1 Then
            $OpenUrl = _FFOpenUrl($Socket, $url_2)
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 4


    ; ------------------------------------------------------------------------------------------------------------------------------------------------------
    For $dectectionpixel = 1 To 999999 Step 1 ; Vidéo 2
        $coord = PixelSearch(525, 815, 535, 827, 0xC4C8B8)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
        $coord = PixelSearch(525, 815, 535, 827, 0xC4C8B8, 30)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 5
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_2)
    MouseClick("left", 736, 819, 1)
    $Verif0 = 6
    For $result = 1 To 999999 Step 1
        $result = _ImageSearch("2.bmp", 0, $x1, $y1, 0)
        If $result = 1 Then
            $OpenUrl = _FFOpenUrl($Socket, $url_3)
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 7



    ; ---------------------------------------------------------------------------------------------------------------------------------------------------
    For $dectectionpixel = 1 To 999999 Step 1 ; Vidéo 3
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8, 30)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 8
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_3)
    MouseClick("left", 736, 787, 1)
    $Verif0 = 9
    For $result = 1 To 999999 Step 1
        $result = _ImageSearch("3.bmp", 0, $x1, $y1, 0)
        If $result = 1 Then
            $OpenUrl = _FFOpenUrl($Socket, $url_4)
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 10
    ; ---------------------------------------------------------------------------------------------------------------------------------------------------
    For $dectectionpixel = 1 To 999999 Step 1 ; Vidéo 4
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8, 30)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 11
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_4)
    MouseClick("left", 736, 787, 1)
    $Verif0 = 12
    For $result = 1 To 999999 Step 1
        $result = _ImageSearch("4.bmp", 0, $x1, $y1, 0)
        If $result = 1 Then
            $OpenUrl = _FFOpenUrl($Socket, $url_5)
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 13
    ; ----------------------------------------------------------------------------------------------------------------------------------------------------
    For $dectectionpixel = 1 To 999999 Step 1 ; Vidéo 5
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8, 30)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 14
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_5)
    MouseClick("left", 736, 787, 1)
    $Verif0 = 15
    For $result = 1 To 999999 Step 1
        $result = _ImageSearch("5.bmp", 0, $x1, $y1, 0)
        If $result = 1 Then
            $OpenUrl = _FFOpenUrl($Socket, $url_6)
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 16
    ; --------------------------------------------------------------------------------------------------------------------------------------------------
    For $dectectionpixel = 1 To 999999 Step 1 ; Vidéo 6
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8, 30)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 17
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_6)
    MouseClick("left", 736, 787, 1)
    $Verif0 = 18
    For $result = 1 To 999999 Step 1
        $result = _ImageSearch("6.bmp", 0, $x1, $y1, 0)
        If $result = 1 Then
            $OpenUrl = _FFOpenUrl($Socket, $url_7)
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 19
    ; ---------------------------------------------------------------------------------------------------------------------------------------------------
    For $dectectionpixel = 1 To 999999 Step 1 ; Vidéo 7
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8, 30)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 20
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_7)
    MouseClick("left", 736, 787, 1)
    $Verif0 = 21
    For $result = 1 To 999999 Step 1
        $result = _ImageSearch("7.bmp", 0, $x1, $y1, 0)
        If $result = 1 Then
            $OpenUrl = _FFOpenUrl($Socket, $url_8)
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 22
    ; ---------------------------------------------------------------------------------------------------------------------------------------------------
    For $dectectionpixel = 1 To 999999 Step 1 ; Vidéo 8
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8, 30)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 23
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_8)
    MouseClick("left", 736, 787, 1)
    $Verif0 = 24
    For $result = 1 To 999999 Step 1
        $result = _ImageSearch("8.bmp", 0, $x1, $y1, 0)
        If $result = 1 Then
            $OpenUrl = _FFOpenUrl($Socket, $url_9)
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 25
    ; ---------------------------------------------------------------------------------------------------------------------------------------------------
    For $dectectionpixel = 1 To 999999 Step 1 ; Vidéo 9
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8, 30)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 26
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_9)
    MouseClick("left", 736, 787, 1)
    $Verif0 = 27
    For $result = 1 To 999999 Step 1
        $result = _ImageSearch("9.bmp", 0, $x1, $y1, 0)
        If $result = 1 Then
            $OpenUrl = _FFOpenUrl($Socket, $url_10)
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 28
    ; ---------------------------------------------------------------------------------------------------------------------------------------------------
    For $dectectionpixel = 1 To 999999 Step 1 ; Vidéo 10
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8, 30)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 29
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_10)
    MouseClick("left", 737, 787, 1)
    $Verif0 = 30
    For $result = 1 To 999999 Step 1
        $result = _ImageSearch("10.bmp", 0, $x1, $y1, 0)
        If $result = 1 Then
            $OpenUrl = _FFOpenUrl($Socket, $url_11)
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 31
    ; --------------------------------------------------------------------------------------------------------------------------------------------------
    For $dectectionpixel = 1 To 999999 Step 1 ; Vidéo 11-2
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
        $coord = PixelSearch(525, 780, 535, 795, 0xC4C8B8, 30)
        If Not @error Then
            MouseClick("left", $coord[0], $coord[1])
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 32
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_0)
    MouseClick("left", 736, 787, 1)
    $Verif0 = 33
    For $result = 1 To 9999999 Step 1
        $result = _ImageSearch("11.bmp", 0, $x1, $y1, 0)
        If $result = 1 Then
            $OpenUrl = _FFOpenUrl($Socket, $url_1)
            ExitLoop 1 ; On sort de la boucle
        EndIf
    Next
    $Verif0 = 34
    ; -------------------------------------------------------------------------------------------------------------------------------------------------
WEnd ; Fin de la boucle du script
; -------------------------------------------------------------------------------------------------------------------------------------------------
Func detecteNouveauChargement() ; Contrôle de chargement des vidéo dans le dossier temporaire de Mozila Firfox
    Local $i, $fFlaTmp
    Local $dateCreation, $dateFichier, $dateActuelle

    $dateActuelle = @YEAR & @MON & @MDAY & @HOUR & @MIN & @SEC

    While 1
        $fFlaTmp = _FileListToArray(@TempDir, "fla*.tmp", 1)

        If Not @error Then
            For $i = 1 To $fFlaTmp[0]
                $dateCreation = FileGetTime(@TempDir & "\" & $fFlaTmp[$i], _
                        1, _ ; date création
                        1) ; format YYYYMMDDHHMMSS

                ; si un nouveau fichier fla*.tmp a été créé alors on sort des boucles
                If $dateCreation > $dateActuelle Then ExitLoop 2
            Next
        EndIf

        Sleep(250)
    WEnd

    ; retourne le nom du fichier en chargement
    Return $fFlaTmp[$i]
EndFunc   ;==>detecteNouveauChargement

Func detecteFinChargement($nomFichier, $tailleFichier)
    Do
        Sleep(250)
    Until FileGetSize(@TempDir & "\" & $nomFichier) = $tailleFichier
EndFunc   ;==>detecteFinChargement
; ----------------------------------------------------------------------------------------------------------------------------------------------------
Func My_Exit() ; Fin de la fonction de fermetur du script
    Exit 0
EndFunc   ;==>My_Exit






Func verif()
    $Verif2 = $Verif0
    If $Verif2 = $Verif1 then
        If TimerDiff($vtimer) > 30000 ;temps de la verif
            WinClose("[REGEXPTITLE:Mozilla]", "")
            Sleep(30000)
            $Verif2 = $Verif0
            If Not @Compiled Then
                ShellExecute(@AutoItExe, @ScriptFullPath)
            Else
                ShellExecute(@ScriptFullPath)
            EndIf
            Exit
        EndIf
    Else
        $vtimer = TimerInit()
        $Verif1 = $Verif0
    EndIf
EndFunc   ;==>verif

Il me met que l'erreur est a la ligne 411 lorsque le script n'est pas compilé par raport a ce code.

Code : Tout sélectionner

If TimerDiff($vtimer) > 30000 ;temps de la verif

[Iste]

If TimerDiff($vtimer) > 30000 then ;temps de la verif

hééé, essaye de trouver tout seul un peu des fois ^^

[JIF]

Merci de tes réponses Iste, J'ai fait les derniers test ce matin et je penses que ce surjet est clôt.
Tout a l'air de fonctionné impeccablement.

Cordialement JIF,