Obtenir l'adresse IP en VB.NET

**DezMax** · 29/12/2012, 21h00

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

**GuruuMeditation** · 29/12/2012, 21h53

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 vb :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**DezMax** · 30/12/2012, 20h50

Merci, le code fonctionne parfaitement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TextBox2.Text = GetMyIp().ToString

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Obtenir l'adresse IP en VB.NET

VB.NET

Discussions similaires

Partager

Partager