Pročitajte HTML web-stranicu s MSHTML i VB6

Objekt MSHTML omogućuje Visual Basic 6 pokrenuti niz operacija vezanih uz Internet i web-stranicama.

Vidimo u ovom članku kako to učiniti kroz VB6 obrasca pažljivo konstruiran, čitati HTML kod udaljenog web stranice

Mi smo otvoreni naš primjerak Visual Basic 6 i stvoriti novi EXE. Mi stvaramo obrazac i disegnamolo kao na slici ispod, koja predstavlja konačni članak na pitanje:

Glavni elementi, čija svojstva se upravlja izravno iz IDE u VB6, su tekstualni okvir, textarea i gumb kontrole.

Tekstualni okvir će se zvati txtUrl kao tekst i dodijeliti zadanog "http://".

Textarea će se zvati txtCodiceHTML, izbrišite tekst, mi ćemo postaviti redaka svojstvo na True i omogućiti horizontalne i vertikalne trak za pomicanje.

Naredbeni gumb nazvan cmdCodiceHTML.

Prije nastavka moramo uvesti referentna MSHTML knjižnica čije puno ime je Microsoft HTML Object Library.

Unesite izbornik:

 



 Projekt / Reference ...

 

ograničiti unos, odaberite ga i potvrditi izbor, kao što je dokumentirano u sljedećoj slici:

Idemo duplim klikom na gumb, imamo pristup pod broj rutinu i umetnite sljedeći kôd:

 Private Sub cmdCodiceHTML_Click ()



    



 Dim stavku kao novi MSHTML.HTMLDocument



    



 Dim dokument kao MSHTML.HTMLDocument



    



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



    



 Učiniti dok documento.readyState <> "potpuni"



        



 DoEvents



    



 Petlja



    



 txtCodiceHTML.Text = documento.documentElement.outerHTML



    



 Rujan = Ništa dokumenta



    



 Rujna objekta = Nothing







 End Sub

Kod je jednostavan: proglasiti objekt dva puta, posluživanje od strane cross-checking, smo otvorili web-stranicu metodom createDocumentFromUrl.

Effetuiamo petlja dok se ne dostigne stanje "potpune", a zatim do kraja dokumenta.

Umetanje teksta u textarea HTML kod putem imovinu samo za čitanje (očito) outerHTML.