Obtenir le code html d'une page web facilement

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 594 fois - Téléchargée 35 fois

Contenu du snippet

ceci permet d'obtenir la source html d'une page facilement. Hélas, si la page est trop grosse (ex : www.vbfrance.com), on obtien une erreur 7 (pas assez de mémoire.
pour que la source marche, il vou faut créer un controle "microsoft internet transfer control" appelé inet. Sa peut desfois boguer (rien de grave, sa fait juste ralentir, vous verrez)
usage :

text1.text=getsourcehtml(www.winzip.com)

Source / Exemple :


Function getsourcehtml(adresse As String) As String
On Error Resume Next
        Dim codeHTML As String, ladresse
                With Inet
                .AccessType = icUseDefault
                .Protocol = icHTTP
                codeHTML = .OpenURL(adresse, icString)
                Do Until .StillExecuting = False
                        DoEvents
                Loop
        End With
getsourcehtml = codeHTML
End Function

Conclusion :


vous pouvez l'amélioré si vous voulez

A voir également

Ajouter un commentaire

Commentaire

cs_rocky42
Messages postés
97
Date d'inscription
jeudi 28 juin 2007
Statut
Membre
Dernière intervention
7 mars 2011
-
Inet Tout le monde coné Donc Bad 1/10

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.