Page 1 sur 1
[R] Script pour visionner les vidéos YouTube
Posté : lun. 16 déc. 2013 11:02
par Boulanza
Bonsoir,
Ci-dessous un script qui permet de visionner les vidéos de YouTube en streaming.
Y a-t-il un moyen de cacher (rendre invisible) l’explorateur et de ne voir que le lecteur vidéo YouTube et son contenu.
► Afficher le texte
Code : Tout sélectionner
#include <IE.au3>
LireVideoEnStreaming()
Global $complet
Func LireVideoEnStreaming()
$complet = "http://www.youtube.com/watch?feature=player_embedded&v=q1l8QoFOPJk"
$oIE = _IECreate ($complet);, 0, 0)
sleep(6000)
$oLinks = _IELinkGetCollection ($oIE)
For $oLink in $oLinks
If StringCompare($oLink.innerText,"›› Download MP4 ‹‹") = 0 Then
_IEAction($oLink, "click")
ExitLoop
EndIf
Next
EndFunc
Merci pour votre intervention.
Re: [..]Script pour visionner les vidéos YouTube
Posté : lun. 16 déc. 2013 13:06
par julie
oui il est tout a fait possible est ce qeu ceci vous convient
Code : Tout sélectionner
#include <GUIConstantsEx.au3>
#include <IE.au3>
#include <File.au3>
$nomdeficher = "youtube file"
_FileCreate(@TempDir & "\" & $nomdeficher & ".html")
Local $filehtml = FileOpen(@TempDir & "\" & $nomdeficher & ".html", 1)
FileWriteLine($filehtml, '<embed width="853" height="480" src="http://www.youtube.com/v/q1l8QoFOPJk" type="application/x-shockwave-flash"></embed>')
FileClose($filehtml)
$htmlpage = @TempDir & "\" & $nomdeficher & ".html"
$oIE = _IECreateEmbedded()
$hGUI = GUICreate ("test", 900, 500)
GUICtrlCreateObj($oIE, 0, 0,900,530)
GUISetState()
_IENavigate($oIE, "file:///" & $htmlpage)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Re: [..]Script pour visionner les vidéos YouTube
Posté : lun. 16 déc. 2013 13:08
par bloodwolff
Comme ceci par exemple ? Le script n'est pas complet mais il illustre bien ce que j'ai compris de votre problème
Code : Tout sélectionner
#include <ie.au3>
#include <WindowsConstants.au3>
Local $IE = _IECreateEmbedded()
GUICreate("Streaming Youtube", 585, 340, Default, Default, $WS_POPUP)
GUICtrlCreateObj($IE, 0, 0, 585, 340)
GUISetState();
_IENavigate($IE, "about:blank")
_IEDocWriteHTML($IE, '<BODY bgcolor="black" style="overflow-y:hidden"><IFRAME height=315 width=560 src="http://www.youtube.com/embed/RSi9KIu-W4o" frameBorder=0 allowfullscreen></IFRAME></BODY>')
_IEAction($IE, "refresh")
While 1
If GUIGetMsg() = -3 Then ExitLoop
WEnd
Re: [..]Script pour visionner les vidéos YouTube
Posté : lun. 16 déc. 2013 13:10
par bloodwolff
wow et on poste en même temps ! Je jette un oeil sur ton code julie
Edit: En fait on a fait un peu près la même chose
Re: [..]Script pour visionner les vidéos YouTube
Posté : lun. 16 déc. 2013 13:17
par julie
oui en meme temps
ca fait sympa sans les bordures
par contre ton script m'affiche " Cette page ne peut pas s’afficher "
Re: [..]Script pour visionner les vidéos YouTube
Posté : lun. 16 déc. 2013 13:20
par bloodwolff
humm cela viens probablement de la version d'ie installé. De toute façons il n'a qu'à utiliser ton script
Re: [..]Script pour visionner les vidéos YouTube
Posté : lun. 16 déc. 2013 13:38
par jguinch
Sur le même principe que julie et bloodwolff, il y a ce sujet :
http://www.autoitscript.fr/forum/viewto ... 676#p79676
Re: [..]Script pour visionner les vidéos YouTube
Posté : lun. 16 déc. 2013 15:24
par Boulanza
Re-Bonjour,
Oui, c’est exactement se que je voulais, mais je croix qu’il y a un problème de lancement de la vidéo, peut être c’est dû au code html. Mon scripte marche très bine sous Win XP, Vista et W7 est il possible de l’adaptez à vos scriptes ? moi j’ai pas pu !!
Merci à vous tous
A+
Re: [..] Script pour visionner les vidéos YouTube
Posté : mar. 17 déc. 2013 00:18
par Boulanza
Bonjour,
Le scripte de Julie, fonctionne très bien, mais malheureusement, je reviens encore une fois vers vous!. Voilà j'ai un réel problème, je coinces sur une chose peut être trop bête, j'ai essayé les méthodes connues pour lancer automatiquement plusieurs vidéos youtube un après l'autre, sur le scripte dans « FileWriteLine » mes sans succès. Les URL vidéos à intégrer sont dans le le code ci-dessous:
Je vous serez très reconnaissant de bien vouloir m'aider merci..
Re: [..]Script pour visionner les vidéos YouTube
Posté : mar. 17 déc. 2013 00:56
par bloodwolff
Boulanza a écrit :Re-Bonjour,
Oui, c’est exactement se que je voulais, mais je croix qu’il y a un problème de lancement de la vidéo, peut être c’est dû au code html. Mon scripte marche très bine sous Win XP, Vista et W7 est il possible de l’adaptez à vos scriptes ? moi j’ai pas pu !!
Merci à vous tous
A+
Si le problème était que vous deviez le regarder sur youtube, c'est réglé, sinon il faudra plus de précision
► Afficher le texte
Code : Tout sélectionner
#include <ie.au3>
#include <WindowsConstants.au3>
$lien = "http://www.youtube.com/watch?feature=player_embedded&v=q1l8QoFOPJk"
$IDVideo = StringRegExp($lien, "v\\|=(\w+)", 1)
$hauteur = 350
$largeur = 595
$IE = _IECreateEmbedded()
$form = GUICreate("Streaming Youtube", $largeur, $hauteur, Default, Default, $WS_POPUP)
GUISetBkColor(0)
GUICtrlCreateObj($IE, 10, 10, $largeur, $hauteur)
_IENavigate($IE, "www.youtube.com")
_IEDocWriteHTML($IE, '<BODY bgcolor="black" style="overflow-y:hidden"><IFRAME height=' & $hauteur - 35 & ' width=' & $largeur - 35 & ' src="http://www.youtube.com/embed/' & $IDVideo[0] & '?rel=0&autoplay=1" frameBorder=0 allowfullscreen></IFRAME></BODY>')
_IEAction($IE, "refresh")
GUISetState();
HotKeySet("{Esc}", "Quitter")
While 1
$cursor = GUIGetCursorInfo ($form)
If $cursor[0] <= $largeur And $cursor[0] >=0 And _
$cursor[1] <= $hauteur And $cursor[1] >= 0 And _
$cursor[2] = 1 Then
Do
$mouse = MouseGetPos()
WinMove($form,"",$mouse[0]-$cursor[0],$mouse[1]-$cursor[1])
$clicnot = GUIGetCursorInfo ($form)
Until not $clicnot[2]
EndIf
Sleep(50)
WEnd
Func Quitter()
GUIDelete()
exit
EndFunc
J'ai pris un 5 minutes pour ajouter un moyen de la déplacer ainsi que de la fermer. Si vous avez des problèmes à le lancer comme julie il faudrait probablement regarder au niveau des balises incompatible avec certaines versions d'Ie.
Re: [..] Script pour visionner les vidéos YouTube
Posté : mar. 17 déc. 2013 09:39
par Boulanza
Bonjour,
Premièrement, je tenais à remercier tous les intervenants de ce forum pour leur aide, leur patience et je vous souhaite une bonne et heureuse année 2014
En reponse à BloodWolff, oui le problème est réglé, il a fallu juste ajuster URL vidéo dans le script de Julie « FileWriteLine », donc le lancement de la vidéo sous Internet Explorer est sans problème voir code Julie ci-dessous.
► Afficher le texte
#include <GUIConstantsEx.au3>
#include <IE.au3>
#include <File.au3>
Global $nomdeficher = "youtube file"
_FileCreate(@TempDir & "\" & $nomdeficher & ".html")
Local $filehtm = FileOpen(@TempDir & "\" & $nomdeficher & ".html", 1)
FileWriteLine($filehtm, '<iframe width="865" height="480" src="
http://www.youtube.com/v/q1l8QoFOPJk" type="application/x-shockwave-flash"></embed>')
FileClose($filehtm)
$htmlpage = @TempDir & "\" & $nomdeficher & ".html"
$oIE = _IECreateEmbedded()
$hGUI = GUICreate ("Test", 886, 495)
GUICtrlCreateObj($oIE, 0, 0,920,530)
GUISetState()
_IENavigate($oIE, "file:///" & $htmlpage)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Par contre votre script est aussi bien, sinon le meilleur sur le plan conception, c’est exactement ce que je cherchais, malheureusement la vidéo ne se lance pas (par défaut) sous Internet Explorer !! ?.
Encore une fois je renouvelle ma demande : Comment lancer automatiquement plusieurs vidéos youtube un après l'autre, sur le scripte dans « FileWriteLine » des URL suivant :
;"
http://www.youtube.com/v/q1l8QoFOPJk"
;"
http://www.youtube.com/v/XqH6SIG4f-M"
;"
http://www.youtube.com/v/QAMYOLiFXPQ"
Cordialement
Re: [..] Script pour visionner les vidéos YouTube
Posté : mar. 17 déc. 2013 11:32
par Boulanza
Bonjour,
En ajustant le code « _IEDocWriteHTML » du script de BloodWolff par rapport à celui de Julie, la lecture des vidéos sur Youtube sous Internet Explorer marche impeccablement. Mais malheureusement, je n’arrive pas à coder le lancer automatiquement de plusieurs vidéos youtube un après l'autre, sur le scripte vos scriptes. Je cherche toujours votre aide, merci.
► Afficher le texte
#include <ie.au3>
#include <WindowsConstants.au3>
; $lien = "
http://www.youtube.com/watch?feature=pl ... 1l8QoFOPJk"
; $IDVideo = StringRegExp($lien, "v\\|=(\w+)", 1)
$hauteur = 450
$largeur = 695
$IE = _IECreateEmbedded()
$form = GUICreate("Streaming Youtube", $largeur, $hauteur, Default, Default, $WS_POPUP)
GUISetBkColor(0)
GUICtrlCreateObj($IE, 10, 10, $largeur, $hauteur)
_IENavigate($IE, "
www.youtube.com")
; _IEDocWriteHTML($IE, '<BODY bgcolor="black" style="overflow-y:hidden"><IFRAME height=' & $hauteur - 35 & ' width=' & $largeur - 35 & ' src="
http://www.youtube.com/embed/' & $IDVideo[0] & '?rel=0&autoplay=1" frameBorder=0 allowfullscreen></IFRAME></BODY>')
_IEDocWriteHTML($IE, '<BODY bgcolor="black" style="overflow-y:hidden"><IFRAME height=' & $hauteur - 35 & ' width=' & $largeur - 35 & ' src="
http://www.youtube.com/v/q1l8QoFOPJk" type="application/x-shockwave-flash"></embed>')
_IEAction($IE, "refresh")
GUISetState();
HotKeySet("{Esc}", "Quitter")
While 1
$cursor = GUIGetCursorInfo ($form)
If $cursor[0] <= $largeur And $cursor[0] >=0 And _
$cursor[1] <= $hauteur And $cursor[1] >= 0 And _
$cursor[2] = 1 Then
Do
$mouse = MouseGetPos()
WinMove($form,"",$mouse[0]-$cursor[0],$mouse[1]-$cursor[1])
$clicnot = GUIGetCursorInfo ($form)
Until not $clicnot[2]
EndIf
Sleep(50)
WEnd
Func Quitter()
Re: [..] Script pour visionner les vidéos YouTube
Posté : mar. 17 déc. 2013 11:39
par bloodwolff
Quand souhaitez vous que le deuxième video se lance? automatiquement a la fin du premier ou selon un action de l'utilisateur ?
Et c'Est bien parce que sa fais mal aux yeux. Remplacer
Code : Tout sélectionner
_IEDocWriteHTML($IE, '<BODY bgcolor="black" style="overflow-y:hidden"><IFRAME height=' & $hauteur - 35 & ' width=' & $largeur - 35 & ' src="http://www.youtube.com/v/q1l8QoFOPJk" type="application/x-shockwave-flash">[color=#FF0000]</embed>[/color]')
par
Code : Tout sélectionner
_IEDocWriteHTML($IE, '<BODY bgcolor="black" style="overflow-y:hidden"><IFRAME height=' & $hauteur - 35 & ' width=' & $largeur - 35 & ' src="http://www.youtube.com/v/q1l8QoFOPJk" type="application/x-shockwave-flash">[color=#FF0000]</IFRAME></BODY>[/color]')
Re: [..] Script pour visionner les vidéos YouTube
Posté : mar. 17 déc. 2013 12:57
par Boulanza
Merci d'avoir répondu si vite. Je souhaite que le deuxième vidéo se lance automatiquement après la fin du premier et ainsi de suite.
Re: [..] Script pour visionner les vidéos YouTube
Posté : mer. 18 déc. 2013 02:13
par bloodwolff
Le plus simple est de gérer les playlist via youtube, en plus vous pouvez même les modifier sans avoir à renvoyer le lien à vos utilisateurs
► Afficher le texte
Code : Tout sélectionner
#include <ie.au3>
#include <WindowsConstants.au3>
$lien = "http://www.youtube.com/watch?v=uelHwf8o7_U&list=PLC40CE70DA3015A4E"
$IDList = StringRegExp($lien, "list=(\w+)", 1)
$hauteur = 450
$largeur = 695
$IE = _IECreateEmbedded()
$form = GUICreate("Streaming Youtube", $largeur, $hauteur, Default, Default, $WS_POPUP)
GUISetBkColor(0)
GUICtrlCreateObj($IE, 10, 10, $largeur, $hauteur)
_IENavigate($IE, "www.youtube.com")
_IEDocWriteHTML($IE, '<BODY bgcolor="black" style="overflow-y:hidden"><IFRAME height=' & $hauteur - 35 & ' width=' & $largeur - 35 & _
' src="http://www.youtube.com/embed/videoseries?list=' & $IDList[0] & '&rel=0&autoplay=1" type="application/x-shockwave-flash" frameBorder=0 allowfullscreen></IFRAME></BODY>')
_IEAction($IE, "refresh")
GUISetState();
HotKeySet("{Esc}", "Quitter")
While 1
$cursor = GUIGetCursorInfo ($form)
If $cursor[0] <= $largeur And $cursor[0] >=0 And _
$cursor[1] <= $hauteur And $cursor[1] >= 0 And _
$cursor[2] = 1 Then
Do
$mouse = MouseGetPos()
WinMove($form,"",$mouse[0]-$cursor[0],$mouse[1]-$cursor[1])
$clicnot = GUIGetCursorInfo ($form)
Until not $clicnot[2]
EndIf
Sleep(50)
WEnd
Func Quitter()
GUIDelete()
Exit
EndFunc
Re: [..] Script pour visionner les vidéos YouTube
Posté : mer. 18 déc. 2013 08:27
par Boulanza
Bonjour,
Votre script ne fonctionne pas du tout chez moi, je vous prie de le tester chez vous puis faites moi signe merci pour votre compréhension et votre aide. Quand à moi je continue la recherche…
Cordialement
Re: [..] Script pour visionner les vidéos YouTube
Posté : mer. 18 déc. 2013 08:33
par bloodwolff
Il fonctionne parfaitement chez moi, je vous ai d'ailleurs envoyer un message privé il y a 1 ou 2 jours pour régler le problème ais vous ne m'avez jamais répondu
Re: [..] Script pour visionner les vidéos YouTube
Posté : mer. 18 déc. 2013 21:31
par Boulanza
Monsieur BloodWolff , Bonsoir,
Je vous prie de m ‘excuser de ne pas avoir répondu si vite, j’ai eu un empêchement majeur… Bref je viens de tester votre script sur un autre poste sous Win XP il fonctionne très bien. D’un autre coté je n’ai pas lu vos emails, pour la simple raison : ma boite était piratée et je n’ai pas pu la récupérer. Je vous prie de me retransmettre vos emails à l’adresse suivante :
moi.boulanza007@gmail.com.
Remarques sur le script :
1- il faut fixer la fenêtre (lecteur média Youtube) car au moindre mouvement elle se déplace de sa position initiale.
2- S’assurez que l’autoplay du lecteur média Youtube se lance automatiquement sans intervention. J’ai testé il marche comme voulu.
3- Y a-t-il un moyen d’interdire la pub qui s’impose sur le lecteur média Youtube à chaque fois, c’est embarrassant
Merci beaucoup pour votre aide précieuse….
Cordialement .
Re: [..] Script pour visionner les vidéos YouTube
Posté : jeu. 19 déc. 2013 01:25
par bloodwolff
Ce n'étais pas par mail mais par message privé mais ce n'est pas bien grave, c'étais seulement pour savoir ce qui était différent sur votre machine afin de trouver pourquoi sa fonctionne sur certaine alors que non sur d'autre. Si vous voulez que la fenêtre sois fixe il suffit d'enlever le code qui gère le déplacement je l'ai placer seulement pour m'amuser
. Pour ce qui est de l'autoplay à ce que j'ai compris ce n'est pas vraiment un problème. Pour la pub j'ai bien peur que ce sois difficile, curieusement je n'ai jamais eu de pub en lançant le script, je viens de tester avec plusieurs video. J'ai adblock d'installer sur mon chrome donc peut-être regarder de ce côté...
Cordialement Bloodwolfff, je ne vois pas ce que je peux faire de plus en ce moment, puisque tout fonctionne parfaitement chez moi et sans pub tant sur window 7 ultimate 64 bit que sur ma machine virtuel xp professionnel 32 bit.
Re: [R] Script pour visionner les vidéos YouTube
Posté : dim. 25 mai 2014 15:57
par Boulanza
Merci, tous va comme vous avez suggéré.