[Ex] Youtube Downloader

#1

Voila, je reviens avec un nouveau script un peu plus intéressant:

Youtube Downloader

Quoi?
Youtube Downloader permet de downloader sur.. youtube (bien vu). Vous pouvez récupérer les vidéos en format .flv (faible qualité) ou .mp4 (bonne qualité). Pour en extracter la musique je vous conseille "Freez FLV to MP3 Converter".

Il est pratique mais assez lent, toutefois il marche

et possède un design assez sympa.

Code?

► Afficher le textele code

Code : Tout sélectionner

#include <GuiConstants.au3>
#include <IE.au3>
#include <string.au3>
Dim $s_html
_IEErrorHandlerRegister ()
$oIE = _IECreateEmbedded ()
GuiCreate("Youtube downloader", 600, 350)

GUICtrlCreatePic ("ressources/youtube.jpg", 0, 5, 600,57)
GUICtrlCreateLabel("© Jb <jbnh> D.", 520, 330)
$Input_1 = GUICtrlCreateInput("", 150, 70, 220, 20)
$Button_1 = GUICtrlCreateButton("Download", 370, 70, 70, 20)


GuiSetState()

While 1

$msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
             ExitLoop
            
        Case $msg = $Button_1       
        $url = "http://keepvid.com/?url=" & GUICtrlRead($Input_1)
        
        
        $object_IE = _iecreate($url,0,0,1)
        $oBody = _IEBodyReadHTML($object_IE)
        
        _IEQuit($object_IE)
        
        $link1 = _StringBetween($oBody, 'l.com<BR><BR><A class=link href="', '" target=_blank>')
        $link2 = _StringBetween($oBody, '</B><BR><BR><A class=link href="', '" target=_blank>')
        
        GUICtrlCreateObj($oIE,5, 110, 550, 200)
        _IENavigate ($oIE, "about&#058;blank")

        $s_html &= '<html xmlns="http://www.w3.org/1999/xhtml">' & @CR
        $s_html &= '<head>' & @CR

        $s_html &= '<style type="text/css">' & @CR
        $s_html &= 'html {padding:0;margin:0;}' & @CR
        $s_html &= 'body {padding:25px 0px;margin:0;text-align:center;}' & @CR


        $s_html &= '.links {width:500px;margin-top:20px;font-family:tahoma;font-size:11px;color:#999;}' & @CR
        $s_html &= '.links h2 {color:#FFF;font-family:tahoma;font-size:11px;font-weight:bold;padding:8px 9px;border:1px solid #FFF;margin:0;background-color:#7EC836;}' & @CR
        $s_html &= '.links a {color:#999;text-decoration:underline;}' & @CR
        $s_html &= '.links a:hover {color:#666;}' & @CR
        $s_html &= '.links a.link {font-weight:bold;color:#64B119;}' & @CR
        $s_html &= '.links a.link:hover {color:#438800;}' & @CR
        $s_html &= '.links-h {border:1px solid #C4DEAB;}' & @CR
        $s_html &= '.links-c {padding:6px 10px 10px 10px;line-height:16px;}' & @CR
        $s_html &= '.links-c em {font-style:normal;color:#666;}' & @CR
        $s_html &= '</style>' & @CR
        $s_html &= '</head><body>' & @CR

        $s_html &= '<div class="links"><div class="links-h"><h2>Download links</h2>' & @CR
        $s_html &= '<div class="links-c">' & @CR
        $s_html &= '<a href="http://keepvid.com'& $link1[0] &'" class="link" target="_blank">&#8250;&#8250; Download &#8249;&#8249;</a> &nbsp;<em>(get_video.flv - Low Quality)</em><br>Right-click download link, choose <b>"Save Link As..."</b>, and rename file to <b>get_video.flv</b><br><br><a href="http://keepvid.com'& $link2[0] &'" class="link" target="_blank">&#8250;&#8250; Download &#8249;&#8249;</a> &nbsp;<em>(video.mp4 - High Quality)</em><br>Right-click download link and choose <b>"Save Link As..."</b> to download' & @CR
        $s_html &= '</div></div></div>' & @CR

        _IEDocWriteHTML($oIE, $s_html)
        _IEAction($oIE, "refresh")       
        
            
            

   EndSelect
