Obtenir le code html d'une page web facilement

Commenter

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

Du même auteur (gabchampagne)