Lire le code HTML d'une page Web avec MSHTML et VB6

L'objet permet MSHTML Visual Basic 6 pour exécuter une série d'opérations liées à l'Internet et de pages Web.

Nous verrons dans cet article comment le faire à travers une forme VB6 soigneusement construit, à lire le code HTML d'une page web à distance

Nous ouvrons notre copie de Visual Basic 6 et créez un nouvel EXE. Nous créons un formulaire et disegnamolo comme dans l'image ci-dessous, qui représente le dernier article en question:

Les principaux éléments, dont les propriétés sont gérés directement depuis l'IDE de VB6, sont la zone de texte, le textarea et boutons de commandes.

La zone de texte sera appelé txtUrl comme du texte et attribuez la valeur par défaut "http://".

Le textarea sera appelé txtCodiceHTML, supprimer le texte, nous allons définir la propriété Multiline la valeur true et permettre horizontale et verticale Scrollbar.

Le bouton de commande est nommée cmdCodiceHTML.

Avant de continuer nous avons besoin d'importer la référence de bibliothèque MSHTML dont le nom complet est la bibliothèque d'objets Microsoft HTML.

Entrez dans le menu:

 



 Projet / Références ...

 

de localiser l'entrée, sélectionnez-le et confirmez la sélection, tel que documenté dans l'image suivante:

Double-cliquez sur Laissez le bouton, nous avons accès au code sous-routine et insérez le code suivant:

 Private Sub cmdCodiceHTML_Click ()



    



 Point As New MSHTML.HTMLDocument



    



 Documents As MSHTML.HTMLDocument



    



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



    



 Do While documento.readyState <> "complet"



        



 DoEvents



    



 Boucle



    



 txtCodiceHTML.Text = documento.documentElement.outerHTML



    



 Document de Septembre = Nothing



    



 Objet Septembre = Nothing







 End Sub

Le code est simple: déclarer l'objet à deux reprises, servant par recoupement, nous ouvrir la page Web à travers le createDocumentFromUrl méthode.

Effetuiamo une boucle jusqu'à ce qu'il atteigne l'état "complet", puis jusqu'à la fin du document.

Insérer un texte dans le textarea le code HTML par le biais de la propriété en lecture seule (évidemment) outerHTML.