ce code ouvre une page internet spéciale qui trouve l'IP et après, il fouille le code HTML à la recherche de l'IP. Tant que la page ne change pas, Ca va marché. Sinon, je vais la mettre à jour
il vous faut un controle "microsoft tranfer control" appelé inet
exemple :
text1.text = checkIP
Source / Exemple :
Function CheckIP() As String
On Error Resume Next
Dim codeHTML As String, ladresse
With Inet
.AccessType = icUseDefault
.Protocol = icHTTP
codeHTML = .OpenURL("http://checkip.dyndns.org", icString)
Do Until .StillExecuting = False
DoEvents
Loop
End With
ladresse = Right(codeHTML, Len(codeHTML) - 102)
If Len(ladresse) = 54 Then
CheckIP = Left(ladresse, 15)
CheckIP = Right(CheckIP, 14)
Else
CheckIP = Left(ladresse, 16)
CheckIP = Right(CheckIP, 15)
End If
If CheckIP = "" Then
CheckIP = "ERREUR!"
End If
End Function
Conclusion :
c peut boguer desfois (rien de grave), vous vérrez.Si sa marche pu, dite moi le
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.