用VB.NET获取"真正的"IP地址？

Question

我正在寻找能够提供真正IP的功能,而不是我的本地IP.我目前拥有的功能,返回网络和共享中心的IP,即192.168.2.100但是如果我去了whatismyip,那么它会给我真正的IP.

我怎么能用VB.NET搞定这个？谢谢

Answer 1

要结合上面的答案"创建一个php文件并将其粘贴到其中:

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

将其保存为curip.php并将其上传到您的服务器.

在你的VB.net项目中创建一个模块.在最顶层声明导入部分

Imports System.Net
Imports System.IO

并创建您的功能:

    Public Function GetIP() As String

    Dim uri_val As New Uri("http://yourdomain.com/curip.php")
    Dim request As HttpWebRequest = HttpWebRequest.Create(uri_val)

    request.Method = WebRequestMethods.Http.Get

    Dim response As HttpWebResponse = request.GetResponse()
    Dim reader As New StreamReader(response.GetResponseStream())
    Dim myIP As String = reader.ReadToEnd()

    response.Close()

    Return myIP
End Function

现在您可以在代码中的任何位置发布

Dim myIP = GetIP()

如你所愿使用那里的价值.