Leer el codigo HTML de una página web con visual basic 6 (vb6)

Bienvenidos a VerTutoriales.com en esta ocasión os traigo un código para Visual Basic 6 (vb6) con el cual podremos cargar el código fuente de una página web cualquiera.

En otro tutorial expliqué como poder realizar un actualizador de versiones para nuestro programa en vb6, pero lo veia poco optimo el tener que descargar un archivo y leerlo, así que puesto manos a la obra encontré una manera algo más limpia, leer el contenido de una web, que no tiene por que ser una web completa (aunque el código que utilizo vale para leer integramente el codigo fuente de una web), así que podemos crear una web con un dato que leamos desde vb6 y luego tratar esa información como queramos.

Así que vamos al lio, para este tutorial vamos a necesitar un modulo para cargar varias funciones de la API de Windows. El código que debemos insertar es el siguiente:

Option Explicit
Public Declare Function InternetOpen Lib “wininet.dll” Alias “InternetOpenA” (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Public Declare Function InternetOpenUrl Lib “wininet.dll” Alias “InternetOpenUrlA” (ByVal hInternetSession As Long, ByVal sURL As String, ByVal sHeaders As String, ByVal lHeadersLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Public Declare Function InternetReadFile Lib “wininet.dll” (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Public Declare Function InternetCloseHandle Lib “wininet.dll” (ByVal hInet As Long) As Integer

Public Const IF_FROM_CACHE = &H1000000
Public Const IF_MAKE_PERSISTENT = &H2000000
Public Const IF_NO_CACHE_WRITE = &H4000000

Public Const BUFFER_LEN = 256

Una vez tenemos declaradas las funciones que vamos a utilizar en nuestro modulo, vamos a leer nuestra web utilizando el siguiente código, tened en cuenta que necesitamos una caja de texto en la cual vamos a insertar el código que leemos con visual basic. El script es el siguiente:

Public Function LeeURL(sURL As String) As String
Dim sBuffer As String * BUFFER_LEN, iResult As Integer, sData As String
Dim hInternet As Long, hSession As Long, lReturn As Long

‘get the handle of the current internet connection
hSession = InternetOpen(“vb wininet”, 1, vbNullString, vbNullString, 0)
‘get the handle of the url
If hSession Then hInternet = InternetOpenUrl(hSession, sURL, vbNullString, 0, IF_NO_CACHE_WRITE, 0)
‘if we have the handle, then start reading the web page
If hInternet Then
‘get the first chunk & buffer it.
iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn)
sData = sBuffer
‘if there’s more data then keep reading it into the buffer
Do While lReturn <> 0
iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn)
sData = sData + Mid(sBuffer, 1, lReturn)
Loop
End If

‘close the URL
iResult = InternetCloseHandle(hInternet)

LeeURL = sData

End Function

La función que acabamos de ver LeeURL recibe un parametro llamado sURL la cual será la dirección de nuestra página web, por ejemplo: http://www.vertutoriales.com. Esta función LeeURL, lo siguiente que hace es manejar la conexión y comprobar si es todo correcto y una vez hecha la conexión lee hasta llegar al final de la web. De esta manera, devuelve todo el texto leido.

Muy sencilla de utilizar, lo único que hará falta será llamar a esta función con el parametro sURL, es decir, con la página web que queramos leer. Sería de la siguiente manera:

txtContenido.Text = LeeURL(“http://www.vertutoriales.com”)

txtContenido es un objeto TextBox, al cual le asignamos el retorno de la función LeeURL, que a su vez estamos pasandole la url que en nuestro caso hemos puesto http://www.vertutoriales.com

Y eso es todo, una vez llamamos a la función esta puede tener algún tipo de retardo, dependiendo de nuestra conexión y tambien la del servidor, lo normal de un navegador.

Ahora dependerá de lo que hagamos con esa lectura, como comenté al principio, yo lo he utilizado para saber la versión de un programa de gestión que estoy utilizando, cada vez que arranca mi programa, compruebo si la versión en internet es más nueva, si es así, solo lanzo una descarga del nuevo archivo con la nueva versión. Pero podeis utilizarlo para más cosas como buscar emails… etc…

¿Que se os ocurre a vosotros?

Un saludo!