Llegir el codi HTML d'una pàgina web amb MSHTML i VB6

L'objecte permet MSHTML Visual Basic 6 per executar una sèrie d'operacions relacionades amb Internet i les pàgines web.

Veiem en aquest article com fer-ho a través d'un formulari de VB6 acuradament construït, per llegir el codi HTML d'una pàgina web remot

Obrim la nostra còpia de Visual Basic 6 i crear un nou EXE. Creem un formulari i disegnamolo com en la imatge de baix, el que representa l'últim article en qüestió:

Els principals elements, les propietats es gestionen directament des del IDE de Visual Basic 6, són el quadre de text, àrea de text i botons de control.

El quadre de text es dirà txtUrl com a text i assignar-li el valor per defecte "http://".

L'àrea de text es dirà txtCodiceHTML, l'eliminació del text, anem a establir la propietat multilínies a True i permetre que la barra de desplaçament horitzontal i vertical.

El botó de comandament es diu cmdCodiceHTML.

Abans de continuar hem d'importar la biblioteca de referència MSHTML el nom complet és Microsoft biblioteca d'objectes HTML.

Entrar al menú:

 



 Projecte / Referències ...

 

localitzar l'entrada, seleccionar i confirmar la selecció, com es documenta en la següent imatge:

Farem doble clic sobre el botó, s'accedeix al codi subrutina i introduïu el següent codi:

 Privat cmdCodiceHTML_Click Sub ()



    



 Punt feble com a nou MSHTML.HTMLDocument



    



 Document As MSHTML.HTMLDocument



    



 Setembre oggetto.createDocumentFromUrl document = (txtUrl.Text, vbNullString)



    



 Encara que no documento.readyState <> "complet"



        



 DoEvents



    



 Bucle



    



 txtCodiceHTML.Text = documento.documentElement.outerHTML



    



 Setembre = document Res



    



 Objecte de setembre = Res







 End Sub

El codi és simple: declarar l'objecte en dues ocasions, serveix mitjançant la revisió, s'obre la pàgina web a través de la createDocumentFromUrl mètode.

Effetuiamo un bucle fins que s'assoleix l'estat de "complet", llavors fins al final del document.

Inserir text en la caixa de text el codi HTML a través de la propietat de només lectura (òbviament) outerHTML.