Ejemplos usando el Api de windows para Visual basic

24 - Obtener el código fuente de un archivo remoto mediante el api InternetReadFile entre otros

Ejemplo que utiliza cuatro funciones Api para leer un archivo Url y obtener el código fuente y Mostrarlo en un control RichTextBox o TextBox

Las funciones que se utilizan son:

InternetOpen: Esta función abre una conexión a internet y es la primera que se ejecuta. La misma devuelve un Handle que se le debe pasar a la función InternetOpenUrl
InternetOpenUrl: Esta abre una dirección o recurso de internet, para el ejemplo es un archivo Url. En la dirección que le enviamos a esta función, la misma debe incluir el protocolo, en este caso Http, por ejemplo no podemos pasar una dirección de esta forma: www.unaweb.com
InternetReadFile: Esta función es la que lee el archivo. En el ejemplo lee los datos del archivo en porciones 128 bytes. Cuando el fichero se accede completamente, el último parámetro de la función retorna el valor 0
InternetCloseHandle: esta función cierra la conexión abierta anteriormente, es decir se ejecuta una ves que se obtuvo el fichero por completo

vista del formulario de ejemplo para descargar el código fuetne de una página web

Ejemplo

Agegar en el formulario un Command1, un RichtextBox.

Al presionar el Botón se abrirá un InputBox donde se debe especificar la dirección Url, y la misma debe incluir el HTTP://

Nota: Al control RichTextBox colocarle barras de Scroll ( También obviamente se puede utilizar un control TextBox)

Código fuente el formulario:

Option Explicit ' Constantes para las funciones Api Const scUserAgent = "API-Guide test program" Const INTERNET_OPEN_TYPE_DIRECT = 1 Const INTERNET_OPEN_TYPE_PROXY = 3 Const INTERNET_FLAG_RELOAD = &H80000000 Const INTERNET_FLAG_NO_CACHE_WRITE = &H4000000 ' Esta función crea una conexión a internet Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" ( _ ByVal sAgent As String, _ ByVal lAccessType As Long, _ ByVal sProxyName As String, _ ByVal sProxyBypass As String, _ ByVal lFlags As Long) As Long ' Esta Api abre un Url Private Declare Function InternetOpenUrl Lib "wininet" Alias "InternetOpenUrlA" ( _ ByVal hInternetSession As Long, _ ByVal lpszUrl As String, _ ByVal lpszHeaders As String, _ ByVal dwHeadersLength As Long, _ ByVal dwFlags As Long, _ ByVal dwContext As Long) As Long ' Esta cierra la conexión pasandole el Handle que habíamos obtenido antes Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer ' Esta Api lee el contenido y lo devuelve en un Buffer que _ contendrá el contenido del fichero Private Declare Function InternetReadFile Lib "wininet" ( _ ByVal hFile As Long, _ ByVal sBuffer As String, _ ByVal lNumBytesToRead As Long, _ lNumberOfBytesRead As Long) As Integer Private Sub Command1_Click() Dim hOpen As Long Dim hFile As Long Dim sBuffer As String * 128 Dim Ret As Long Dim str_Total As String Dim Url As String Url = InputBox(" Escribir la dirección Url incluyendo el Http://", " Abrir Url ") If Url = vbNullString Then Exit Sub ' Abrimos una conexión a internet hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_DIRECT, _ vbNullString, vbNullString, 0) ' Si devuelve 0 es por que o no hay conexión a internet u otro error If hOpen = 0 Then MsgBox " Error al intentar conectar a Internet ", vbCritical Exit Sub Else 'Abrimos la url hFile = InternetOpenUrl(hOpen, Trim$(Url), vbNullString, _ ByVal 0&, INTERNET_FLAG_NO_CACHE_WRITE, ByVal 0&) End If If hFile = 0 Then 'Error MsgBox " Error al querer acceder al archivo ", vbCritical Exit Sub Else 'Lee una porción del fichero ( 128 bytes ) Call InternetReadFile(hFile, sBuffer, 128, Ret) str_Total = sBuffer While Ret <> 0 'Lee de 128 bytes. Cuando ret devuelve 0 finalizó Call InternetReadFile(hFile, sBuffer, 128, Ret) 'Va acumulando el archivo para luego asignarlo al RichTextBox str_Total = str_Total & Mid(sBuffer, 1, Ret) DoEvents Wend End If 'Cerramos el handle anterior (del archivo y de la conexión a internet ) Call InternetCloseHandle(hFile) Call InternetCloseHandle(hOpen) 'Mostramos el fichero en el control RichTextBox RichTextBox1 = str_Total 'Finalizado MsgBox " Listo ", vbInformation End Sub Private Sub Form_Load() Command1.Caption = " >> Obtener archivo " Me.Caption = " Ejemplo para obtener el código fuente de una página " End Sub

Relacionados

Buscar en Recursos vb