主题：[求助]服务器IP地址问题

  用花生壳固定你的ip地址吧。

https://www.baidu.com/baidu?wd=%BB%A8%C9%FA%BF%C7&tn=monline_4_dg

 解析一下域名，没太大问题吧？

 你可以申请一个便宜的域名，现在1块钱就有一个域名了，然后设置和你的ip绑定起来。

 可以这样做，但有必要这样做吗？

 同样，你可以通过ping花生壳的域名得到ip地址的。

Dim IPs As Net.IPAddress() = Net.Dns.GetHostAddresses("www.foxtable.com")
For Each ip As Net.IPAddress In IPs
    msgbox(ip.ToString())
Next

 执行6楼代码，可能会有多个ip，ip肯定有你自己的那个ip。

 不然，你可以这样获取

Dim WinHttpReq As Object = CreateObject("Msxml2.ServerXMLHTTP")
WinHttpReq.Open("GET", "http://1212.ip138.com/ic.asp")
WinHttpReq.Send
'正则表达式解析出外网IP
Dim str As String = WinHttpReq.ResponseText
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+")
If mc.count > 0 Then
    Return mc(0).value

Else
    Return Nothing
End If

9楼的代码，你要写在服务器上的项目，用来获取最新的ip地址。

方法一：6楼；

方法二：你原来的思路，9楼。

 在客户端，用这句代码获取对应域名的ip地址

Dim IPs As Net.IPAddress() = Net.Dns.GetHostAddresses("145lh47839.51mypc.cn")
For Each ip As Net.IPAddress In IPs
    msgbox(ip.ToString())
Next

哦，那就是获取不到了。你可以申请一个域名嘛，现在域名几块钱/年，你可以手动绑定ip。

不然，你就只能用你原来的思路了。

每次重启，就登陆申请的域名那里，绑定你的ip地址咯。