Skaityti tinklalapio HTML su MSHTML ir VB6

MSHTML objektą Visual Basic 6 leidžia atlikti operacijų, susijusių su interneto ir interneto puslapiuose.

Mes matome šiame straipsnyje, kaip per kruopščiai pastatytas VB6 forma, skaityti HTML kodą nuotoliniu būdu tinklalapyje

Mes atveriame savo kopiją "Visual Basic 6 ir sukurti naują EXE. Mes sukurti formą ir disegnamolo kaip paveikslėlyje žemiau, kuris rodo galutinį straipsnį klausimų:

Pagrindinių elementų, kurių savybės yra valdomos tiesiogiai iš VB6 IDE, yra teksto laukelis, Textarea ir mygtuką kontrolę.

Teksto laukelį, bus vadinamas txtUrl ir priskirti kaip numatytąjį tekstą "http://".

Textarea bus vadinamas txtCodiceHTML, ištrinti tekstą, mes nustatyti Wielowierszowy turto Tiesa ir kad horizontalios ir vertikalios slinkties juostą.

Mygtuką kontrolės vadinamas cmdCodiceHTML.

Prieš einant bet kokių turime importo nuoroda į MSHTML biblioteką, kurio pilnas pavadinimas yra Microsoft HTML Object Library.

Įveskite meniu:

 



 Projekto / Nuorodos ...

 

lokalizuoti įrašą, pasirinkite jį ir patvirtinkite pasirinkimą, kaip dokumentuoti šią nuotrauką:

Mes du kartus spustelėti mygtuką, prieigos, kad sub įprastas kodą ir įterpkite šį kodą:

 Private Sub cmdCodiceHTML_Click ()



    



 Dim elementą Kaip Naujas MSHTML.HTMLDocument



    



 Dim dokumentas Kaip MSHTML.HTMLDocument



    



 Rugsėjis oggetto.createDocumentFromUrl dokumento = (txtUrl.Text, vbNullString)



    



 Ar Nors documento.readyState <> "išsamus"



        



 DoEvents



    



 Kilpa



    



 txtCodiceHTML.Text = documento.documentElement.outerHTML



    



 Rugsėjis dokumento = Nieko



    



 Rugsėjis objektą = Nieko







 End Sub

Kodas yra paprasta: paskelbti objektą du kartus, aptarnaujančių iki kryžminė patikra, atidarykite tinklalapį per metodas createDocumentFromUrl.

Effetuiamo ciklo tol, kol jis pasiekia valstybės "užbaigta", tada iki dokumento pabaigos.

Įterpti tekstą į Textarea HTML kodas pro nuosavybė tik skaityti, (žinoma) outerHTML.