Lea el código HTML de una página Web con MSHTML y VB6

El objeto MSHTML en Visual Basic 6, permite llevar a cabo una serie de operaciones relacionadas con Internet y las páginas Web.

Vemos en este artículo cómo, a través de un formulario de VB6 cuidadosamente construido, leer el código HTML de forma remota en una página Web

Abrimos nuestra copia de Visual Basic 6 y crear un nuevo EXE. Creamos un formulario y disegnamolo como la imagen de abajo, lo que representa el último artículo en cuestión:

Los principales elementos, cuyas propiedades son gestionados directamente desde el IDE de VB6, es el cuadro de texto, área de texto y botones de control.

El cuadro de texto se llamará txtUrl y asignar el texto predeterminado "http://".

El área de texto se llamará txtCodiceHTML, elimine el texto, vamos a establecer la propiedad Multiline en True y permitir que la barra de desplazamiento horizontal y vertical.

El control de botón que se llama cmdCodiceHTML.

Antes de continuar, tenemos que importar la referencia a la biblioteca MSHTML cuyo nombre completo es la biblioteca de objetos HTML de Microsoft.

Entrar en el menú:

 



 Proyecto / Referencias ...

 

localizar la entrada, seleccionar y confirmar la selección, como se documenta en la siguiente imagen:

Hacemos doble clic en el botón, el acceso que el código de subrutina e insertar el siguiente código:

 Privado cmdCodiceHTML_Click Sub ()



    



 El punto débil como nuevo MSHTML.HTMLDocument



    



 Documento As MSHTML.HTMLDocument



    



 Septiembre oggetto.createDocumentFromUrl documento = (txtUrl.Text, vbNullString)



    



 Aunque no documento.readyState <> "completo"



        



 DoEvents



    



 Bucle



    



 txtCodiceHTML.Text = documento.documentElement.outerHTML



    



 Documento septiembre = Nothing



    



 Objeto de septiembre = Nada







 End Sub

El código es simple: declarar el objeto en dos ocasiones, sirve de cotejo, abra la página Web a través de la createDocumentFromUrl método.

Effetuiamo un ciclo hasta que se alcanza el estado de "completo", entonces hasta el final del documento.

Insertar el texto en la caja de texto el código HTML a través de la propiedad de sólo lectura (por supuesto) outerHTML.