Downloader de videos de Youtube en vbs

[Novlucker]

Hola a todos

Bueno, una vez más, cubriendo un rato de ocio, e intentando aportar algo al foro de scripting, dejo este script *.vbs que automatiza la tarea de bajar videos de youtube.

No hace más que los reemplazos correspondientes en la url del video, para que luego nos salte la ya clasica ventana de descarga.
Recordar que luego hay que cambiarles la extensión a flv

Se bien, se que hay complementos para FF, webs dedicadas a descargar los videos, y muchos más programas, con diversas funciones y extras, el objetivo de este post, es simplemente mostrar una vez más, las posibilidades de vbscript 

Espero les guste 

Código [Seleccionar] Expandir

UrlVideo = inputbox("Ingrese la dirección del video por favor..."& chr(13) & "Ejemplo: http://es.youtube.com/watch?v=Lfj5loPrU88","vbs Youtube Downloader")

If UrlVideo = "" Then
Wscript.Quit
End If

If instr(UrlVideo,"youtube") = 0 Then
Msgbox "Verifique que la URL ingresada pertenezca a Youtube"
Wscript.Quit
End If

Set ObjXML = Createobject("Microsoft.XMLHTTP")
ObjXML.Open "GET",UrlVideo,0
ObjXML.Send()

If instr(ObjXML.responsetext,"Añadido:") = 0 and instr(ObjXML.responsetext,"Added:") = 0 Then
Msgbox "Ha sido imposible localizar el video" & Chr(13) & "Verifique la dirección por favor..."
Wscript.Quit
End If

TituloF = instr(1,ObjXML.responsetext,"<title>") + 7
TituloL = instr(1,ObjXML.responsetext,"</title>")
titulovideo = Replace(mid(ObjXML.responsetext,TituloF,TituloL-TituloF),"YouTube - ","")

Set ObjShell = Createobject("Wscript.shell")
mensaje = ObjShell.popup("El video "& """" & titulovideo & """" & " ha sido localizado" & chr(13) & chr(13) & "Preparando para descargar...",4,"Video Localizado")

UrlVideo = Replace(UrlVideo,"?v=","/v/")

Set ObjBrowser = Createobject("internetexplorer.application")
ObjBrowser.visible = false
ObjBrowser.navigate UrlVideo
Do While ObjBrowser.Busy
Wscript.Sleep 100
Loop

UrlFinal = Replace(ObjBrowser.locationurl,"swf/l.swf","get_video")
ObjBrowser.navigate UrlFinal
Do While ObjBrowser.Busy
Wscript.Sleep 200
Loop
ObjBrowser.Quit


Como verán, no lo he comentado, pero creo que las funciones utilizadas son claramente identificables 

Eso fue todo 

Saludos

P.D: Por si alguien no conoce el método, en este post encontré lo de la sustitución de caracteres en la url para bajar videos de youtube

[seba123neo]

digamos  que es lo mismo que hace mi Youtube Downloader,pero esta bien...

[Novlucker]

digamos  que es lo mismo que hace mi Youtube Downloader,pero esta bien...

Exacto, es muy similar, ya que justamente se me ocurrió luego de ver el tuyo y por eso aclaré...

Se bien, se que hay complementos para FF, webs dedicadas a descargar los videos, y muchos más programas, con diversas funciones y extras, el objetivo de este post, es simplemente mostrar una vez más, las posibilidades de vbscript 

Pero convengamos que "es lo mismo que hacen" todos los programas de este tipo

Saludos

[carlitos.dll]

Está bueno, ahora entendí como funcionan esas aplicaciones, y eso es lo importante para mí. Prefiero que me enseñen a pescar a que me den el pescado.

[Novlucker]

Está bueno, ahora entendí como funcionan esas aplicaciones, y eso es lo importante para mí. Prefiero que me enseñen a pescar a que me den el pescado.

Esa era la idea... muchos no lo saben 

Saludos

[Zaraki_lkenpachi]

jaja ese refran yo tbm lo conozco   es por eso que siempre pido info de lo que no entiendo soy algo cargoso 

[Darioxhcx]

yo tmb lo habia echo en vb hace tiempo xD
pero bue no importa
aca lo dejo en batch xD

Código [Seleccionar] Expandir

@echo off
title ..:: By Darioxhcx ::..
echo ingresa tu link incluyendo "http://" __
set/p var=
start %var:~0,28%/v/%var:~31%
cls
echo ahora ingresa el otro link __
set /p link=
echo.
start %link:~0,23%get_video%link:~32,21%^&rel=1^&eurl=^&iurl=%link:~71,47%^&t=%link:~121,35%
msg * Gracias x usar esto (? & exit


saludos

[Novlucker]

Muy bien Darioxhcx, me ha funcionado, y el code es realmente cortito 

El mismo code en vbs también es corto 

Código (vb) [Seleccionar] Expandir

set objshell = createobject("wscript.shell")
objshell.run replace(inputbox("Ingrese la dirección del video por favor..."& chr(13) & "Ejemplo: http://es.youtube.com/watch?v=Lfj5loPrU88","vbs Youtube Downloader"),"?v=","/v/")
objshell.run replace(inputbox("Ahora ingrese la nueva direccion...","vbs Youtube Downloader"),"swf/l.swf","get_video")


Si el otro quedó tan largo, fue para hacerlo más vistoso 

Saludos

[el_mago999]

Muy Buenoooo ( el de codigo largo).... .

los otros ultimos no funcionan, almenos a mi no me funciona
el que me funciona tratare de ponerlo  en codigo vb 6.0   en cuanto tenga tiempo 

[Novlucker]

Es que los dos últimos, primero te piden la dirección del video, ... luego te abre una página, en la que la dirección del video es larguisima, y nuevamente salta un mensaje pidiendo una dirección.. hay que poner esa larguisima  , el primero es más completo...

el que me funciona tratare de ponerlo  en codigo vb 6.0   en cuanto tenga tiempo

En realidad, eso debería de ser como copiar y pegar  , prueba y verás, tal vez se le podría agregar un lindo form, pero el resto es practicamente igual 

Saludos