Lasīt HTML Web lapas ar MSHTML un VB6

MSHTML objekts Visual Basic 6 ļauj veikt virkni darbību, kas saistīti ar interneta un tīmekļa lapās.

Mēs redzam šajā rakstā, kā, izmantojot rūpīgi izgatavoti VB6 formas, lasīt HTML kodu, attāli Web lapā

Mēs atveram mūsu kopiju Visual Basic 6 un izveidojiet jaunu EXE. Mēs izveidojam formu un disegnamolo kā attēlā zemāk, kas bija pēdējais konkrēto izstrādājumu:

Galvenie elementi, kuru īpašības ir tieši pārvalda no VB6 IDE, ir tekstlodziņš, textarea un pogu kontrolēm.

Tekstlodziņā tiks saukts txtUrl un piešķirt kā noklusējuma tekstu "http://".

Textarea sauks txtCodiceHTML svītro tekstu, mēs noteikti Daudzrindu īpašumu True un nodrošinātu horizontālo un vertikālo ritjoslu.

Pogas vadīklu sauc cmdCodiceHTML.

Pirms turpināšanas kādi mēs esam, lai importētu atsauci uz MSHTML bibliotēkas, kuras pilns nosaukums ir Microsoft HTML objekts bibliotēka.

Ievadiet izvēlni:

 



 Projekta / atsauces ...

 

lokalizēt ierakstu, izvēlieties to un apstipriniet izvēli, kā dokumentēts šādu attēlu:

Mēs dubultklikšķi uz pogas, piekļuvi, sub rutīnas kodu un ievietojiet šādu kodu:

 Private Sub cmdCodiceHTML_Click ()



    



 Dim pozīcijā kā jaunās MSHTML.HTMLDocument



    



 Dim dokumentu kā MSHTML.HTMLDocument



    



 Septembris oggetto.createDocumentFromUrl dokuments = (txtUrl.Text, vbNullString)



    



 Vai gan documento.readyState <> "pilnīgu"



        



 DoEvents



    



 Cilpa



    



 txtCodiceHTML.Text = documento.documentElement.outerHTML



    



 Septembris dokuments = Nekas



    



 Septembris objekts = Nekas







 End Sub

Kods ir vienkārša: atzīt objekts divreiz, pasniegšana, ko veic kontrolpārbaudes, atveriet Web lappusi, izmantojot metodi createDocumentFromUrl.

Effetuiamo ciklu, līdz tā sasniedz stāvokli "pilnīga", tad līdz dokumenta beigās.

Ievietotu tekstu textarea HTML kodu, izmantojot tikai lasāmu īpašumu (protams) outerHTML.