WEnd

Screenshot?

Jbnh

Ancienne Version téléchargée 112 fois

terminatorn · #2

Je conseil plutôt http://media-convert.com/convertir/ conversion en ligne qui convertit tout en tout

#3

Je ne le pas conseille pas du tout. Pour les videos / mp3 car le fichier doit être uploader avant d'être converti = gros prise de temps.

terminatorn · #4

Osef du temps, les vidéos de youtube et tout ça met pas beaucoup de temps et le temps c'est pas ça qui manque dans une vie ( faite la conversion pendant que vous manger , etc )

#5

terminatorn a écrit : le temps c'est pas ça qui manque dans une vie

J'en suis pas si sur...

#6

Autre possibilité ! Plus court, mais surtout indépendant d'un site de téléchargement online:

Code : Tout sélectionner

#include <GUIConstants.au3>
#include <string.au3>
#include <IE.au3>

GUICreate("Youtube downloader", 300,80, -1, -1)
GUICtrlCreateLabel("URL:", 10, 10, 220, 20)
$Input_1 = GUICtrlCreateInput("", 65, 10, 220, 20)
$Button_1 = GUICtrlCreateButton("Download", 60, 40, 80)
$Button_3 = GUICtrlCreateButton("Cancel", 155, 40, 80)



GUISetState()
While 1
    $nMsg = GUIGetMsg()
    Select
    Case $nMsg = $GUI_EVENT_CLOSE
        Exit
        
            
    Case $nMsg = $Button_1
    
        $var = GUICtrlRead($Input_1)&"@"        
        $var2 = _StringBetween($var, "watch?v=", "@")   
        
        If IsArray ($var2) Then     
            $oIE = _IECreate ("http://www.youtube.com/v/"&$var2[0],0,0,1) 
            $url = _IEPropertyGet($oIE, "locationurl")      
            $var3 = _StringBetween($url, "jpg&t=", "&use")  
                If IsArray ($var3) Then 
                _IECreate ("http://www.youtube.com/get_video.php?video_id="&$var2[0]&"&t="&$var3[0],0,1,1) 
                Else
                msgbox (0,"","Aucune chaine trouvée")
                Endif                   
                
        Else
            msgbox (0,"","Aucune chaine trouvée")
        Endif
 Endselect
WEnd

Eoweakin · #7

Bijour !

Quand le scripte arrive là :

Code : Tout sélectionner

             $oIE = _IECreate ("http://www.youtube.com/v/"&$var2[0],0,0,1)

Et que l'on clique sur ouvrir ou enregistrer, cela affiche :

J'espère que ce bug seras bientôt corrigé ! ...

Au revoir.

Habibsbib · #8

Oh purée ! A ce stade la de prog', jbnh, je n'ai rien à dire de plus que respect ! Ton programme est tout simplement excellent ! Et résumerun système de prog' si compliqué en quelques lignes de script, alors la ! Je ne suis peut-être qu'un débutant avec mes yeux de débutant... mais toi au moins, tu me les illumine ! respect !

#9

Salut Eoweakin.

Je t'invite à downloader mon premier script, ma seconde méthode d'extraction n'étant plus fonctionnelle apparemment...

Eoweakin · #10

Et bien c'est que, je m'intéressait plus à la deuxième car elle n'a pas dépendante d'un site...

Eoweakin · #11

Quand je clique pour downloader une vidéo en .flv ... :

Eoweakin · #12

J'ai trouvé l'erreur :

Au début de la ligne 61 tu (Tu veux bien que je te tutoies ?

) as mis :

Code : Tout sélectionner

        $s_html &= '<a href="'& $link1[0] &'" class="link" [...]

Je crois que ceci marcheras mieux :

Code : Tout sélectionner

        $s_html &= '<a href="[b]http://keepvid.com[/b]'& $link1[0] &'" class="link" [...]

