[R] URL Mozilla Firefox

[JIF]

Bonsoir à vous tous; J'aimerais connaitre le code de programmation pour que mon script ouvre des URLs à partir de Mozilla Firefox.
ex : fonction ("http://xxx.com")

Merci de me répondre

Cordialement JIF

[jumby]

ShellExecute("http://xxx.com")

[Tlem]

jumby vous à donné la réponse, mais si Firefox n'est pas le navigateur par défaut, alors ça ne fonctionne plus.

Dans ce cas passez par :

Code : Tout sélectionner

ShellExecute(@ProgramFilesDir & "\Mozilla Firefox\firefox.exe", "http://xxx.com")

[JIF]

Merci de m'avoir répondu. Effectivement le code fonctionne bien; mais actuellement le script ouvre les URLs dans un nouvel onglet de Mozilla Firefox. Or j'aimerais qu'il reste sur un seul onglé.

Actuellement j'ai fait sa :

Code : Tout sélectionner

ShellExecute(@ProgramFilesDir & "\Mozilla Firefox\firefox.exe", "http://xxx.com")

Merci de me répondre.

Cordialement JIF

[Tlem]

Je pense que pour cela vous devrez passer par ici.

[JIF]

Merci de m'avoir répondu, Mais j'ai un problème lors de l'utilisation avec les différentes fonction de FF. Je n'arrives pas a utilisé celle de _FFOpenURL. J'ai pourtant mi le fichier FF dans le dossier ou ce situe mon script et j'ai structuré mon script de cette façon :

► Afficher le texte

Code : Tout sélectionner

#NoTrayIcon                                                                             ; Include
#include <File.au3>
#include <ImageSearch.au3>
; --------------------------------------------------------------------------------------------------------------------------------------------------
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
; --------------------------------------------------------------------------------------------------------------------------------------------------
$x1=0                                                                                    ; Détéction d'Image
$y1=0
;---------------------------------------------------------------------------------------------------------------------------------------------------
    HotKeySet("{F2}", "My_Exit")                                                         ; Début de la fonction de fermeutur du script, touche F2
;---------------------------------------------------------------------------------------------------------------------------------------------------
    ShellExecute("http://cours-echecs.blogspot.com/")                                    ; Démarage de Mozila Firefox  
; --------------------------------------------------------------------------------------------------------------------------------------------------
For $dectectionpixel = 1 to 9999999 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 9999999 step 1
    $result = _ImageSearch("11.bmp", 0, $x1, $y1, 0)
    if $result=1 Then

    [color=#FF0000]_FFOpenURL ("http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B01")   ;     Erreur  [/color] 

Exitloop 1 ; On sort de la boucle
EndIf
Next
    $checksum = PixelChecksum(550, 370, 900, 400)
While $checksum = PixelChecksum(550, 370, 900, 400)
    Sleep(200)
WEnd
; --------------------------------------------------------------------------------------------------------------------------------------------------
While 1                                                                                  ; Début de la boucle du scripte
; --------------------------------------------------------------------------------------------------------------------------------------------------
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
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_1)
    MouseClick("left", 736, 787, 1)
For $result = 1 to 999999 step 1
    $result = _ImageSearch("1.bmp", 0, $x1, $y1, 0)
