在vb.net获取IP地址

Question

我想在vb.net中获得当前的Internet IP地址。我不想要本地主机的IP地址。像如（http://www.ipchicken.com/网站返回的IP地址）

Answer 1

你可以只知道，如果你的主机（PC）有静态的互联网IP地址的真实IP地址，而不是像194.xxx或10.xxx等http://en.wikipedia.org/wiki/Private_network 否则尝试发送HTTP请求服务一样www.ipchicken.com或其他http://www.google.ru/search?hl=en&q=my+ip+address知道你的IP地址

Answer 2

这应该做的伎俩：

http://www.vbdotnetheaven.com/UploadFile/prvn_131971/ipvb11162005073000AM/ipvb.aspx

Answer 3

我明白你是想为您出现的是IP地址互联网而不是你的内部网络IP。我有一些代码的地方，我会发掘出你，但它基本上是由这（从内存中）：

• 创建WebRequest和WebResponse对象
• 请求一个网页（使用的WebRequest），显示您的使用regular expressions收集您的IP IP（如IP Chicken），并捕捉到WebResponse对象
• 响应解析响应

就像我说的，我会尽量挖掘出的代码，但这个应该是更多次一个足够的信息供你使用:-)

Answer 4

像这样的东西应该得到你当前的公共IP。

Public Class Form1 

    Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown 
     AddHandler wb.DocumentCompleted, AddressOf wb_DocumentCompleted 
    End Sub 

    Public WithEvents wb As New WebBrowser 
    'before using wb add 
    'AddHandler wb.DocumentCompleted, AddressOf wb_DocumentCompleted 
    Private Sub GetPubIP() 
     Try 
      'the site returns a string like "Current IP Address: 69.59.196.211" 
      wb.Navigate(New Uri("http://checkip.dyndns.org")) 
     Catch ex As Exception 
      'add error checking 
     End Try 
    End Sub 

    Private Sub wb_DocumentCompleted(ByVal sender As Object, _ 
            ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) 
     'parse the reply 
     Dim parts() As String = wb.Document.Body.InnerText.Split(":"c) 
     Debug.WriteLine(parts(1).Trim) 
    End Sub 

    Private Sub Button1_Click(ByVal sender As System.Object, _ 
           ByVal e As System.EventArgs) Handles Button1.Click 
     GetPubIP() 
    End Sub 
End Class 

Answer 5

这就是你要找的。我写了一个简单的PHP脚本返回调用时的IP地址，然后写了这个VB.Net代码来调用它在任何时候：

Public Function jnWhatIsMyExternalIP() As String 
     Dim strURL As String = "http://www.mycompanywebsite/jnNetworkTools/jnCheckIP.php" 

     Dim Request As System.Net.WebRequest = System.Net.WebRequest.Create(strURL) 
     Dim Response As System.Net.WebResponse = Request.GetResponse() 

     Dim Reader As New System.IO.StreamReader(Response.GetResponseStream()) 
     Dim strMyIP As String = Reader.ReadToEnd() 

     Return strMyIP 
    End Function 

这里是PHP代码，在jnCheckIP.php：

<?php 
echo $_SERVER['REMOTE_ADDR']; 
?> 

调用VB.Net函数会导致用户计算机调用服务器上的PHP脚本，然后返回用户IP地址。

Answer 6

Function GetIP() As String 
    Dim IP As New WebClient 
    Return IP.DownloadString("http://icanhazip.com/") 
End Function