#13

En effet, merci de l'avoir signalé. Post modifié.

FuriousFred · #14

Bien le bonsoir.

Script très interessant, en rapport je dirais avec un de mes ancien projet...
Je m'explique, je me suis amusé à créer un script qui converti un peu tout et n'importe quoi (audio et vidéo) en fichier .mp4 pour Ipod ou Mp3. Un petit bout de code qui utilise la bibliothèque libre ffmpeg. ffmpeg sait très bien faire tout ça, mon code ne crée qu'une interface graphique, mais c'est plus pratique à utiliser quand on est pas adepte de la ligne de commande. Je me dis qu'en combinant nos travaux, on obtiendrais un logiciel vraiment sympa.

► Afficher le textecode

Code : Tout sélectionner

; Version d'AutoIt: 3.0
; Langage:       Français
; Systeme:       WinXP
;
; Fonction du script&#058;
;   Encoder ou réencoder des fichiers videos ou audios dans un format video/audio standard avec quatre choix de qualité
;   Utilisation de la librairie ffmpeg et pthreadGC2.dll
;


;&@CRLF& pour aller à la ligne

#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>



SplashTextOn("Chargement", "TeenyMediaConverter"&@CRLF&"Ipod Version"&@CRLF&@CRLF&"I Love You...", 180, 100, -1, -1, 4, "", 12)
Sleep(3000)
SplashOff()

_Main()

Func _Main()

GUICreate("Teeny Media Converter", 360, 84, -1, -1, -1, $WS_EX_ACCEPTFILES) ;tentative de draganddrop rem:cree une ereur dans les variables
GuiCtrlCreateLabel("Entrée:", 0, 5, 40, 20)
$entree = GuiCtrlCreateInput("", 41, 2, 278, 20)
Guictrlsetstate($entree, $GUI_DROPACCEPTED)
$setentree = GuiCtrlCreateButton("...", 320, 2, 40, 20)
$gogogo = GuiCtrlCreateButton("GO!", 320, 42, 40, 40)
GuiCtrlCreateLabel("Sortie:", 0, 25, 40, 20)
$sortie = GuiCtrlCreateInput("", 41, 22, 278, 20)


GuiCtrlCreateLabel("Convertir en:", 0, 45, 60, 20)
$type = GuiCtrlCreateCombo("Ipod Video", 61, 42, 60, 20)
GuiCtrlSetData($type, "Audio", "Ipod Video")
GuiCtrlCreateLabel("Qualité:", 0, 67, 36, 20)
$qualite = GuiCtrlCreateCombo("normal", 61, 64, 60, 20)
GuiCtrlSetData($qualite, "faible|élevé|optimal", "normal")

GUISetState(@SW_SHOW)

