elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Sigue las noticias más importantes de seguridad informática en el Twitter! de elhacker.NET


  Mostrar Mensajes
Páginas: [1]
1  Programación / Programación Visual Basic / Re: Que programacion estudio? en: 22 Mayo 2011, 14:46 pm
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.
2  Programación / .NET (C#, VB.NET, ASP) / Re: [VB.NET] Descarga video YouTube 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
  1.         Try
  2.            Dim ini As Integer = videoPageHtmlSource.IndexOf("<title>", StringComparison.CurrentCultureIgnoreCase)
  3.            Dim fin As Integer = videoPageHtmlSource.IndexOf("</title>", ini, StringComparison.CurrentCultureIgnoreCase)
  4.            If ini < 0 Or fin < 0 Then
  5.                MsgBox("La pagina no contiene tag de título")
  6.            Else
  7.  
  8.                videoTitle = videoPageHtmlSource.Substring(ini + 7, fin - ini - 7)
  9.                'No me reconoce la linea de abajo. Me la marca como error
  10.                videoTitle = System.Web.HttpUtility.HtmlEncode(videoTitle)    
  11.                videoTitle = System.Text.RegularExpressions.Regex.Replace(videoTitle, "[^\w\.@\[\]\\/()&%' #{}€$£!=-]", String.Empty)
  12.                videoTitle = videoTitle.Replace("\\", "-").Replace("/", "-").Trim()
  13.                If (videoTitle.StartsWith("Youtube", StringComparison.CurrentCultureIgnoreCase)) Then
  14.                    videoTitle = videoTitle.Substring(7).Trim(" -*".ToCharArray())
  15.                End If
  16.            End If
  17.        Catch ex As Exception
  18.  
  19.            videoTitle = ""
  20.        End Try
3  Programación / .NET (C#, VB.NET, ASP) / [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
  1.   Public Sub obtenerInfo(ByVal link As String)
  2.        Dim peticion As HttpWebRequest
  3.        Dim respuesta As HttpWebResponse
  4.        Dim source As String
  5.        If link.Contains("youtube.com") Then
  6.            Try
  7.                'Se realiza una peticion a la URL que nosotros queremos descargar
  8.                peticion = DirectCast(HttpWebRequest.Create(link), HttpWebRequest)
  9.                'Recibimos la respuesta de esa URL
  10.                respuesta = DirectCast(peticion.GetResponse, HttpWebResponse)
  11.                'Leemos la respuesta y obtenemos toda la información de esa página en una string
  12.                source = New StreamReader(respuesta.GetResponseStream, System.Text.Encoding.Default).ReadToEnd
  13.                'Hasta ahora solo tenemos toda la información que contiene el link
  14.            Catch ex As Exception
  15.                MessageBox.Show("Ha ocurrido un error inesperado", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
  16.            End Try
  17.        End If
  18.    End Sub

Gracias.
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines