Imports System.Net.Sockets Imports System.Net Public Function IP(ByVal adIp As String) As String Dim myIP As IPHostEntry = Dns.Resolve(adIp) Dim sIP As String sIP = ("HostName :" & myIP.HostName & "<br>") sIP += ("Adresse IP :" & myIP.AddressList(0).ToString & "<br>") Return sIP End Function
Salut, j'ai essayé ton code mais obtient une erreur. Je pense que je dois avoir oublié quelque chose... Merci de m'aiderChris
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 871 935 membres 14 nouveaux aujourd'hui 16 147 membres club