While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
        
    Case $msg = $setentree
        $fichierdentree = fileopendialog("Choix du fichier à réencoder", "", "Tous (*.*)")
        GuiCtrlSetData($entree, $fichierdentree)
        $entreesetted = GuiCtrlRead($entree)
        $cc = StringLen($entreesetted)
        
        $aa = 1
            while $aa<$cc
                $bb = StringMid($entreesetted, $aa, 1)
                    If $bb == "\" Then
                        $filedrawn = StringMid($entreesetted, $aa+1, ($cc-$aa)+1)
                    EndIf
                $aa = $aa + 1
            WEnd
        $sortiesetted = $filedrawn
        GuiCtrlsetData( $sortie, $filedrawn)
        
        
    Case $msg = $gogogo
        $entreesetted = GuiCtrlRead($entree)
        $sortiesetted = GuiCtrlRead($sortie)
                
        $typesetted = GuiCtrlRead($type)
        $qualitesetted = GuiCtrlRead($qualite)
        ;MsgBox(1, "essai vars", $entreesetted&@CRLF&$sortiesetted&@CRLF&$typesetted&@CRLF&$qualitesetted)
        DirCreate(@scriptdir&"\temp")
        $temp = @scriptdir&"\temp"
        FileCopy($entreesetted, $temp, 9)
        If $sortiesetted = "" Then
            $cc = StringLen($entreesetted)
            $aa = 1
                while $aa<$cc
                    $bb = StringMid($entreesetted, $aa, 1)
                        If $bb == "\" Then
                            $filedrawn = StringMid($entreesetted, $aa+1, ($cc-$aa)+1)
                        EndIf
                    $aa = $aa + 1
                WEnd
            $sortiesetted = $filedrawn
        EndIf
        $lenfiledrawn = stringlen($filedrawn)
        $ext2 = stringmid($filedrawn, $lenfiledrawn - 2, 3)
        If $typesetted = "Ipod Video" Then
            $fichiertemp = "temp."&$ext2
            $ext = "mp4"
        EndIf
        If $typesetted = "audio" Then
            $fichiertemp = "temp."&$ext2
            $ext = "mp3"
        EndIf
        If $qualitesetted = "faible" Then
            $ar = 22050
            $ab = 64000
            $s = " -s 320x240 "
        EndIf
        If $qualitesetted = "normal" Then
            $ar = 44100
            $ab = 128000
            $s = " -s 320x240 "
        EndIf
        If $qualitesetted = "élevé" Then
            $ar = 44100
            $ab = 320000
            $s = " -s 320x240 "
        EndIf
        If $qualitesetted = "optimal" Then
            $ar = 88200
            $ab = 512000
            $s = " -s 320x240 "
        EndIf
        If $ext == "mp3" Then
            $s = ""
        EndIf
        
        FileMove(@scriptdir&"\temp\"&$filedrawn, @scriptdir&"\temp\"&$fichiertemp, 9)
        ;MsgBox(1, "essai", "ffmpeg.exe -i "&"\temp\"&$fichiertemp&" -ar "&$ar&" -ab "&$ab&" -f "&$ext&" "&$s&$fichiertemp&"."&$ext)
        
        $watt = Run(@scriptdir&"\ffmpeg.exe -i "&"temp\"&$fichiertemp&" -ar "&$ar&" -ab "&$ab&" -f "&$ext&" "&$s&$fichiertemp&"."&$ext, @scriptdir)
        Sleep(100)
        $ended = Processexists("ffmpeg.exe")
        while $ended <>0
            $ended = Processexists("ffmpeg.exe")
        WEnd
        dircreate(@scriptdir&"\done")
        filemove(@scriptdir&"\"&$fichiertemp&"."&$ext, @scriptDir&"\done\"&$sortiesetted&"."&$ext, 9)
        filedelete(@scriptdir&"\"&$fichiertemp&"."&$ext)
        dirremove(@scriptdir&"\temp", 1)
        
        
        
        
        ;MsgBox(1, "essai", $watt)  <-- teste si la commande c'est bien lancee
        ;developpement arrêté là, à la reprise, savoir que le filemove est à revoir pour donner un nom générique pour ffmpeg qui gère pas les espaces
        ;toutes les vars sont bonnes, voir pour la gestion du processus, l'ecriture de la ligne et une option si un nom de fichier est 
        ;déjà attribué dans le rep de sortie final
        
        ;réarret du dev, problème avec le renommage lors du déplacement, l'extention du fichier peut changer et ffmpeg n'apprecie pas, il faut
        ;corriger la var --> résolu
        
        
        
    
    
    EndSelect
WEnd

Pour que le code fonctionne, ffmpeg.exe et pthreadGC2.dll (fourni avec l'encoder) doivent être présents dans le répertoire du script.
Dès que j'ai fait ma nuit je crée un topic pour ce code, j'ai besoin de conseil pour l'améliorer, promis je le fais lol.

Cordialement, FuriousFred

Habibsbib · #15

Escuse-moi jnbh, mais je crois que tu a fais une petite erreur de prog' sur la fonction Cancel : en effet elle ne fonctionne pas. C'est pas que je veux chercher la petite bête, mais voila le script fonctionnel avec un pitit message de Copyright ^^:

Code : Tout sélectionner

#include <GUIConstants.au3>
#include <string.au3>
#include <IE.au3>

GUICreate("Youtube downloader", 300,80, -1, -1)
GUICtrlCreateLabel("URL:", 10, 10, 220, 20)
$Input_1 = GUICtrlCreateInput("", 65, 10, 220, 20)
$Button_1 = GUICtrlCreateButton("Download", 60, 40, 80)
$Button_3 = GUICtrlCreateButton("Cancel", 155, 40, 80)



GUISetState()
While 1
    $nMsg = GUIGetMsg()
    Select
    Case $nMsg = $Button_3
        MsgBox (0, "Téléchargeur youtube.", "By jnbh. Version 1.1, 2009. All rights reserved. ®")
        Exit
        
            
    Case $nMsg = $Button_1
    
        $var = GUICtrlRead($Input_1)&"@"        
        $var2 = _StringBetween($var, "watch?v=", "@")   
        
        If IsArray ($var2) Then     
            $oIE = _IECreate ("http://www.youtube.com/v/"&$var2[0],0,0,1) 
            $url = _IEPropertyGet($oIE, "locationurl")      
            $var3 = _StringBetween($url, "jpg&t=", "&use")  
                If IsArray ($var3) Then 
                _IECreate ("http://www.youtube.com/get_video.php?video_id="&$var2[0]&"&t="&$var3[0],0,1,1) 
                Else
                msgbox (0,"","Aucune chaine trouvée")
                Endif                   
        
        Else 
            msgbox (0,"","Aucune chaine trouvée")
        Endif
 Endselect
WEnd

Voila-voila. Bonsoir.

ethneldryt · #16

bonjour, je me permet de remonter ce sujet et j'en suis désolé. Mais j'ai une question.
comment faite vous pour télécharger la vidéo?

j'essaie de faire un inetget("http://www.youtube.com/get_video.php?vi ... ,"test.flv")

mais rien ne se télécharge, je comprend pas pourquoi, ou je m'y prend mal pour télécharger une vidéo?
Merci de votre aide..

#17

Salut,

Depuis mars 2010 youtube a complètement changé son système de video et a renforcé sa sécurité. Mon script est donc devenu obselete.

ethneldryt · #18

merci, mais il n'y plus de méthode pour les télécharger? :s
par exemple un site spécial qui fais office de telechargeur, exemple :

lesitemachinchose.net/download.php?url=http://www.youtube.com/watch?v=ZdrX3hFgRH4

et si on envoie cette adresse ca lance le téléchargement en acceptant.

#19

Essayez avec ce style d'adresse, qui renvoit directement sur l'objet flash, il y a donc surement moyen de telecharger.
http://www.youtube.com/v/ouBJTv_OqJA&hl ... autoplay=1

ethneldryt · #20

merci, mais j'ai déjà essayer, on ne peux pas voir le code source de la page :s

j'ai trouver
http://www.video2mp3.net/fr/?url=http:/ ... FgRH4&hd=1
mais il faudrait faire quelque chose pour télécharger avec inetget le lien, mais ca a l'air compliquer

AutoIt Français

[Ex] Youtube Downloader

[Ex] Youtube Downloader

Re: [Ex] Youtube Downloader

Re: [Ex] Youtube Downloader

Re: [Ex] Youtube Downloader

Re: [Ex] Youtube Downloader

Re: [Ex] Youtube Downloader

Re: [Ex] Youtube Downloader

Re: [Ex] Youtube Downloader

Re: [Ex] Youtube Downloader

Re: [Ex] Youtube Downloader

Re: [Ex] Youtube Downloader

Re: [Ex] Youtube Downloader

Re: [Ex] Youtube Downloader

Re: [Ex] Youtube Downloader

Re: [Ex] Youtube Downloader

Re: [Ex] Youtube Downloader

Re: [Ex] Youtube Downloader

Re: [Ex] Youtube Downloader

Re: [Ex] Youtube Downloader

Re: [Ex] Youtube Downloader