| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- vb.net如何获取外网IP？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=20766) |
| -- 作者：migold -- 发布时间：2012/6/19 10:14:00 -- vb.net如何获取外网IP？ 在百度上搜索到： http://wenda.tianya.cn/wenda/thread?tid=4a5c982486e856c4
求助哪个高手转换到狐表中可使用 |
| -- 作者：lihe60 -- 发布时间：2012/6/19 10:37:00 -- 期望有高手出现！！！ |
| -- 作者：狐狸爸爸 -- 发布时间：2012/6/19 12:14:00 -- http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=16465&skin=0
|
| -- 作者：飞 -- 发布时间：2012/6/19 13:22:00 -- \'此函数用于获取外网IP地址 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) Return Matches.Item(0).Value
|
| -- 作者：migold -- 发布时间：2012/6/19 13:34:00 -- 谢谢！ |
| -- 作者：lihe60 -- 发布时间：2012/6/19 14:27:00 -- 飞真是网络高手！ |
| -- 作者：migold -- 发布时间：2012/6/19 15:51:00 -- 飞兄：
请问，"Msxml2.ServerXMLHTTP" ，在哪里有说明书看看 请问，"VBScript.RegExp" ，在哪里有说明书看看
麻烦了 |
| -- 作者：lihe60 -- 发布时间：2012/6/19 15:55:00 -- 这是秘密！！！ |
| -- 作者：lihe60 -- 发布时间：2012/6/19 15:56:00 -- 不好意思，好像我成了飞的发言人，其实我不是。 |
| -- 作者：lihe60 -- 发布时间：2012/6/19 15:57:00 -- 贺老师应该少些第三方控件，多些飞这样的代码，不用添加引用。 [此贴子已经被作者于2012-6-19 15:57:36编辑过]
|