Citiţi HTML al unei pagini Web cu MSHTML şi VB6

Obiectul MSHTML în Visual Basic 6 permite să efectueze o serie de operaţiuni legate la Internet şi pagini Web.

Vedem în acest articol cum, printr-un formular VB6 construite cu grijă, citi codul HTML la distanţă, pe o pagină Web

Am deschis copie noastre din Visual Basic 6 si a crea un nou EXE. Vom crea un formular şi disegnamolo ca imaginea de mai jos, care reprezintă ultim articol în cauză:

Principalele elemente, ale căror proprietăţi sunt gestionate direct din IDE de VB6, este caseta de text, textarea şi controalele buton.

Caseta de text va fi chemat txtUrl şi atribuiţi ca text implicit "http://".

Textarea va fi numit txtCodiceHTML, ştergeţi textul, vom stabili proprietatea Multilinie la True şi de a permite bară de defilare orizontale şi verticale.

Butonul de control se numeşte cmdCodiceHTML.

Inainte de a merge mai departe avem de a importa de referinţă la biblioteca MSHTML al cărui nume complet este Microsoft Biblioteca HTML Object.

Intra în meniul:

 



 Proiect / Referinte ...

 

localizeze intrare, selectaţi-o şi confirmaţi selecţia, după cum documentate în următoarea imagine:

Am dublu clic pe butonul, cod de acces care de rutină sub şi inseraţi codul de mai jos:

 Private Sub cmdCodiceHTML_Click ()



    



 Ca element Dim MSHTML.HTMLDocument noi



    



 Documentul Dim Ca MSHTML.HTMLDocument



    



 Septembrie oggetto.createDocumentFromUrl documentul = (txtUrl.Text, vbNullString)



    



 În timp ce face documento.readyState <> "complet"



        



 DoEvents



    



 Buclă



    



 txtCodiceHTML.Text = documento.documentElement.outerHTML



    



 Documentul septembrie = Nimic



    



 Obiect septembrie = Nimic







 End Sub

Codul este simplu: să declare obiect de două ori, servind prin verificări încrucişate, deschideţi pagina Web prin intermediul createDocumentFromUrl metoda.

Effetuiamo un ciclu până când ajunge la starea de "complet", apoi până la sfârşitul documentului.

Introduceţi textul în textarea codul HTML prin proprietate read-only (desigur) outerHTML.