Obtenir le bon ip d'une personne facilement

Commenter

Contenu du snippet

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

A voir également

Du même auteur (gabchampagne)