If  $result=1 Then
    [color=#0000BF]MouseClick("left", 380, 400, 1)[/color]
Exitloop 1 ; On sort de la boucle
EndIf
Next
    $checksum = PixelChecksum(550, 370, 900, 400)
While $checksum = PixelChecksum(550, 370, 900, 400)
    Sleep(200)
WEnd
; ------------------------------------------------------------------------------------------------------------------------------------------------------
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
    $f = detecteNouveauChargement()                                             
    detecteFinChargement($f, $TAILLE_FICHIER_2)                                 
    MouseClick("left", 736, 819, 1)
For $result = 1 to 999999 step 1
    $result = _ImageSearch("2.bmp", 0, $x1, $y1, 0)
If  $result=1 Then
[color=#0000BF]    MouseClick("left", 380, 420, 1)[/color]
Exitloop 1 ; On sort de la boucle
EndIf
Next
    $checksum = PixelChecksum(550, 370, 900, 400)
While $checksum = PixelChecksum(550, 370, 900, 400)
    Sleep(200)
WEnd
; ---------------------------------------------------------------------------------------------------------------------------------------------------
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
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_3)
    MouseClick("left", 736, 787, 1) 
For $result = 1 to 999999 step 1
    $result = _ImageSearch("3.bmp", 0, $x1, $y1, 0)
If  $result=1 Then
[color=#0000BF]    MouseClick("left", 380, 435, 1)[/color]
Exitloop 1 ; On sort de la boucle
EndIf
Next
    $checksum = PixelChecksum(550, 370, 900, 400)
While $checksum = PixelChecksum(550, 370, 900, 400)
    Sleep(200)
WEnd
; ---------------------------------------------------------------------------------------------------------------------------------------------------
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
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_4)
    MouseClick("left", 736, 787, 1)
For $result = 1 to 999999 step 1
    $result = _ImageSearch("4.bmp", 0, $x1, $y1, 0)
If  $result=1 Then
[color=#0000BF]MouseClick("left", 380, 450, 1)[/color]
Exitloop 1 ; On sort de la boucle
EndIf
Next
    $checksum = PixelChecksum(550, 370, 900, 400)
While $checksum = PixelChecksum(550, 370, 900, 400)
    Sleep(200)
WEnd
; ----------------------------------------------------------------------------------------------------------------------------------------------------
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
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_5)
    MouseClick("left", 736, 787, 1)
For $result = 1 to 999999 step 1
    $result = _ImageSearch("5.bmp", 0, $x1, $y1, 0)
If  $result=1 Then
[color=#0000BF]     MouseClick("left", 380, 465, 1)[/color]
Exitloop 1 ; On sort de la boucle
EndIf
Next
    $checksum = PixelChecksum(550, 370, 900, 400)
While $checksum = PixelChecksum(550, 370, 900, 400)
    Sleep(200)
WEnd
; ----------------------------------------------------------------------------------------------------------------------------------------------------
 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
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_6)
    MouseClick("left", 736, 787, 1)
For $result = 1 to 999999 step 1
    $result = _ImageSearch("6.bmp", 0, $x1, $y1, 0)
If  $result=1 Then
[color=#0000BF]    MouseClick("left", 380, 480, 1)[/color]
Exitloop 1 ; On sort de la boucle
EndIf
Next
    $checksum = PixelChecksum( 550, 370, 900, 400)
While $checksum = PixelChecksum( 550, 370, 900, 400)
    Sleep(200)
WEnd
; ---------------------------------------------------------------------------------------------------------------------------------------------------
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
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_7)
    MouseClick("left", 736, 787, 1)
For $result = 1 to 999999 step 1
    $result = _ImageSearch("7.bmp",0, $x1, $y1, 0)
If  $result=1 Then
[color=#0000BF]    MouseClick("left", 380, 495, 1)[/color]
Exitloop 1 ; On sort de la boucle
EndIf
Next
    $checksum = PixelChecksum(550, 370, 900, 400)
While $checksum = PixelChecksum(550, 370, 900, 400)
    Sleep(50)
WEnd                                                                
; ---------------------------------------------------------------------------------------------------------------------------------------------------
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
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_8)
    MouseClick("left", 736, 787, 1)
For $result = 1 to 999999 step 1
    $result = _ImageSearch("8.bmp",0, $x1, $y1, 0)
If $result=1 Then
[color=#0000BF]    MouseClick("left", 380, 510, 1)[/color]
Exitloop 1 ; On sort de la boucle
EndIf
Next
    $checksum = PixelChecksum(550, 370, 900, 400)
While $checksum = PixelChecksum(550, 370, 900, 400)
    Sleep(200)
WEnd    
; ---------------------------------------------------------------------------------------------------------------------------------------------------
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
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_9)
    MouseClick("left", 736, 787, 1)
For $result = 1 to 999999 step 1
    $result = _ImageSearch("9.bmp", 0, $x1, $y1, 0)
If  $result=1 Then
[color=#0000BF]    MouseClick("left", 380, 525, 1)[/color]
Exitloop 1 ; On sort de la boucle
EndIf
Next
    $checksum = PixelChecksum(550, 370, 900, 400)
While $checksum = PixelChecksum(550, 370, 900, 400)
    Sleep(50)
WEnd    
; ---------------------------------------------------------------------------------------------------------------------------------------------------
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
    $f = detecteNouveauChargement()                                             
    detecteFinChargement($f, $TAILLE_FICHIER_10)                                
    MouseClick("left", 737, 787, 1)
For $result = 1 to 999999 step 1
    $result = _ImageSearch("10.bmp", 0, $x1, $y1, 0)
    if $result=1 Then
[color=#0000BF]    MouseClick("left", 380, 545, 1)[/color]
Exitloop 1 ; On sort de la boucle
EndIf
Next
    $checksum = PixelChecksum(550, 370, 900, 400)
While $checksum = PixelChecksum(550, 370, 900, 400)
    Sleep(200)
WEnd
; ---------------------------------------------------------------------------------------------------------------------------------------------------
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
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_0)
    MouseClick("left", 736, 787, 1)
For $result = 1 to 9999999 step 1
    $result = _ImageSearch("11.bmp", 0, $x1, $y1, 0)
If  $result=1 Then
[color=#0000BF]   MouseClick("left", 380, 385, 1)[/color]
Exitloop 1 ; On sort de la boucle
EndIf
Next
    $checksum = PixelChecksum(550, 370, 900, 400)
While $checksum = PixelChecksum(550, 370, 900, 400)
    Sleep(200)
WEnd
; -------------------------------------------------------------------------------------------------------------------------------------------------
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.

Je comptes remplacer le rouge par le bleu . Actuellement il me met un message d'erreur "Uknown Function name".

Comment je peus faire pour ouvrir une URL internet à partir de Mozzila Firefox ?

Merci de me répondre.

Cordialement JIF,

[Tlem]

Avez-vous installé MozRepl ?
Si non, faites quelques recherches sur le forum ...

[JIF]

MozRepl fait partit de Mozlab et je ne peux pas installer l'add on car Mozzila Firefox me dit que ces add est compatible pour une enciènne verssion de Mozzila Firefox. J'ai la version 3.0.11.
Ou faire des recherche sur le forum ? Je suis allez sur le lien que vous m'avais dit si dessus.

Merci de me répondre.

Cordialement JIF,

[JIF]

J'ai réussi a installé l'add on MozRep, mais mon script mais toujours le même message d'erreur. SVP aidez moi.

Cordialement JIF,

[ani]

l'erreur unknow function name (signifie le nom de la fonction est inconnu)
_FFOpenURL ? vous avez oumis d'indiquer l'include FF.au3 ?

bonne continuation

[JIF]

Non, J'ai bien mit l'include FF.au3

Code : Tout sélectionner

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

L'include fonctionne bien vu que la détection de fin de chargement de mes vidéos a besoin de cette include pour fonctionné.
D'où pourrai venir le problème ?

Cordialement JIF,

[Iste]

heu.... moi je vois pas l'include dans ton code hein

[Tlem]

[JIF]

Lorsque je met juste ce code.

Code : Tout sélectionner

#include <FF.au3>
_FFOpenURL ("http://google.fr")

Il me met ce message d'erreur : erreur à la ligne 2 "Exepted a variable in r fuction call

Je viens de corriger mon erreur si dessus, mais j'arrive toujours pas a faire fonctionné ce code. Je met bien mozrepl en positon de start pourtant.

Ou est le problème ?

Cordialement JIF,

[Iste]

Tu as regardé dans FF.au3 si la fonction y était ?
Tu as peut etre une version trop vielle ou differente de l'UDF
C'est du moins la cause la plus probable.

[ani]

on reprend...

La fonction utilisé est réelement incorrect...relisez l'include

Code : Tout sélectionner

_FFOpenURL(ByRef $Socket, $sURL[, $iTabIndex = 0[, $bWait = True]])

$Socket = ouverture du port avec l'ip (de ce genre là TCPConnect($IP, $iPort))
$Url = url

Sinon le mieux serait d'utiliser la fonction

Code : Tout sélectionner

_FFStart([$sURL = "about:blank"[, $sProfile = "default"[, $iMode = 1[, $bHide = False[, $IP = "127.0.0.1"[, $iPort = 4242[, $sBrowser = "firefox"]]]]]])

Code : Tout sélectionner

#include <FF.au3>
$Socket = _FFStart("http://www.autoitscript.fr")
If $Socket <> - 1
    msgbox(64,"","Whouaaaa")
EndIf

ou

Code : Tout sélectionner

#include <FF.au3>
$url = "http://www.autoitscript.fr"
$Socket = _FFStart()
If $Socket <> - 1
    $OpenUrl = _FFOpenUrl($socket,$url)
EndIf
 

N'ayant pas firefox, il m'est impossible de tester
bonne continuation

[JIF]

Merci de ta réponse ani, grâce a toi j'ai put avancer dans ma recherche. Actuellement le code fonctionne comme je veux avec le petit script de test.

Code : Tout sélectionner

#include <FF.au3>
$url_0 = "http://google.fr"
$url_1 = "http://x-wars.fr"
$url_2 = "http://www.autoitscript.fr"
$url_3 = "http://www.ogame.fr"
$Socket = _FFStart()
While 1
if Not @error Then
    $OpenUrl = _FFOpenUrl($socket,$url_0)
EndIf
if Not @error Then
    $OpenUrl = _FFOpenUrl($socket,$url_1)
EndIf
if Not @error Then
    $OpenUrl = _FFOpenUrl($socket,$url_2)
EndIf
if Not @error Then
    $OpenUrl = _FFOpenUrl($socket,$url_3)
EndIf
wend

Le dernier problème reste a l'intégrer au script principal. Le script ne met pas de mésusage d'erreur, mais au lancement du script il ouvre bien Mozzila Firefox et ma page d'accueil, mais tout de suite après il me lance une page blanche, et la plus rien. Il ne lance pas plus la vidéo et le reste. Voici mon script princil actuelement avec les changement éffectué.

► Afficher le texte

Code : Tout sélectionner

#NoTrayIcon                                                                             ; Include
#include <File.au3>
#include <ImageSearch.au3>
#include <FF.au3>
; --------------------------------------------------------------------------------------------------------------------------------------------------
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
; ---------------------------------------------------------------------------------------------------------------------------------------------------
[color=#FF0000] $url_1 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B01"
    $url_2 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B02"
    $url_3 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B03r"
    $url_4 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B04"
    $url_5 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B05"
    $url_6 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B06"
    $url_7 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B07"
    $url_8 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B08"
    $url_9 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B09"
    $url_10 = "http://cours-echecs.blogspot.com/search/label/cours_n%C2%B010"
    $url_11 = "http://cours-echecs.blogspot.com/search/label/cours_n%C2%B011"[/color]
; --------------------------------------------------------------------------------------------------------------------------------------------------
    $x1=0                                                                                ; Détéction d'Image
    $y1=0
;---------------------------------------------------------------------------------------------------------------------------------------------------
    HotKeySet("{F2}", "My_Exit")                                                         ; Début de la fonction de fermeuture du script, touche F2
;---------------------------------------------------------------------------------------------------------------------------------------------------
[color=#FF0000] $Socket = _FFStart()    [/color]                                                             ; Démarage de Mozila Firefox  
; --------------------------------------------------------------------------------------------------------------------------------------------------
For $dectectionpixel = 1 to 9999999 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 9999999 step 1
    $result = _ImageSearch("11.bmp", 0, $x1, $y1, 0)
If $result=1 Then
    
    
    
[color=#FF0000]    $OpenUrl = _FFOpenUrl($socket,$url_1)[/color]


    
    Exitloop 1 ; On sort de la boucle
EndIf
Next
    $checksum = PixelChecksum(550, 370, 900, 400)
While $checksum = PixelChecksum(550, 370, 900, 400)
    Sleep(200)
WEnd








; --------------------------------------------------------------------------------------------------------------------------------------------------
While 1                                                                                  ; Début de la boucle du scripte
; --------------------------------------------------------------------------------------------------------------------------------------------------
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
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_1)
    MouseClick("left", 736, 787, 1)
For $result = 1 to 999999 step 1
    $result = _ImageSearch("1.bmp", 0, $x1, $y1, 0)
If  $result=1 Then
Exitloop 1 ; On sort de la boucle
EndIf
Next



[color=#FF0000]    $OpenUrl = _FFOpenUrl($socket,$url_0)[/color]



    $checksum = PixelChecksum(550, 370, 900, 400)
While $checksum = PixelChecksum(550, 370, 900, 400)
    Sleep(200)
WEnd
; ------------------------------------------------------------------------------------------------------------------------------------------------------
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
    $f = detecteNouveauChargement()                                             
    detecteFinChargement($f, $TAILLE_FICHIER_2)                                 
    MouseClick("left", 736, 819, 1)
For $result = 1 to 999999 step 1
    $result = _ImageSearch("2.bmp", 0, $x1, $y1, 0)
If  $result=1 Then
    MouseClick("left", 380, 420, 1)
Exitloop 1 ; On sort de la boucle
EndIf
Next
    $checksum = PixelChecksum(550, 370, 900, 400)
While $checksum = PixelChecksum(550, 370, 900, 400)
    Sleep(200)
WEnd
; ---------------------------------------------------------------------------------------------------------------------------------------------------
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
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_3)
    MouseClick("left", 736, 787, 1) 
For $result = 1 to 999999 step 1
    $result = _ImageSearch("3.bmp", 0, $x1, $y1, 0)
If  $result=1 Then
    MouseClick("left", 380, 435, 1)
Exitloop 1 ; On sort de la boucle
EndIf
Next
    $checksum = PixelChecksum(550, 370, 900, 400)
While $checksum = PixelChecksum(550, 370, 900, 400)
    Sleep(200)
WEnd
; ---------------------------------------------------------------------------------------------------------------------------------------------------
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
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_4)
    MouseClick("left", 736, 787, 1)
For $result = 1 to 999999 step 1
    $result = _ImageSearch("4.bmp", 0, $x1, $y1, 0)
If  $result=1 Then
MouseClick("left", 380, 450, 1)
Exitloop 1 ; On sort de la boucle
EndIf
Next
    $checksum = PixelChecksum(550, 370, 900, 400)
While $checksum = PixelChecksum(550, 370, 900, 400)
    Sleep(200)
WEnd
; ----------------------------------------------------------------------------------------------------------------------------------------------------
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
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_5)
    MouseClick("left", 736, 787, 1)
For $result = 1 to 999999 step 1
    $result = _ImageSearch("5.bmp", 0, $x1, $y1, 0)
If  $result=1 Then
    MouseClick("left", 380, 465, 1)
Exitloop 1 ; On sort de la boucle
EndIf
Next
    $checksum = PixelChecksum(550, 370, 900, 400)
While $checksum = PixelChecksum(550, 370, 900, 400)
    Sleep(200)
WEnd
; ----------------------------------------------------------------------------------------------------------------------------------------------------
 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
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_6)
    MouseClick("left", 736, 787, 1)
For $result = 1 to 999999 step 1
    $result = _ImageSearch("6.bmp", 0, $x1, $y1, 0)
If  $result=1 Then
    MouseClick("left", 380, 480, 1)
Exitloop 1 ; On sort de la boucle
EndIf
Next
    $checksum = PixelChecksum( 550, 370, 900, 400)
While $checksum = PixelChecksum( 550, 370, 900, 400)
    Sleep(200)
WEnd
; ---------------------------------------------------------------------------------------------------------------------------------------------------
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
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_7)
    MouseClick("left", 736, 787, 1)
For $result = 1 to 999999 step 1
    $result = _ImageSearch("7.bmp",0, $x1, $y1, 0)
If  $result=1 Then
    MouseClick("left", 380, 495, 1)
Exitloop 1 ; On sort de la boucle
EndIf
Next
    $checksum = PixelChecksum(550, 370, 900, 400)
While $checksum = PixelChecksum(550, 370, 900, 400)
    Sleep(50)
WEnd                                                                
; ---------------------------------------------------------------------------------------------------------------------------------------------------
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
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_8)
    MouseClick("left", 736, 787, 1)
For $result = 1 to 999999 step 1
    $result = _ImageSearch("8.bmp",0, $x1, $y1, 0)
If $result=1 Then
    MouseClick("left", 380, 510, 1)
Exitloop 1 ; On sort de la boucle
EndIf
Next
    $checksum = PixelChecksum(550, 370, 900, 400)
While $checksum = PixelChecksum(550, 370, 900, 400)
    Sleep(200)
WEnd    
; ---------------------------------------------------------------------------------------------------------------------------------------------------
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
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_9)
    MouseClick("left", 736, 787, 1)
