Mensajes

Yo también te recomendaría Python la verdad. Es bastante asequible para los que empiezan en este mundillo. Te aconsejaría primero que antes de ponerte a aprender cualquier lenguaje, busques por Google sobre la lógica de la programación etc para que te queden claro los conceptos básicos, y ya luego te pones con el lenguaje.

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 (vbnet) [Seleccionar] Expandir


        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

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 (vbnet) [Seleccionar] Expandir

  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.