Obtenir le code html d'une page web facilement

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

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.