- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 出现这个错误提示，问题出在哪？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=21540)
-- 发布时间：2012/7/16 16:18:00
-- 出现这个错误提示，问题出在哪？
如上图提示，请教，这个是什么问题产生的？
此主题相关图片如下：未命名.gif
-- 发布时间：2012/7/16 16:34:00
--
哦，是获取外网有问题。
Dim WinHttpReq As Object = CreateObject("Msxml2.ServerXMLHTTP")
WinHttpReq.Open("GET", "http://www.ip138.com/ip2city.asp")
WinHttpReq.Send
\'正则表达式解析出外网IP
Dim MyRegExp
MyRegExp = CreateObject("VBScript.RegExp")
MyRegExp.Pattern = "((2[0-4]\\d|25[0-5]|[01]?\\d\\d?)\\.){3}(2[0-4]\\d|25[0-5]|[01]?\\d\\d?)"
MyRegExp.IgnoreCase = True
MyRegExp.Global = True
Dim Matches As object = MyRegExp.Execute(WinHttpReq.ResponseText)
Vars("外网IP") = Matches.Item(0).Value
Dim HostName As String
Dim IPAdress As System.Net.IPAddress
HostName = System.Net.Dns.GetHostName \'获得本机的机器名
IPAdress = System.Net.Dns.GetHostByName(HostName).AddressList.GetValue(0) \'获得本机的IP
\'\'OutPut.Show( HostName ) \'本机机器名
Vars("内网IP") = IPAdress.ToString \'本机的IP
OutPut.Show(IPAdress.ToString)
-- 发布时间：2012/7/16 16:50:00
--
请问下，谁可做一个获取外网IP的代码？多谢了！