salut
ce sujet est déjà posé mainte fois, l'une d'eux est:
http://www.developpez.net/forums/showthread.php?t=29073
mais la solution prposé par sub0 a besoin d'un script php sur un serveur
et en plus c'est un peut leng,,non??
j'ai touvé sa en VB:quelqu'un peut le convertir en delphi, merci,
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Dim IP As String 'Jérémie Mineault Forget 'Gestion IP Private Sub Form_Load() IP = FrmGestionIp.Inet.OpenURL("http://testip.free.fr/ip.php") If IP = "" Then IP = "Vous n'êtes pas connecté" EtiIpInternet = IP End Sub![]()
Partager