VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
楼主: 19900603

[推荐] UPNP穿透NAT 测试成功 + 源码

  [复制链接]
发表于 2012-12-14 08:57:00 | 显示全部楼层
有兴趣
回复 支持 反对

使用道具 举报

发表于 2012-12-14 12:03:54 | 显示全部楼层
无限奉献精神可嘉
回复 支持 反对

使用道具 举报

发表于 2012-12-14 17:22:48 | 显示全部楼层
我试了两台电脑,都开启了 SSDP Discovery Service,但还是出错:

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x

点评

楼下代码已发  发表于 2012-12-14 19:03
开启了得重启机器吧,等我研究完UPNP协议那个应该通用了  发表于 2012-12-14 17:38
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-12-14 19:01:55 | 显示全部楼层
本帖最后由 19900603 于 2012-12-14 21:28 编辑






设备的搜寻-------成功

描述页请求-------成功

获取Ip地址--------成功

删除端口映射-----成功


添加端口映射-----未测试

先别着急添加。。 因为添加端口我还没测试
我用Delphi写的那个测试的时候 路由器会无响应  上不去网了。。。
现在路由器没在我家 重启不方便啊 。。 只能等晚点再试了
不过貌似不是代码的问题。有条件的同学 自己测试下。。
如果添加端口映射后上不去网了 那么 重启路由器就好了。。
谁说 Vb不能打洞。。

嘿嘿 看在我辛苦几晚的份上来点分呗。。查资料一查一晚 不容易啊。。



本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x

评分

参与人数 1人气 +1 收起 理由
sq03 + 1 很给力!

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2012-12-14 19:29:06 | 显示全部楼层
@19900603
我的那个服务一直都是开启着的,所以不需要重启。
回复 支持 反对

使用道具 举报

发表于 2012-12-14 21:07:48 | 显示全部楼层
19900603 发表于 2012-12-14 19:01
设备的搜寻-------成功

描述页请求-------成功

我只取到这样的设备:
  1. HTTP/1.1 200 OK
  2. CACHE-CONTROL: max-age = 1200
  3. EXT:
  4. LOCATION:http://********
  5. SERVER: Windows/6.1.7600 UPnP/1.1 uTorrent(client)(native)/313
  6. ST:ut:client:service:pairing
  7. USN:uuid:********
  8. FRIENDLYNAME:********

复制代码
这个明显是客户端的设备……你的程序是不是只接收一个包啊……

点评

34楼附件已更新  发表于 2012-12-14 21:29
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-12-14 21:21:34 | 显示全部楼层
acme_pjz 发表于 2012-12-14 21:07
我只取到这样的设备:这个明显是客户端的设备……你的程序是不是只接收一个包啊……

呃。。我再改改 忘记这问题了。。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-12-15 18:37:46 | 显示全部楼层
本帖最后由 19900603 于 2012-12-15 21:11 编辑


Ok  添加端口成功  楼上的Bug 也修复掉了。。。
测试环境 WinXp Sp3
原来忘记了计算 Xml 的长度 。  怪不得 会死掉。。
欢迎大家来找BUG  找到楼下回复即可

不要权限 不要金币 你还等啥?加分拿源码留痕迹  走人

  亲们 :求分 板砖  求鸡蛋 求精华     - - - 不要像1L那样哦!!

测试的请写好 测试环境 有分的哦



本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x

点评

支持!  发表于 2016-6-10 11:13
取IP地址不成功的 可能是路由器的 Upnp协议有不同的地方。  发表于 2013-2-17 00:30
下载就自动当病毒被删了,我先测试下再说,兄弟劳苦功高啊!  发表于 2012-12-15 20:18
哦 忘记了。。 窗体中放了 Winsock控件,,忘记删了。。 删掉就可以 没用  发表于 2012-12-15 18:57
路由器必须开启Upnp功能才可使用  发表于 2012-12-15 18:45

评分

参与人数 1威望 +8 人气 +1 收起 理由
快手 + 8 + 1 很给力!

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2012-12-15 20:27:31 | 显示全部楼层
环境:win7专业版,TP-Link无线路由
一旦“取控制页”,则后续操作都是:

若不“取控制页”,完美添加、删除端口测试,暂未发现BUG

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x

点评

Api版的 在Server中能用否?  发表于 2012-12-18 21:48
额 我的错 看42楼 已修复  发表于 2012-12-15 22:43
Upnp协议的端口是 1900无法定义啊 不清楚什么问题。。。  发表于 2012-12-15 22:35
把ip和端口都自定义化吧  发表于 2012-12-15 21:14
获取外网ip时就是出现400页面错误啊 HTTP/0.0 400 Bad Request SERVER: TP-LINK Wireless Router WR340G, UPnP/1.0 CONTENT-LENGTH: 50 CONTENT-TYPE: text/html <html><body><h1>400 Bad Reques   发表于 2012-12-15 21:13

评分

参与人数 1威望 +4 人气 +2 收起 理由
19900603 + 4 + 2 感谢测试

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2012-12-15 20:47:01 | 显示全部楼层
不知道怎么用 和楼上一样 获取外网IP那个没有数值!怎么和顶楼一样发生消息啊!

点评

42楼 修复Bug  发表于 2012-12-15 22:44
确保你有路由器 并且路由器开着Upnp功能 先点发现设备 再点 取Ip  发表于 2012-12-15 21:00

评分

参与人数 1威望 +4 人气 +2 收起 理由
19900603 + 4 + 2 感谢测试

查看全部评分

回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-6-29 02:27

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表