[R] Téléchargement sur Youtube

[Alexward]

Bonjour, je regardais le youtubedownloader ici: http://autoit.fr/forum/viewtopic.php?f=6&p=35563

et je me demandais comme il fonctionnait car je n'arrive pas à télécharger une video

J'ai la fenêtre qui apparait et je fais copy link mais je fait quoi ensuite ?

J'avais en tête de faire un équivalent plus simple et plus complet

Merci

[Jerome]

Coucou,

Si tu lis bien en entier le topic de Sheeva700 :

Code : Tout sélectionner

Ceci ne telecharge pas a proprement parler les video mais, vous donne tous ce qu'il faut pour le faire.
Effectivement dans l'array '$Yarray' se trouve tous ce dont vous avez besoin pour telecharger ou même jouer directement.
je fait d'ailleur un affichage de cette array en fin de programme.

J'ai utiliser le copy link aussi de la deuxième colonne, mais sans résultat.


Voila voila ...



Jérôme

[Alexward]

Merci. Je sais je l'avais lu sa.. Le problème est que faire avec les informations du copy link?

Merci

[Jerome]

Re yop.

J'ai trouver sa.

Apparemment trop ancien maintenant ....


Jérôme

[jbnh]

(keepvid.com en attendant de te dépanner)

[Alexward]

Merci Jerome je vais y jeter un coup d'oeil. Sinon est-ce qu'il y a un moyen par exemple de faire un Youtoube Download à partir d'un site web du genre: http://keepvid.com mais sans devoir créer un GUI avec un GuiCtrlCreateObj ?

Merci

[jbnh]

GUICtrlCreateObj
--------------------------------------------------------------------------------

Creates an ActiveX control in the GUI.

Il te faudra donc créer une gui. Mais sinon oui, ca marche.

[Alexward]

En faite je voulais dire que je voulais éviter le OBJ.. J'aimerai par exemple une GUI avec un Input demandant le lien youtube et un bouton Download et cela télécharge aussitôt. Est-ce possible ? Si oui pouvez-vous me donner un peu d'explication ?

Merci Beaucoup

[Jerome]

Coucou,

Je viens de commencer à faire sa, mais j'arrive pas à simuler le click sur du javascript (le lien du download).


Fin bref, voila un début...

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <IE.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Téléchargement Youtube", 528, 51, 192, 124)
$Input1 = GUICtrlCreateInput("", 8, 16, 385, 21)
$Button1 = GUICtrlCreateButton("Download", 408, 16, 107, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            Download()
        Case $Input1
            If _IsPressed("0D") Then
                Download()
            EndIf
    EndSwitch
WEnd


Func Download()
    $link = GUICtrlRead($Input1)
    $complet = "http://keepvid.com/?url=" & $link
    ShellExecute($complet)
    ;$oIE = _IECreate ($complet);, 0, 0)
    ;sleep(6000)
    ;$oSubmit = _IEGetObjByName ($oIE, "›› Download MP4 ‹‹")
    ;_IEAction ($oSubmit, "click")


    ;_IEQuit ($oIE)



EndFunc

Jérôme

[Alexward]

Super

Sa te dit de faire ce projet à 2 ? Ce soir je m'y mettrerai (Heure Canada, Québec) La je part pour l'école

Merci

[Jerome]

Coucou,


Oui pourquoi pas.

Pour le moment je suis bloquer pour clicker sur le lien de téléchargement.
C'est du Javascript à ce que je voit ....


Je continu mes recherches.

Edit : Un peu d'avancement :

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <IE.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Téléchargement Youtube", 528, 51, 192, 124)
$Input1 = GUICtrlCreateInput("", 8, 16, 385, 21)
$Button1 = GUICtrlCreateButton("Download", 408, 16, 107, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            Download()
        Case $Input1
            If _IsPressed("0D") Then
                Download()
            EndIf
    EndSwitch
WEnd


Func Download()
    $link = GUICtrlRead($Input1)
    $complet = "http://keepvid.com/?url=" & $link
    ;ShellExecute($complet)
    $oIE = _IECreate ($complet);, 0, 0)
    sleep(6000)
    ;$oSubmit = _IEGetObjByName ($oIE, "›› Download MP4 ‹‹")
    ;_IEAction ($oSubmit, "click")
    $oLinks = _IELinkGetCollection ($oIE)       
        For $oLink in $oLinks
            If StringCompare($oLink.innerText,"›› Download MP4 ‹‹") = 0 Then
                _IEAction($oLink, "click")
                ExitLoop
            EndIf
        Next
    MsgBox("","",$oLink)


    ;_IEQuit ($oIE)



EndFunc

