[VB.NET] Descarga video YouTube

Foro de elhacker.net

Programación

Programación General

.NET (C#, VB.NET, ASP) (Moderador: kub0x)

[VB.NET] Descarga video YouTube

0 Usuarios y 1 Visitante están viendo este tema.

Páginas: [1]

Autor

Tema: [VB.NET] Descarga video YouTube (Leído 6,707 veces)

syntax

Desconectado

Mensajes: 3

[VB.NET] Descarga video YouTube

« en: 21 Mayo 2011, 18:43 pm »

Estoy haciendo como proyecto de fin de curso un gestor de videos de YouTube. Tratando el tema de la descarga no me oriento muy bien. He encontrado un par de códigos por internet, pero no me funcionan y además no vienen nada comentados.

Por ahora lo único que tengo es el inicio, pero no se como seguir. Si alguien me diese alguna indicación sería de gran utilidad.

Código

   Public Sub obtenerInfo(ByVal link As String)
        Dim peticion As HttpWebRequest
        Dim respuesta As HttpWebResponse
        Dim source As String
        If link.Contains("youtube.com") Then
            Try
                'Se realiza una peticion a la URL que nosotros queremos descargar
                peticion = DirectCast(HttpWebRequest.Create(link), HttpWebRequest)
                'Recibimos la respuesta de esa URL
                respuesta = DirectCast(peticion.GetResponse, HttpWebResponse)
                'Leemos la respuesta y obtenemos toda la información de esa página en una string
                source = New StreamReader(respuesta.GetResponseStream, System.Text.Encoding.Default).ReadToEnd
                'Hasta ahora solo tenemos toda la información que contiene el link
            Catch ex As Exception
                MessageBox.Show("Ha ocurrido un error inesperado", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        End If
    End Sub

Gracias.


« Última modificación: 22 Mayo 2011, 12:10 pm por syntax »	En línea

neoncyber

Desconectado

Mensajes: 90

Re: [VB.NET] Descarga video YouTube

« Respuesta #1 en: 21 Mayo 2011, 23:05 pm »

Creo q esta es la mejor respuesta que te podria dar:

http://youtubefisher.codeplex.com/

Es un proyecto exitoso q se alberga en codeplex, obviamente es open source, el lenguaje esta en c#, pero no le veo el problema para traducirlo, hace tiempo estaba revisando su codigo y es super interesante.

Saludos


« Última modificación: 21 Mayo 2011, 23:07 pm por neoncyber »	En línea

Código

#!/usr/bin/python
print "Visit:"
print "http:\\donkeysharp.blogspot.com"

seba123neo

Desconectado

Mensajes: 3.621

Re: [VB.NET] Descarga video YouTube

« Respuesta #2 en: 21 Mayo 2011, 23:36 pm »

yo te diria que uses la api de youtube en vez de paginas de terceros...


	En línea

syntax

Desconectado

Mensajes: 3

Re: [VB.NET] Descarga video YouTube

« Respuesta #3 en: 22 Mayo 2011, 12:08 pm »

Estoy ojeando el código de YouTube Fisher, y la verdad es que me gusta.

Estoy traduciendo la funcion de obtener el título del video. Pero tengo un problema a la hora de utilizar la funcion HttpUtility.HtmlEncode. Parece ser como que no la encuentra. Y sí, tengo el Imports System.Web.

Por lo que he buscado, realmente debería funcionar, pero no se.
El código de la función en cuestión sería el siguiente:

Código

         Try
            Dim ini As Integer = videoPageHtmlSource.IndexOf("<title>", StringComparison.CurrentCultureIgnoreCase)
            Dim fin As Integer = videoPageHtmlSource.IndexOf("</title>", ini, StringComparison.CurrentCultureIgnoreCase)
            If ini < 0 Or fin < 0 Then
                MsgBox("La pagina no contiene tag de título")
            Else
 
                videoTitle = videoPageHtmlSource.Substring(ini + 7, fin - ini - 7)
                'No me reconoce la linea de abajo. Me la marca como error
                videoTitle = System.Web.HttpUtility.HtmlEncode(videoTitle)     
                videoTitle = System.Text.RegularExpressions.Regex.Replace(videoTitle, "[^\w\.@\[\]\\/()&%' #{}€$£!=-]", String.Empty)
                videoTitle = videoTitle.Replace("\\", "-").Replace("/", "-").Trim()
                If (videoTitle.StartsWith("Youtube", StringComparison.CurrentCultureIgnoreCase)) Then
                    videoTitle = videoTitle.Substring(7).Trim(" -*".ToCharArray())
                End If
            End If
        Catch ex As Exception
 
            videoTitle = ""
        End Try


« Última modificación: 22 Mayo 2011, 12:10 pm por syntax »	En línea

[D4N93R]

Wiki

Desconectado

Mensajes: 1.646

My software never has bugs. Its just features!

Re: [VB.NET] Descarga video YouTube

« Respuesta #4 en: 22 Mayo 2011, 19:53 pm »

Algo malo estás haciendo porque decir que no encuentra HttpUtility.HtmlEncode es como decir que no está la clase Int32.. Revisa bien todo..


	En línea

Lee la guía de conexión al IRC del Foro
Blog: andreujuan.com
Twitter: @blogdejuan

Páginas: [1]

Ir a:

Mensajes similares
	Asunto	Iniciado por	Respuestas	Vistas	Último mensaje
	Youtube - problema con descarga de videos Multimedia	Folker	6	5,159	30 Diciembre 2008, 22:18 pm por ®d
	i´M tube - Herramientas para youtube.Aumenta visitas descarga video y mas cosas Software	usuario oculto	6	9,429	20 Abril 2011, 22:18 pm por usuario oculto
	YouTube: Desactiva la auto reproducción de vídeo en YouTube Noticias	wolfbcn	0	2,461	3 Mayo 2010, 15:59 pm por wolfbcn
	Por que los videos de YouTube detienen la descarga? Foro Libre	Psyfurius	0	2,761	17 Agosto 2010, 10:29 am por Psyfurius
	[Python] SharkTube: ¡Descarga vídeos de YouTube! Python	.:WindHack:.	1	3,405	22 Marzo 2014, 20:35 pm por angrisano