Soyez le premier à donner votre avis sur cette source.
Snippet vu 8 302 fois - Téléchargée 37 fois
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
14 nov. 2008 à 00:28
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.