Foro de elhacker.net

Programación => Scripting => Mensaje iniciado por: Novlucker en 24 Julio 2008, 06:13 am


Título: Downloader de videos de Youtube en vbs
Publicado por: Novlucker en 24 Julio 2008, 06:13 am
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  ;D

Código:
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  :rolleyes:

Eso fue todo  ;D

Saludos

P.D: Por si alguien no conoce el método, en este post (http://foro.elhacker.net/hacking_basico/descargar_videos_de_youtube-t194454.0.html;msg937176#msg937176) encontré lo de la sustitución de caracteres en la url para bajar videos de youtube

Título: Re: Downloader de videos de Youtube en vbs
Publicado por: seba123neo en 24 Julio 2008, 08:58 am
digamos  que es lo mismo que hace mi Youtube Downloader,pero esta bien...

Título: Re: Downloader de videos de Youtube en vbs
Publicado por: Novlucker en 24 Julio 2008, 13:08 pm
Cita de: seba123neo en 24 Julio 2008, 08:58 am
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é...

Citar
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 :rolleyes:

Saludos

Título: Re: Downloader de videos de Youtube en vbs
Publicado por: carlitos.dll en 24 Julio 2008, 20:23 pm
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.

Título: Re: Downloader de videos de Youtube en vbs
Publicado por: Novlucker en 24 Julio 2008, 20:43 pm
Citar
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  :P

Saludos

Título: Re: Downloader de videos de Youtube en vbs
Publicado por: Zaraki_lkenpachi en 29 Julio 2008, 09:58 am
jaja ese refran yo tbm lo conozco :D  :rolleyes: es por eso que siempre pido info de lo que no entiendo soy algo cargoso  :laugh:

Título: Re: Downloader de videos de Youtube en vbs
Publicado por: Darioxhcx en 29 Julio 2008, 18:16 pm
yo tmb lo habia echo en vb hace tiempo xD
pero bue no importa
aca lo dejo en batch xD
Código:
@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

Título: Re: Downloader de videos de Youtube en vbs
Publicado por: Novlucker en 29 Julio 2008, 18:37 pm
Muy bien Darioxhcx, me ha funcionado, y el code es realmente cortito  :P

El mismo code en vbs también es corto  :rolleyes:

Código
  1. set objshell = createobject("wscript.shell")
  2. 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/")
  3. objshell.run replace(inputbox("Ahora ingrese la nueva direccion...","vbs Youtube Downloader"),"swf/l.swf","get_video")
  4.  

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

Saludos

Título: Re: Downloader de videos de Youtube en vbs
Publicado por: el_mago999 en 4 Agosto 2008, 17:39 pm
Muy Buenoooo ( el de codigo largo).... :D.

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

Título: Re: Downloader de videos de Youtube en vbs
Publicado por: Novlucker en 4 Agosto 2008, 18:37 pm
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  :P, el primero es más completo...

Citar
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  :P, prueba y verás, tal vez se le podría agregar un lindo form, pero el resto es practicamente igual  ;D

Saludos

Título: Re: Downloader de videos de Youtube en vbs
Publicado por: Darioxhcx en 4 Agosto 2008, 21:33 pm
claro , mira x ejemplo , el q hice hace timepo es asi
Código:
Private Sub Command1_Click()
 Text2 = Replace(Text1, "?v=", "/v/")
End Sub
Private Sub Command2_Click()
Dim Navega As Object
Set Navega = CreateObject("InternetExplorer.Application")
Navega.Visible = -1
Navega.Navigate Text2.Text
Do Until Navega.Busy = False
Loop
End Sub

Private Sub Command3_Click()
 Text4 = Replace(Text3, "swf/l.swf", "get_video")
End Sub

Private Sub Image1_Click()

End Sub
Private Sub Command4_Click()
Dim Navega As Object
Set Navega = CreateObject("InternetExplorer.Application")
Navega.Visible = -1
Navega.Navigate Text4.Text
Do Until Navega.Busy = False
Loop
End Sub
4 botones y 4 cajas de texto
es lo mismo, solo q en vb xD

saludos


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines