 Autor
|
Tema: Downloader de videos de Youtube en vbs (Leído 8,018 veces)
|
Novlucker
Ninja y
Colaborador
 Desconectado
Mensajes: 10.683
Yo que tu lo pienso dos veces
|
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 flvSe 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  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
|
|
|
|
« Última modificación: 12 Noviembre 2008, 13:46 pm por Novlucker »
|
En línea
|
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez humana. Y de la primera no estoy muy seguro." Albert Einstein |
|
|
|
seba123neo
|
digamos que es lo mismo que hace mi Youtube Downloader,pero esta bien...
|
|
|
|
« Última modificación: 24 Julio 2008, 09:05 am por seba123neo »
|
En línea
|
|
|
|
Novlucker
Ninja y
Colaborador
Desconectado
Mensajes: 10.683
Yo que tu lo pienso dos veces
|
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
|
|
|
|
« Última modificación: 24 Julio 2008, 13:24 pm por Novlucker »
|
En línea
|
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez humana. Y de la primera no estoy muy seguro." Albert Einstein |
|
|
carlitos.dll
Desconectado
Mensajes: 266
|
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.
|
|
|
|
|
En línea
|
|
|
|
Novlucker
Ninja y
Colaborador
Desconectado
Mensajes: 10.683
Yo que tu lo pienso dos veces
|
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
|
|
|
|
|
En línea
|
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez humana. Y de la primera no estoy muy seguro." Albert Einstein |
|
|
|
|
Darioxhcx
Desconectado
Mensajes: 2.294
|
yo tmb lo habia echo en vb hace tiempo xD pero bue no importa aca lo dejo en batch xD @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 |
|
|
|
|
En línea
|
|
|
|
Novlucker
Ninja y
Colaborador
Desconectado
Mensajes: 10.683
Yo que tu lo pienso dos veces
|
Muy bien Darioxhcx, me ha funcionado, y el code es realmente cortito El mismo code en vbs también es corto 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 |
|
|
|
« Última modificación: 29 Julio 2008, 18:40 pm por Novlucker »
|
En línea
|
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez humana. Y de la primera no estoy muy seguro." Albert Einstein |
|
|
el_mago999
Desconectado
Mensajes: 70
|
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 |
|
|
|
|
En línea
|
|
|
|
Novlucker
Ninja y
Colaborador
Desconectado
Mensajes: 10.683
Yo que tu lo pienso dos veces
|
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 |
|
|
|
« Última modificación: 4 Agosto 2008, 22:11 pm por Novlucker »
|
En línea
|
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez humana. Y de la primera no estoy muy seguro." Albert Einstein |
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
YouTube Downloader. Los vídeos en el móvil
Noticias
|
wolfbcn
|
0
|
2,176
|
3 Mayo 2011, 15:46 pm
por wolfbcn
|
|
|
|
Jason's ogg 2.1 YouTube Downloader C#
.NET (C#, VB.NET, ASP)
|
JohnConnor
|
2
|
3,063
|
19 Marzo 2016, 20:01 pm
por Eleкtro
|
|
|
|
Jason's MP3 v2.5.1 YouTube mp3 mp4 Downloader C#
.NET (C#, VB.NET, ASP)
|
JohnConnor
|
0
|
2,086
|
25 Marzo 2016, 20:58 pm
por JohnConnor
|
|
|
|
4K Video Downloader: Descargar vídeos 4K de YouTube nunca fue tan sencillo
Noticias
|
wolfbcn
|
0
|
2,780
|
11 Noviembre 2016, 14:29 pm
por wolfbcn
|
 |
