主题：获取外网地址错误

Dim WinHttpReq As Object = CreateObject("Msxml2.ServerXMLHTTP")
WinHttpReq.Open("GET", "http://2017.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
    Output.Show(mc(0).value)                                    'mc(0).value 外网地址
End If

测试了一下，没有稳定的、免费的可以返回外网ip的网址，下面地址都可以用

http://www.ipip.net/ip.html

http://ip.chemdrug.com/

http://ip.siteloop.net/