Les HTML på en webside med MSHTML og VB6

Gjenstanden MSHTML lar Visual Basic 6 for å kjøre en serie av operasjoner knyttet til Internett og web-sider.

Vi ser i denne artikkelen hvordan du gjør det gjennom en VB6 skjema omhyggelig konstruert, for å lese HTML-koden til en ekstern nettside

Vi åpner vår kopi av Visual Basic 6 og opprette en ny EXE. Vi skaper en form og disegnamolo som på bildet nedenfor, som representerer den endelige artikkelen på spørsmålet:

De viktigste elementene, hvis egenskaper styres direkte fra IDE til VB6, er tekstboksen, den textarea og knapp kontroller.

Tekstboksen vil bli kalt txtUrl som tekst og tilordne default "http://".

Den textarea vil bli kalt txtCodiceHTML, sletter tekst, vil vi sette Multiline eiendom til True og aktivere horisontale og vertikale Rullefelt.

Kommandoknappen heter cmdCodiceHTML.

Før du fortsetter må vi importere MSHTML bibliotek referansen hvis fulle navn er Microsoft HTML Object Library.

Gå inn i menyen:

 



 Prosjekt / Referanser ...

 

lokalisere oppføringen, velger du den og bekrefter valget, som dokumentert i følgende bilde:

La oss dobbeltklikk på knappen, får vi tilgang til sub rutine kode og sett inn følgende kode:

 Private Sub cmdCodiceHTML_Click ()



    



 Dim element som ny MSHTML.HTMLDocument



    



 Dim dokumentet Som MSHTML.HTMLDocument



    



 September oggetto.createDocumentFromUrl dokument = (txtUrl.Text, vbNullString)



    



 Må Mens documento.readyState <> "komplett"



        



 DoEvents



    



 Loop



    



 txtCodiceHTML.Text = documento.documentElement.outerHTML



    



 September = Ingenting dokument



    



 September Object = Nothing







 End Sub

Koden er enkel: erklære objektet to ganger, servering av kryss-sjekking, åpner vi websiden gjennom metoden createDocumentFromUrl.

Effetuiamo en løkke til det når staten "fullstendig", deretter til slutten av dokumentet.

Sett tekst i textarea i HTML-koden gjennom eiendommen read-only (selvsagt) outerHTML.