Läs HTML på en webbsida med MSHTML och VB6

Den MSHTML objekt i Visual Basic 6 gör det möjligt att utföra en serie av åtgärder kopplade till Internet och webbsidor.

Vi ser i denna artikel hur man genom ett omsorgsfullt konstruerade VB6 formulär, läsa HTML-koden på distans på en webbsida

Vi öppnar vårt exemplar av Visual Basic 6 och skapa ett nytt EXE. Vi skapar ett formulär och disegnamolo som bilden nedan, som representerar den sista artikeln i fråga:

De viktigaste beståndsdelarna, vars fastigheter förvaltas direkt från IDE i VB6, är textrutan TextArea och kontroller knappen.

Textrutan kommer att kallas txtUrl och tilldela som standard texten "http://".

TextArea kommer att kallas txtCodiceHTML, ta bort texten, kommer vi att sätta Multiline egenskapen till True och aktivera horisontella och vertikala rullningslisten.

Knappen kontrollera kallas cmdCodiceHTML.

Innan vi går vidare måste vi importera referensen till MSHTML biblioteket, vars fullständiga namn är Microsoft HTML Object Library.

Gå in i menyn:

 



 Projekt / Referenser ...

 

lokalisera posten markerar du den och bekräfta valet, som dokumenteras i följande bild:

Vi dubbelklickar på knappen, tillgång att sub rutin koden och lägg in följande kod:

 Private Sub cmdCodiceHTML_Click ()



    



 Dim objekt som ny MSHTML.HTMLDocument



    



 Dim dokumentet som MSHTML.HTMLDocument



    



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



    



 Göra medan documento.readyState <> "komplett"



        



 DoEvents



    



 Loop



    



 txtCodiceHTML.Text = documento.documentElement.outerHTML



    



 September dokument = Nothing



    



 September objekt = Nothing







 End Sub

Koden är enkel: förklara objektet två gånger, servering med dubbelkontroll, öppna webbsidan genom den metoden createDocumentFromUrl.

Effetuiamo en cykel tills den blir "komplett", och sedan fram till slutet av dokumentet.

Infoga texten i TextArea HTML-koden genom skrivskyddad egenskap (naturligtvis) outerHTML.