自动获取外网IP地址并保存到电脑上

添加一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