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

我的服务器用一条公网IP的宽带进行使用，获取了个IP地址，但是这个IP地址在服务器重启之后就会变化，我的客户端如何操作才能自动获取新的ip地址？

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

 

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

 

花生壳我问了，他最高的套餐，带宽才6M。。。。

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

 

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

我有个设想，虽然我的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

我试过ping花生壳给的域名。。。得到的是花生壳服务器的ip地址。。。

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

 执行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地址，但是客户端怎样才能获取到服务器地址啊。。。假设服务器之前的IP地址是1，客户端能脸上，现在服务器地址变成2了，就算运行9楼代码知道本服务器的地址是2，但是客户端不知道啊。。。。