以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]服务器IP地址问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96519)
--  作者：18523982317
--  发布时间：2017/2/22 16:15:00
--  [求助]服务器IP地址问题
我的服务器用一条公网IP的宽带进行使用，获取了个IP地址，但是这个IP地址在服务器重启之后就会变化，我的客户端如何操作才能自动获取新的ip地址？
--  作者：有点色
--  发布时间：2017/2/22 16:20:00
--  

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

 

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

 
--  作者：18523982317
--  发布时间：2017/2/22 16:26:00
--  
花生壳我问了，他最高的套餐，带宽才6M。。。。
--  作者：有点色
--  发布时间：2017/2/22 16:41:00
--  

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

 

 你可以申请一个便宜的域名，现在1块钱就有一个域名了，然后设置和你的ip绑定起来。
--  作者：18523982317
--  发布时间：2017/2/22 16:46:00
--  
我有个设想，虽然我的ip地址在变化
1、服务器上用个文本文档记录本机IP，服务器每隔5分钟就读取一次本地ip，如果发生变化，就把值写入文本文档。
2、把文本文档利用花生壳做个下载链接
3、客户端链接数据源之前，下载该文本文档，把里面的ip地址作为链接源。。。。

是否可行？
获取本地地址用啥函数？
--  作者：有点色
--  发布时间：2017/2/22 16:53:00
--  

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

 

 同样，你可以通过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
--  作者：18523982317
--  发布时间：2017/2/22 16:56:00
--  
我试过ping花生壳给的域名。。。得到的是花生壳服务器的ip地址。。。
--  作者：18523982317
--  发布时间：2017/2/22 17:03:00
--  
 你可以申请一个便宜的域名，现在1块钱就有一个域名了，然后设置和你的ip绑定起来。

这句话能说详细些不，有点色？看不懂
--  作者：有点色
--  发布时间：2017/2/22 17:04:00
--  

 执行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
--  作者：18523982317
--  发布时间：2017/2/22 17:11:00
--  
有点色，不对不对，你可以在服务器上运行9楼代码，知道服务器的IP地址，但是客户端怎样才能获取到服务器地址啊。。。假设服务器之前的IP地址是1，客户端能脸上，现在服务器地址变成2了，就算运行9楼代码知道本服务器的地址是2，但是客户端不知道啊。。。。