Lue HTML Web-sivun kanssa MSHTML ja VB6

MSHTML objektiin Visual Basic 6 sallii suorittaa työvaiheiden liittyvät Internet-ja Web-sivuja.

Näemme tässä artikkelissa, kuinka läpi huolellisesti rakennettu VB6 muodossa, lue HTML-koodi etänä Web-sivun

Avaamme kopio Visual Basic 6 ja luoda uutta EXE. Luomme lomake ja disegnamolo kuten alla oleva kuva, joka on viimeinen artikkeli kysymyksen:

Keskeiset elementit, joiden ominaisuudet hallitaan suoraan IDE VB6, on tekstikehys, textarea ja painikkeita.

Tekstikenttä on nimeltään txtUrl ja määrittää oletukseksi teksti "http://".

Textarea kutsutaan txtCodiceHTML, poista teksti, asettaa Multiline ominaisuuden arvoksi Tosi ja mahdollistaa vaaka-ja pystysuoraan Vierityspalkki.

Painikkeen ohjaus on nimeltään cmdCodiceHTML.

Ennen kuin jatkan Meidän on tuotava viittaus MSHTML kirjastoon, jonka täydellinen nimi on Microsoft HTML Object Library.

Anna valikko:

 



 Hanke / Referenssit ...

 

paikallistaa merkinnän, valitse se ja vahvista valinta, joka on dokumentoitu seuraavassa kuvassa:

Me kaksoisnapsauta painiketta, pääsy että osa rutiinia koodin ja lisätä seuraava koodi:

 Private Sub cmdCodiceHTML_Click ()



    



 Dim alkio uutena MSHTML.HTMLDocument



    



 Dim asiakirjan MSHTML.HTMLDocument



    



 Syyskuu oggetto.createDocumentFromUrl asiakirjan = (txtUrl.Text, vbNullString)



    



 Älä Vaikka documento.readyState <> "täydellinen"



        



 DoEvents



    



 Silmukka



    



 txtCodiceHTML.Text = documento.documentElement.outerHTML



    



 Syyskuu asiakirjan = Nothing



    



 Syyskuu esine = Nothing







 End Sub

Koodi on yksinkertainen: julistaa kohteen kahdesti, palvelevat vertailemalla, avaa Web-sivu läpi menetelmällä createDocumentFromUrl.

Effetuiamo syklin mukaisesti, kunnes se saavuttaa valtion "täydellinen", sitten loppuun asiakirjan.

Lisätä tekstin textarea HTML-koodin avulla vain luku-ominaisuus (tietenkin) outerHTML.