Par contre, pour que sa lance la fenetre de téléchargement, il faut modifier les sécurités d'internet explorer ....






Jérôme

[jbnh]

Bon allez, 4 lignes cadeau :p

Code : Tout sélectionner

#include <IE.au3>

$complet = "http://www.youtube.com/watch?v=XXXXXXX"   
$oIE = _IECreate ($complet,0,0,1)

_IENavigate ($oIE, 'javascript&#058;isIE=/*@cc_on!@*/false;isIE ? swfHTML=document.getElementById(''movie_player'').getElementsByTagName(''param'')[1].value:swfHTML=document.getElementById("movie_player").getAttribute("flashvars");w=swfHTML.split("&"); for(i=0;i<=w.length-1;i++) if(w[i].split("=")[0] == "fmt_url_map"){links=unescape(w[i].split("=")[1]);break;}abc = links.split(",");for(i=0;i<=abc.length-1;i++){fmt=abc[i].split("|")[0];if(fmt==5){url = abc[i].split("|")[1];window.location.href = url;}}',1)

_IEQuit ($oIE)

Par contre, pour que sa lance la fenetre de téléchargement, il faut modifier les sécurités d'internet explorer ....

Pareil pour mon script. Donc Outils, puis sur Options Internet. Sécurité, puis cliquez sur Personnaliser le niveau.
Section Téléchargements de la liste, puis, sous Demander confirmation pour les téléchargements de fichiers, cliquez sur Activer. (et non désactiver paradoxalement)

[Jerome]

Coucou,

@jbnh : J'ai rien compris aux lignes que ta fournit xD ...

Comment tu la eu ?
C'est censé faire quoi ?

Debug bar ?




Jérôme.

[jbnh]

Yo,

Le script download la vidéo. On applique du javascript sur la page en cours d'execution. Le code java recupere les vars de la video directement dans le code html (signature et id) pour la dl.

[jbnh]

Salut,

Je viens de tester sur mon second pc et ce script marche pas, enfait ca dépend si votre navigateur ie ajoute automatiquement http:// devant, mettez le iecreate en visible pour voir.

Si il ajoute automatiquement, ca ne marche pas, sinon bien.

[Alexward]

Salut. Merci beaucoup pour ta réponse mais sa ne fonctionne pas cher moi J'ai modifier la sécurité comme dit plus haut et même rendu le IE Create visible mais... Sa ouvre IE avec la video ensuite la fenêtre ferme et plus rien

Deplus je ne comprend rien à ton script :S

Edit: rendu à ton code javascript, cela fait Internet Explorer ne peut pas afficher cette page Web

Merci

[Jerome]

Coucou,

As-tu essayé celui ci ?

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <IE.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Téléchargement Youtube", 528, 51, 192, 124)
$Input1 = GUICtrlCreateInput("", 8, 16, 385, 21)
$Button1 = GUICtrlCreateButton("Download", 408, 16, 107, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            Download()
        Case $Input1
            If _IsPressed("0D") Then
                Download()
            EndIf
    EndSwitch
WEnd


Func Download()
    $link = GUICtrlRead($Input1)
    $complet = "http://keepvid.com/?url=" & $link
    ;ShellExecute($complet)
    $oIE = _IECreate ($complet);, 0, 0)
    sleep(6000)
    ;$oSubmit = _IEGetObjByName ($oIE, "›› Download MP4 ‹‹")
    ;_IEAction ($oSubmit, "click")
    $oLinks = _IELinkGetCollection ($oIE)       
        For $oLink in $oLinks
            If StringCompare($oLink.innerText,"›› Download MP4 ‹‹") = 0 Then
                _IEAction($oLink, "click")
                ExitLoop
            EndIf
        Next
    MsgBox("","",$oLink)


    ;_IEQuit ($oIE)



EndFunc

[Alexward]

Merci à tous ceux qui mon aidé. J'y est travailler un peu et j'y suis arrivé à quelque chose fonctionnel

► Afficher le texte

Code : Tout sélectionner

#include <IE.au3>
    $complet = "http://keepvid.com/?url=http://www.youtube.com/watch?v=tvSoGW1U20s"
    $oIE = _IECreate ($complet);, 0, 0)
    _IELoadWait($oIE)
    sleep(6000)
$Wheretoclick = "›› Download MP4 ‹‹"
_IELinkClickByText($oIE, $Wheretoclick)


 

Mais le problème c'est que j'aimerais que le script clique sur le 3e "›› Download MP4 ‹‹ mais je n'y arrive pas

Merci

[Alexward]

Trouver grace au forum anglais

Merci

[Jerome]

Coucou,

Sinon j'ai trouver sa.

Assez intéressant .



Jérôme