For $result = 1 to 999999 step 1
    $result = _ImageSearch("9.bmp", 0, $x1, $y1, 0)
If  $result=1 Then
    MouseClick("left", 380, 525, 1)
Exitloop 1 ; On sort de la boucle
EndIf
Next
    $checksum = PixelChecksum(550, 370, 900, 400)
While $checksum = PixelChecksum(550, 370, 900, 400)
    Sleep(50)
WEnd    
; ---------------------------------------------------------------------------------------------------------------------------------------------------
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
    $f = detecteNouveauChargement()                                             
    detecteFinChargement($f, $TAILLE_FICHIER_10)                                
    MouseClick("left", 737, 787, 1)
For $result = 1 to 999999 step 1
    $result = _ImageSearch("10.bmp", 0, $x1, $y1, 0)
    if $result=1 Then
    MouseClick("left", 380, 545, 1)
Exitloop 1 ; On sort de la boucle
EndIf
Next
    $checksum = PixelChecksum(550, 370, 900, 400)
While $checksum = PixelChecksum(550, 370, 900, 400)
    Sleep(200)
WEnd
; ---------------------------------------------------------------------------------------------------------------------------------------------------
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
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_0)
    MouseClick("left", 736, 787, 1)
For $result = 1 to 9999999 step 1
    $result = _ImageSearch("11.bmp", 0, $x1, $y1, 0)
