Læs HTML på en webside med MSHTML og VB6

Den MSHTML objekt i Visual Basic 6 gør det muligt at udføre en række operationer relateret til internettet og websider.

Vi ser i denne artikel hvordan, gennem en nøje konstrueret VB6 form, læse HTML-koden eksternt på en webside

Vi åbner vores kopi af Visual Basic 6 og oprette en ny EXE. Vi skaber en form og disegnamolo som billedet nedenfor, som repræsenterer den sidste artikel i spørgsmål:

De vigtigste elementer, hvis egenskaber styres direkte fra IDE af VB6, er tekstboksen, det textarea og knapperne.

Tekstboksen vil blive kaldt txtUrl og tildeler som standard teksten "http://".

Den textarea vil blive kaldt txtCodiceHTML, slette teksten, vil vi sætte Multiline egenskaben til Sand og aktivere vandrette og lodrette rullebjælke.

Knappen kontrol er kaldt cmdCodiceHTML.

Før jeg går videre, vi er nødt til at importere henvisningen til MSHTML bibliotek, hvis fulde navn er Microsoft HTML Object Library.

Indtast menuen:

 



 Projekt / Referencer ...

 

lokalisere post, skal du markere det og bekræfte valget, som dokumenteret i følgende billede:

Vi dobbeltklikke på den knap, få adgang til at sub rutine kode og indsæt følgende kode:

 Private Sub cmdCodiceHTML_Click ()



    



 Dim element som ny MSHTML.HTMLDocument



    



 Dim dokument som MSHTML.HTMLDocument



    



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



    



 Gøre, mens documento.readyState <> "komplet"



        



 DoEvents



    



 Loop



    



 txtCodiceHTML.Text = documento.documentElement.outerHTML



    



 September dokument = Nothing



    



 September objekt = Nothing







 End Sub

Koden er enkel: erklærer objektet to gange, tjener ved at krydstjekke, åbne websiden gennem metoden createDocumentFromUrl.

Effetuiamo en cyklus, indtil den når staten "komplet", så indtil slutningen af ​​dokumentet.

Indsætte teksten i textarea HTML-koden gennem read-only ejendom (selvfølgelig) outerHTML.