Code : Tout sélectionner
#NoTrayIcon
#include <File.au3>
#Include <FF.au3>
_FFConnect()
Global Const $TAILLE_FICHIER_1 = 12313029
Global Const $TAILLE_FICHIER_2 = 38457549
Global Const $TAILLE_FICHIER_3 = 6758656
Global Const $TAILLE_FICHIER_4 = 25025090
Global Const $TAILLE_FICHIER_5 = 12313029
Global Const $URL_1 = "http://cours-echecs.blogspot.com"
Global Const $URL_2 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B01"
Global Const $URL_3 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B02"
Global Const $URL_4 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B03"
Global Const $URL_5 = "http://cours-echecs.blogspot.com/search/label/cours%20n%C2%B04"
Global $f ; nom du fichier
HotKeySet("{F2}", "My_Exit")
While 1
MouseClick("left", 847, 826, 1)
sleep(10000)
MouseClick("left", 530, 825, 1)
; 1
_FFOpenURL($URL_1)
if @error Then Exit -1
ToolTip("Attente de clic 1",0,0)
$f = detecteNouveauChargement()
detecteFinChargement($f, $TAILLE_FICHIER_1)
MouseClick("left", 742, 824, 1)
Sleep(10000)
MouseClick("left", 361, 393, 1)
Sleep(10000)
MouseClick("left", 847, 826, 1)
sleep(10000)
MouseClick("left", 531, 826, 1)
; 2
_FFOpenURL($URL_2)
if @error Then Exit -1
ToolTip("Attente de clic 2",0,0)
$f = detecteNouveauChargement()
detecteFinChargement($f, $TAILLE_FICHIER_2)
MouseClick("left", 742, 824, 1)
Sleep(10000)
MouseClick("left", 358, 410, 1)
Sleep(10000)
MouseClick("left", 848, 858, 1)
sleep(10000)
MouseClick("left", 531, 857, 1)
; 3
_FFOpenURL($URL_3)
if @error Then Exit -1
ToolTip("Attente de clic 3",0,0)
$f = detecteNouveauChargement()
detecteFinChargement($f, $TAILLE_FICHIER_3)
MouseClick("left", 742, 857, 1)
Sleep(10000)
MouseClick("left", 356, 426, 1)
Sleep(10000)
MouseClick("left", 847, 825, 1)
sleep(10000)
MouseClick("left", 530, 824, 1)
; 4
_FFOpenURL($URL_4)
if @error Then Exit -1
ToolTip("Attente de clic 4",0,0)
$f = detecteNouveauChargement()
detecteFinChargement($f, $TAILLE_FICHIER_4)
MouseClick("left", 742, 824, 1)
Sleep(10000)
MouseClick("left", 352, 440, 1)
Sleep(10000)
MouseClick("left", 847, 825, 1)
sleep(10000)
MouseClick("left", 530, 824, 1)
; 5
_FFOpenURL($URL_5)
if @error Then Exit -1
ToolTip("Attente de clic 4",0,0)
$f = detecteNouveauChargement()
detecteFinChargement($f, $TAILLE_FICHIER_5)
MouseClick("left", 742, 824, 1)
Sleep(10000)
MouseClick("left", 46, 97, 1)
Sleep(10000)
MouseClick("left", 939, 256, 1)
Sleep(10000)
MouseClick("left", 748, 709, 1)
Sleep(15000)
MouseClick("left", 748, 710, 1)
Sleep(15000)
WinClose("[REGEXPTITLE:Livebox-950c]", "")
WEnd
Func detecteNouveauChargement()
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