[R] Contrôle sur une vidéo en streaming

[JIF]

Le fichier fait toujours la même taille et ne change pas pendant le chargement du fichier.
Ce pendant j'a remarqué qu'il y avais un autre petit fichier en flach (119 ko) qui se télecharger avec mes vidéos et venant aussi de ...... Peut étre, (mais personèlement sa m'aitonerais) que ces ce fichier qui fait disfnonctionné les scripts que j'ai essayé sur ce post. Ce n'est qu'une hypotése, a confirmé.

De plus j'ai remarqué que avec IE 8 j'ai plus de problèm pour suprimé les fichers temporaire que avec l'encien IE7 et je suis entain de me posé la quéstion si mozila forfox partagerais pas le même dossier que IE pour les fichier temporaire et comme je visualise mes vidéos un peut sur les 2 navigateur le problème pourais peut étre venir de la, a confirmé aussi.

[orax]

Le fichier temporaire est une vidéo en flv qui a toujour le même titre et qui a toujour la même taille.

Mais il n'y a pas que la taille qui compte...
Si le fichier à toujours le même titre et la même taille, c'est qu'il est peut-être déjà téléchargé entièrement (en cache). Non ? ctrl + f5 pour le recharger.

Chez moi, dans le répertoire %temp, la taille du fichier fla, pour la vidéo 1, augmente de 0 à environ 36 Mo lors du téléchargement. Donc j'ai du louper quelque chose puisque je ne comprends pas où est le problème.

Par exemple, lancez ce script (à tester avec la vidéo 1 : cours n°1), et seulement après lancez la lecture de la vidéo (bien sûr, il ne faut pas que la vidéo soit déjà écrite dans le dossier temp, donc faites ctrl+f5 pour tout recharger). Ca indique le début du chargement et la fin :

► Afficher le texte

Code : Tout sélectionner

#include <array.au3>
#include <File.au3>

Global Const $TAILLE_FICHIER_1 = 38457549

Global $f = detecteNouveauChargement()
MsgBox(0, "", "bing...")

detecteFinChargement($f, $TAILLE_FICHIER_1)
MsgBox(0, "", "rebing...")

Func detecteNouveauChargement()
    Local $i, $fFlaTmp
    Local $dateCreation, $dateFichier, $dateActuelle

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

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

;~      _ArrayDisplay($fFlaTmp)

        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

    Return $fFlaTmp[$i]
EndFunc   ;==>detecteNouveauChargement

Func detecteFinChargement($nomFichier, $tailleFichier)
    Do
        Sleep(250)
    Until FileGetSize(@TempDir & "\" & $nomFichier) = $tailleFichier
EndFunc   ;==>detecteFinChargement

Autre chose, je suppose que vous cliquez sur les liens avec mouseclick() et qu'ensuite vous utilisez sleep() pour attendre que la page soit chargée, sauf que si la page met plus de temps que d'habitude à se charger... ça risque peut-être de poser problème. Vous pourriez éventuellement utiliser PixelChecksum() pour savoir quand la page de Firefox est entièrement chargée (en faisant un PixelChecksum à l'endroit où est situé "Terminé" par exemple). Mais il y a peut-être d'autres solutions pour faire. D'ailleurs, avec IE il n'y aurait pas ce problème.

[JIF]

Merci a vous tous ! J'ai réussi à fair ce que je voulais fair à mon script, notament grace au code d'orax et de son éxplication. Cependant il semblerais que j'ai une petite difficulé lorsque je veut mêtre une boucle whil infinit pour que mon script refaisse toute la manipulation après les 5 visualisations de mes vidéos. Le problème semblerai venir des includes : #include <array.au3>
#include <File.au3>

Je sais pas vraiment ou les mêtres j'ai un peus essayer divers fasson, genre : suprimé les 4 dernièr est laissé la première ou bien en mêtre une seul a l'éxterieur de la boucle principal, mais j'ai des message d'erreur sur divers ligne selon mes tentatives de coriger mon script
actuèlement l'érreur ce situt a la ligne 67.

Voici mon script total actèlement : (bon je suis d'accord avec vous c'est un peut lebordel pour si retrouvé mais je compts renger un peu sa lorsque la v2 de mon script sera finit.)

► Afficher le texte

Code : Tout sélectionner

#NoTrayIcon
HotKeySet("{F2}","My_Exit") 

While 1

MouseClick("left",848, 826, 1)

#include <array.au3>
#include <File.au3>

Global Const $TAILLE_FICHIER_1 = 12313029

Global $f = detecteNouveauChargement()

detecteFinChargement($f, $TAILLE_FICHIER_1)
MouseClick("left", 734, 824, 1)
sleep(5000)
MouseClick("left", 361, 393, 1)
sleep(5000)
MouseClick("left", 847, 826, 1)
sleep(5000)
MouseClick("left", 531, 826, 1)

Func detecteNouveauChargement()
    Local $i, $fFlaTmp
    Local $dateCreation, $dateFichier, $dateActuelle

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

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

;~      _ArrayDisplay($fFlaTmp)

        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

    Return $fFlaTmp[$i]
EndFunc   ;==>detecteNouveauChargement

Func detecteFinChargement($nomFichier, $tailleFichier)
    Do
        Sleep(250)
    Until FileGetSize(@TempDir & "\" & $nomFichier) = $TAILLE_FICHIER_1
EndFunc   ;==>detecteFinChargement




#include <array.au3>
#include <File.au3>

Global Const $TAILLE_FICHIER_2 = 38457549

Global $f = detecteNouveauChargement2()
detecteFinChargement2($f, $TAILLE_FICHIER_2)

MouseClick("left", 734, 824, 1)
sleep(5000)
MouseClick("left", 358, 410, 1)
sleep(5000)
MouseClick("left", 848, 858, 1)
sleep(5000)
MouseClick("left", 531, 857, 1)

Func detecteNouveauChargement2()
    Local $i, $fFlaTmp
    Local $dateCreation, $dateFichier, $dateActuelle

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

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

;~      _ArrayDisplay($fFlaTmp)

        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

    Return $fFlaTmp[$i]
EndFunc   ;==>detecteNouveauChargement

Func detecteFinChargement2($nomFichier, $tailleFichier)
    Do
        Sleep(250)
    Until FileGetSize(@TempDir & "\" & $nomFichier) = $TAILLE_FICHIER_2
EndFunc   ;==>detecteFinChargement




#include <array.au3>
#include <File.au3>

Global Const $TAILLE_FICHIER_3 = 6758656  

Global $f = detecteNouveauChargement3()

detecteFinChargement3($f, $TAILLE_FICHIER_3)
MouseClick("left", 739, 857, 1)
sleep(5000)
MouseClick("left", 356, 426, 1)
sleep(5000)
MouseClick("left", 847, 825, 1)
sleep(5000)
MouseClick("left", 530, 824, 1)

Func detecteNouveauChargement3()
    Local $i, $fFlaTmp
    Local $dateCreation, $dateFichier, $dateActuelle

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

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

;~      _ArrayDisplay($fFlaTmp)

        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

    Return $fFlaTmp[$i]
EndFunc   ;==>detecteNouveauChargement

Func detecteFinChargement3($nomFichier, $tailleFichier)
    Do
        Sleep(250)
    Until FileGetSize(@TempDir & "\" & $nomFichier) = $TAILLE_FICHIER_3
EndFunc   ;==>detecteFinChargement





#include <array.au3>
#include <File.au3>

Global Const $TAILLE_FICHIER_4 = 25025090 

Global $f = detecteNouveauChargement4()

detecteFinChargement4($f, $TAILLE_FICHIER_4)
MouseClick("left", 734, 824, 1)
sleep(5000)
MouseClick("left", 352, 440, 1)
sleep(5000)
MouseClick("left", 847, 825, 1)
sleep(5000)
MouseClick("left", 530, 824, 1)

Func detecteNouveauChargement4()
    Local $i, $fFlaTmp
    Local $dateCreation, $dateFichier, $dateActuelle

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

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

;~      _ArrayDisplay($fFlaTmp)

        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

    Return $fFlaTmp[$i]
EndFunc   ;==>detecteNouveauChargement

Func detecteFinChargement4($nomFichier, $tailleFichier)
    Do
        Sleep(250)
    Until FileGetSize(@TempDir & "\" & $nomFichier) = $TAILLE_FICHIER_4
EndFunc   ;==>detecteFinChargement




#include <array.au3>
#include <File.au3>

Global Const $TAILLE_FICHIER_5 = 12313029

Global $f = detecteNouveauChargement5()

detecteFinChargement5($f, $TAILLE_FICHIER_5)
MouseClick("left", 734, 824, 1)
sleep(5000)
WinClose("[REGEXPTITLE:Mozilla Firefox]", "")       ; Déconnection/Reconnection  live box
sleep(5000)
MouseClick("left", 155, 1008, 1)
sleep(5000)
MouseClick("left", 336, 99, 1)
sleep(5000)
MouseClick("left", 939, 256, 1)
sleep(5000)
MouseClick("left", 748, 709, 1)
sleep(15000)
MouseClick("left", 748, 710, 1)
sleep(15000)
WinClose("[REGEXPTITLE:Livebox-950c]", "")
Func detecteNouveauChargement5()
    Local $i, $fFlaTmp
    Local $dateCreation, $dateFichier, $dateActuelle

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

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

;~      _ArrayDisplay($fFlaTmp)

        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

    Return $fFlaTmp[$i]
EndFunc   ;==>detecteNouveauChargement

Func detecteFinChargement5($nomFichier, $tailleFichier)
    Do
        Sleep(250)
    Until FileGetSize(@TempDir & "\" & $nomFichier) = $TAILLE_FICHIER_5
EndFunc   ;==>detecteFinChargement

WEnd                                                    ; Fin de la boucle général

Func My_Exit()                                                  ; Fin de la fonction de fermetur du script
    Exit 0
EndFunc

[Tlem]

@JIF
Lorsque vous avez un code de trois kilomètre de long, pensez à le placer entre des balises spoiler.
Essayez aussi de faire un peut plus d'effort sur la rédaction de vos messages (une faute par ligne ça passe, mais à pratiquement tous les mots, c'est fatigant à lire).

[Iste]

Les include sont a placer une seule foi au tout début du script.

Bon, apres, c'est pas trop grave si on fait pas comme ca, mais dans certain cas ca peut le devenir.

[orax]

[...] après les 5 visualisations de mes vidéos

Eh ! Le script détecte la fin du téléchargement de la vidéo et non la fin de la visualisation.

Le script devrait plutôt ressembler à ça (non testé) :

► Afficher le texte

Code : Tout sélectionner

#NoTrayIcon

#include <File.au3>

;
; IMPORTANT !!
;
; il faudrait revoir la taille des fichiers
;
Global Const $TAILLE_FICHIER_1 = 38457549 ; taille bonne
Global Const $TAILLE_FICHIER_2 = 38457549 ; taille mauvaise (?)
Global Const $TAILLE_FICHIER_3 = 6758656
Global Const $TAILLE_FICHIER_4 = 25025090
Global Const $TAILLE_FICHIER_5 = 12313029

Global $f ; nom du fichier

HotKeySet("{F2}", "My_Exit")

While 1
    MouseClick("left", 848, 826, 1)

    ;
    ; 1
    ;
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_1)

    MouseClick("left", 734, 824, 1)
    Sleep(5000)
    MouseClick("left", 361, 393, 1)
    Sleep(5000)
    MouseClick("left", 847, 826, 1)
    Sleep(5000)
    MouseClick("left", 531, 826, 1)

    ;
    ; 2
    ;
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_2)

    MouseClick("left", 734, 824, 1)
    Sleep(5000)
    MouseClick("left", 358, 410, 1)
    Sleep(5000)
    MouseClick("left", 848, 858, 1)
    Sleep(5000)
    MouseClick("left", 531, 857, 1)

    ;
    ; 3
    ;
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_3)

    MouseClick("left", 739, 857, 1)
    Sleep(5000)
    MouseClick("left", 356, 426, 1)
    Sleep(5000)
    MouseClick("left", 847, 825, 1)
    Sleep(5000)
    MouseClick("left", 530, 824, 1)

    ;
    ; 4
    ;
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_4)

    MouseClick("left", 734, 824, 1)
    Sleep(5000)
    MouseClick("left", 352, 440, 1)
    Sleep(5000)
    MouseClick("left", 847, 825, 1)
    Sleep(5000)
    MouseClick("left", 530, 824, 1)

    ;
    ; 5
    ;
    $f = detecteNouveauChargement()
    detecteFinChargement($f, $TAILLE_FICHIER_5)

    MouseClick("left", 734, 824, 1)
    Sleep(5000)
    WinClose("[REGEXPTITLE:Mozilla Firefox]", "") ; Déconnection/Reconnection  live box
    Sleep(5000)
    MouseClick("left", 155, 1008, 1)
    Sleep(5000)
    MouseClick("left", 336, 99, 1)
    Sleep(5000)
    MouseClick("left", 939, 256, 1)
    Sleep(5000)
    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

Mais ça fait beaucoup de MouseClick() et de Sleep() quand même...

[JIF]

Merci a vous tous ! J'ai enfain pu finir la v2 de mon script. Le script fonctionne très bien actuélemeant.

[Tlem]

@JIF
Quel navigateur utilisez vous ?

[jbnh]

Sur mozila firfox.

[Tlem]

Pas trés évident car :

De plus j'ai remarqué que avec IE 8 j'ai plus de problèm pour suprimé les fichers temporaire que avec l'encien IE7 et je suis entain de me posé la quéstion si mozila forfox partagerais pas le même dossier que IE pour les fichier temporaire

Supposons que JIF soit effectivement avec FireFox, alors de grâce JIF installez cet AddOn : https://addons.mozilla.org/en-US/firefox/browse/type:3