怎样编程获取公网IP地址并通知？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎样编程获取公网IP地址并通知？

共有3503人关注过本帖树形打印复制链接主题：怎样编程获取公网IP地址并通知？

jacksn

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：106 积分：1002 威望：0 精华：0 注册：2012/9/6 14:13:00

怎样编程获取公网IP地址并通知？ 发帖心情

Post By：2018/11/28 12:57:00 [显示全部帖子]

公司是用不固定的公网IP。但我希望在家里可以连接公司的远程桌面和sql服务器，我想编一个foxtable的小程序能在公网IP改变时发送信息给我（可以用email或其他形式），让我知道公司的IP就可以连接了。

这个小程序的思路应该如何呢？怎样获取公网IP？请大神指导

jacksn

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：106 积分：1002 威望：0 精华：0 注册：2012/9/6 14:13:00

Post By：2018/11/28 14:32:00 [显示全部帖子]

我在命令窗口运行以下代码

Dim WinHttpReq As Object = CreateObject("Msxml2.ServerXMLHTTP")

WinHttpReq.Open("GET", "http://www.ip138.com/ip2city.asp")

WinHttpReq.Send

'正则表达式解析出外网IP

Dim MyRegExp

MyRegExp = CreateObject("VBScript.RegExp")

MyRegExp.Pattern = "((2[0-4]\d|25[0-5]|[01]?\d\d?)\.){3}(2[0-4]\d|25[0-5]|[01]?\d\d?)"

MyRegExp.IgnoreCase = True

MyRegExp.Global = True

Dim Matches As object = MyRegExp.Execute(WinHttpReq.ResponseText)

Return Matches.Item(0).Value

时显示：操作超时错误

主题：怎样编程获取公网IP地址并通知？