Foxtable(狐表) → 用户栏目 → 专家坐堂 → vb.net如何获取外网IP？


  共有12195人关注过本帖树形打印复制链接

主题：vb.net如何获取外网IP？
帅哥哟，离线，有人找我吗？
migold
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：447 积分：4572 威望：0 精华：0 注册：2009/1/11 11:00:00 		vb.net如何获取外网IP？  发帖心情 Post By：2012/6/19 10:14:00 [只看该作者]

在百度上搜索到：

http://wenda.tianya.cn/wenda/thread?tid=4a5c982486e856c4

 

求助哪个高手转换到狐表中可使用
 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6911 积分：43773 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2012/6/19 10:37:00 [只看该作者]

期望有高手出现！！！

 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2012/6/19 12:14:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
飞
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：732 积分：5491 威望：0 精华：14 注册：2011/8/28 12:49:00 		  发帖心情 Post By：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
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：447 积分：4572 威望：0 精华：0 注册：2009/1/11 11:00:00 		  发帖心情 Post By：2012/6/19 13:34:00 [只看该作者]

谢谢！

 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6911 积分：43773 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2012/6/19 14:27:00 [只看该作者]

飞真是网络高手！

 回到顶部
帅哥哟，离线，有人找我吗？
migold
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：447 积分：4572 威望：0 精华：0 注册：2009/1/11 11:00:00 		  发帖心情 Post By：2012/6/19 15:51:00 [只看该作者]

飞兄：

 

请问，"Msxml2.ServerXMLHTTP"  ，在哪里有说明书看看

请问，"VBScript.RegExp"  ，在哪里有说明书看看

 

麻烦了
 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6911 积分：43773 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2012/6/19 15:55:00 [只看该作者]

这是秘密！！！
 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6911 积分：43773 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2012/6/19 15:56:00 [只看该作者]

不好意思，好像我成了飞的发言人，其实我不是。

 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6911 积分：43773 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2012/6/19 15:57:00 [只看该作者]

以下是引用狐狸爸爸在2012-6-19 12:14:00的发言：

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=16465&skin=0

 

贺老师应该少些第三方控件，多些飞这样的代码，不用添加引用。

[此贴子已经被作者于2012-6-19 15:57:36编辑过]
 回到顶部
总数 18 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询