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
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.