If  $result=1 Then
   MouseClick("left", 380, 385, 1)
Exitloop 1 ; On sort de la boucle
EndIf
Next
    $checksum = PixelChecksum(550, 370, 900, 400)
While $checksum = PixelChecksum(550, 370, 900, 400)
    Sleep(200)
WEnd
; -------------------------------------------------------------------------------------------------------------------------------------------------
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

En rouge ce que j'ai rajouté pour testé les 2 premières page.

A mon avie sa doit être un problème avec les boucles. mais comment corriger mon problème ?

Merci de me répondre

Cordialement JIF,

[JIF]

Svp, aidez moi.

[orax]

Si j'ai bien compris ce qui se passe : _FFStart() ouvre une page blanche et ensuite PixelSearch() recherche un pixel d'une certaine couleur sur... une page blanche...
Il faudrait donc ouvrir la page du site avant la boucle qui recherche le pixel.

[JIF]

Bun normalement _FFStart() ouvre mozilla firefox sur ma page d'acceuil. C'est comme sa qu'il a reagis à chaque foi dans mon script de test.
Mais laà, il demare la page sens titre (qui est blanche), des foi il arrive a ouvrir mon site mais au bout de 3 ou 4 seconde il revient sur la page sens titre (blanche).
Le truc était que avant c'étai un mouseclique qui me permetai de changer de page. la je veus que sa soit mozzila firefox lui même qui me change la page.
Mais ce changement de page s'effectu appres que mon script est detecté une certaine image dans la page.

_FFStart() est pourtant placé avant la boucle de detection de pixel.

Merci de me répondre.