以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]请问如何获取当前路由器中的外网IP地址？【已解决】  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=103494)
--  作者：km007
--  发布时间：2017/7/10 10:51:00
--  [求助]请问如何获取当前路由器中的外网IP地址？【已解决】

请问如何获取当前路由器中的外网IP地址？

 

[此贴子已经被作者于2017/7/10 12:07:07编辑过]
--  作者：有点甜
--  发布时间：2017/7/10 11:11:00
--  

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
    Return mc(0).value

Else
    Return Nothing
End If
--  作者：km007
--  发布时间：2017/7/10 12:07:00
--  

谢谢！