Obtenir l'adresse IP en VB.NET

Version imprimable

29/12/2012, 21h00
DezMax

Obtenir l'adresse IP en VB.NET

Bonsoir, à toutes et à tous je travail actuellement sur un projet et j'aimerais savoir comment obtenir l'adresse ip externe de mon pc .

Merci .

J'ai trouver ce sujet mais sa ne ma pas aider : http://faqvbnet.developpez.com/?page=netw#netw_ipaddr

Est-ce que ton PC est connecté directement à internet ? (Sans routeur, etc...)
Si non, il y a ceci (emprunté sur un autre forum VB (Vu que je ne connais pas le VB!)) :
Code:

1 2 3 4 5 6 Private Function GetMyIP() As Net.IPAddress Using wc As New Net.WebClient Return Net.IPAddress.Parse(Encoding.ASCII.GetString(wc.DownloadData("http://automation.whatismyip.com/n09230945.asp"))) End Using End Function

fonctionne ;)

Merci, le code fonctionne parfaitement

Code:

TextBox2.Text = GetMyIp().ToString

en revanche j'ai tenter de le faire moi même avec un WebBrowser :
Code:

1 2 3 WebBrowser1.Navigate("http://ipicup.com/ip.php") TextBox2.Text = WebBrowser1.Document.GetElementById("ip").InnerText
Le code de la page ip.php
Code:

1 2 3 4 5 6 7 <html> <head></head> <body> <div id="ip"><?php echo $_SERVER['REMOTE_ADDR']; ?></div> </body> </html>

Fuseau horaire GMT +2. Il est actuellement 19h58.