Code : Tout sélectionner
#NoTrayIcon
#include <File.au3>
; --------------------------------------------------------------------------------------------------------------------------------------------------
Global Const $TAILLE_FICHIER_0 = 26180403 ; Vidéo 10-1
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-2
Global $f ; nom du fichier
HotKeySet("{F2}", "My_Exit")
sleep(5000)
;---------------------------------------------------------------------------------------------------------------------------------------------------
While 1 ; Début de la boucle
; -----------------------------------------------------------------------------------------------------
MouseClick("left", 142, 1008, 1, 1) ; Démarage de Mozila Firefox
; ---------------------------------------------------------------------------------------------------
sleep(10000) ; Vidéo 10-1
MouseClick("left", 848, 805, 1, 1)
MouseClick("left", 848, 788, 1, 1)
$f = detecteNouveauChargement()
detecteFinChargement($f, $TAILLE_FICHIER_0)
MouseClick("left", 740, 790, 1, 1)
Sleep(4000)
MouseClick("left", 380, 390, 1, 1)
; -----------------------------------------------------------------------------------------------------
Sleep(4000) ; Vidéo 1
MouseClick("left", 848, 805, 1, 1)
MouseClick("left", 848, 788, 1, 1)
$f = detecteNouveauChargement()
detecteFinChargement($f, $TAILLE_FICHIER_1)
MouseClick("left", 740, 790, 1, 1)
Sleep(4000)
MouseClick("left", 380, 405, 1, 1)
; ----------------------------------------------------------------------------------------------------
Sleep(4000) ; Vidéo 2
MouseClick("left", 848, 840, 1, 1)
MouseClick("left", 848, 823, 1, 1)
$f = detecteNouveauChargement()
detecteFinChargement($f, $TAILLE_FICHIER_2)
MouseClick("left", 734, 820, 1, 1)
Sleep(3000)
MouseClick("left", 380, 420, 1, 1)
; --------------------------------------------------------------------------------------------------
Sleep(4000) ; Vidéo 3
MouseClick("left", 848, 805, 1, 1)
MouseClick("left", 848, 788, 1, 1)
$f = detecteNouveauChargement()
detecteFinChargement($f, $TAILLE_FICHIER_3)
MouseClick("left", 740, 790, 1, 1)
Sleep(3000)
MouseClick("left", 380, 435, 1, 1)
; -----------------------------------------------------------------------------------------------
Sleep(4000) ; Vidéo 4
MouseClick("left", 848, 805, 1, 1)
MouseClick("left", 848, 788, 1, 1)
$f = detecteNouveauChargement()
detecteFinChargement($f, $TAILLE_FICHIER_4)
MouseClick("left", 740, 790, 1, 1)
sleep(3000)
MouseClick("left", 380, 450, 1, 1)
; -----------------------------------------------------------------------------------------------------
sleep(4000) ; Vidéo 5
MouseClick("left", 848, 805, 1, 1)
MouseClick("left", 848, 788, 1, 1)
$f = detecteNouveauChargement()
detecteFinChargement($f, $TAILLE_FICHIER_5)
MouseClick("left", 740, 790, 1, 1)
sleep(3500)
MouseClick("left", 380, 465, 1, 1)
; ----------------------------------------------------------------------------------------------------
sleep(4000) ; Vidéo 6
MouseClick("left", 848, 805, 1, 1)
MouseClick("left", 848, 788, 1, 1)
$f = detecteNouveauChargement()
detecteFinChargement($f, $TAILLE_FICHIER_6)
MouseClick("left", 740, 790, 1, 1)
Sleep(3500)
MouseClick("left", 380, 485, 1, 1)
; -----------------------------------------------------------------------------------------------------
sleep(4000) ; Vidéo 7
MouseClick("left", 848, 805, 1, 1)
MouseClick("left", 848, 788, 1, 1)
$f = detecteNouveauChargement()
detecteFinChargement($f, $TAILLE_FICHIER_7)
MouseClick("left", 740, 790, 1, 1)
Sleep(3000)
MouseClick("left", 380, 495, 1, 1)
; ----------------------------------------------------------------------------------------------------
sleep(4000) ; Vidéo 8
MouseClick("left", 848, 805, 1, 1)
MouseClick("left", 848, 788, 1, 1)
$f = detecteNouveauChargement()
detecteFinChargement($f, $TAILLE_FICHIER_8)
MouseClick("left", 740, 790, 1, 1)
Sleep(3000)
MouseClick("left", 380, 515, 1, 1)
; ----------------------------------------------------------------------------------------------------
sleep(4000) ; Vidéo 9
MouseClick("left", 848, 805, 1, 1)
MouseClick("left", 848, 788, 1, 1)
$f = detecteNouveauChargement()
detecteFinChargement($f, $TAILLE_FICHIER_9)
MouseClick("left", 740, 790, 1, 1)
Sleep(3000)
MouseClick("left", 380, 530, 1, 1)
; ----------------------------------------------------------------------------------------------------
sleep(4000) ; Vidéo 10-2
MouseClick("left", 848, 805, 1, 1)
MouseClick("left", 848, 788, 1, 1)
$f = detecteNouveauChargement()
detecteFinChargement($f, $TAILLE_FICHIER_10)
MouseClick("left", 740, 790, 1, 1)
; ----------------------------------------------------------------------------------------------------
Sleep(4000) ; Changement d'adresse IP
MouseClick("left", 150, 90, 1, 1)
sleep(2000)
MouseClick("left", 940, 255, 1, 1)
sleep(2000)
MouseClick("left", 750, 700, 1, 1)
sleep(10000)
MouseClick("left", 730, 705, 1, 1)
sleep(5000)
WinClose("[REGEXPTITLE:Mozilla]", "") ; Redémarage de Mozila Firefox
sleep(5000)
; ------------------------------------------------------------------------------------------------------
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