网络环境：无线路由器。问题：可以获取路由器的公网IP
Dim ShowIP As String
Dim WinHttpReq As Object = CreateObject("Msxml2.ServerXMLHTTP")
WinHttpReq.Open("GET", "http://1212.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
ShowIP = mc(0).value
End If
Return ShowIP
我使用了代理IP之后，用这个所获取的仍然是路由器的IP。
而且，我在NetworkAddressChanged事件中加入代码
dim OK as Boolean
If TryConnectHost("www.baidu.com") Then
OK =
True
Else
OK =
False
End
If
为什么IP地址发生了变化，而且有的IP并不能保证网络能链接，但OK的值不变呢？
是要用NetworkAvailabilityChanged事件吗？
如何获取代理的IP地址呢？
[此贴子已经被作者于2016/7/16 12:48:41编辑过]
加好友 
发短信
Post By：2016/7/16 12:41:00 [显示全部帖子]
