添加一Inet控件和文本控件
a = Inet1.OpenURL("www.)
b = InStr(a, "您的本机IP地址：")
c = InStr(a, "  ")
d = Mid(a, b + 9, c - b - 10)
Text1.Text = d
'下面是将Text1中数据可存到电脑上代码
Dim SaveFile As String
SaveFile = "D:\服务器外网IP地址.txt" ' open app.path & "\服务器外网IP地址.txt" For output as #1
Open SaveFile For Append As #1
Write #1, Text1.Text
Close #1

这是问题还是分享

分享 吧

没试过
支持分享

感觉可以。没用过
看原理，这个可以取得外网地址，并且支持 通过路由上网的电脑。