主题：软件联网问题

获取本机的外网ip？红色地址会变，不稳定。

Dim WinHttpReq As Object = CreateObject("Msxml2.ServerXMLHTTP")
WinHttpReq.Open("GET", "http://2018.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

服务器那里搭建一个http吧。打开的时候访问一下服务器的http。

http://www.foxtable.com/mobilehelp/scr/0001.htm

http://www.foxtable.com/mobilehelp/scr/0159.htm

获取ip号，参考 e.Request.RemoteEndPoint.Address.ToString