Lees de HTML van een webpagina met MSHTML en VB6

Het object MSHTML laat Visual Basic 6 het uitvoeren van een reeks van activiteiten in verband met het internet en webpagina's.

We zien in dit artikel hoe je dat doet door middel van een VB6 formulier zorgvuldig geconstrueerd, de HTML-code van een externe webpagina te lezen

Wij openen onze kopie van Visual Basic 6 en maak een nieuwe EXE. Wij creëren een vorm en disegnamolo zoals in de afbeelding hieronder, die de laatste artikel in kwestie vertegenwoordigt:

De belangrijkste elementen, waarvan de eigenschappen worden rechtstreeks beheerd vanuit de IDE van VB6, zijn het tekstvak, de textarea en knoppen.

Het tekstvak wordt genoemd txtUrl als tekst en wijs de standaard "http://".

Het tekstveld zal worden genoemd txtCodiceHTML, de tekst te verwijderen, zullen we de Multiline eigenschap op True en kunnen horizontale en verticale schuifbalk.

Het commando knop is vernoemd cmdCodiceHTML.

Voordat we verder gaan moeten we de MSHTML bibliotheek referentie wiens volledige naam is Microsoft HTML Object Library importeren.

Geef het menu:

 



 Project / Referenties ...

 

lokaliseren het item te selecteren en bevestig de selectie, zoals beschreven in het volgende beeld:

Dubbelklik Laten we op de knop, hebben we toegang tot de sub-routine code en voeg de volgende code:

 Private Sub cmdCodiceHTML_Click ()



    



 Dim Item als nieuwe MSHTML.HTMLDocument



    



 Dim document als MSHTML.HTMLDocument



    



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



    



 Do While documento.readyState <> "complete"



        



 DoEvents



    



 Lus



    



 txtCodiceHTML.Text = documento.documentElement.outerHTML



    



 September = Nothing document



    



 September Object = Nothing







 End Sub

De code is simpel: tweemaal verklaren van het object, waar door de cross-checking, openen we de webpagina via de methode createDocumentFromUrl.

Effetuiamo een lus totdat hij de status "compleet", vervolgens tot het einde van het document bereikt.

Plaats tekst in het tekstveld de HTML-code door de eigenschap alleen-lezen (uiteraard) outerHTML.