以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]IP地址的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=87661)
--  作者：chnfo
--  发布时间：2016/7/16 12:41:00
--  [求助]IP地址的问题
网络环境：无线路由器。
问题：可以获取路由器的公网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编辑过]
--  作者：Hyphen
--  发布时间：2016/7/16 14:15:00
--  
代理IP不会用，等高手解答