全球主机交流论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

CeraNetworks网络延迟测速工具IP归属甄别会员请立即修改密码
查看: 3420|回复: 13

QQ自动申请代码

[复制链接]
发表于 2010-8-23 21:49:01 | 显示全部楼层 |阅读模式
新建文本文档,另存为.VBS文件
  1. Set a=WScript.CreateObject("WScript.shell")
  2. a.run "http://newreg.qq.com/ " '打开QQ号码申请页面
  3. WScript.Sleep 3000 '延时10秒,等待页面载入
  4. a.SendKeys "xiaoyu" '这里填写昵称
  5. a.SendKeys "{TAB}"
  6. WScript.Sleep 200
  7. a.SendKeys "{DOWN}"
  8. a.SendKeys "{TAB}"
  9. WScript.Sleep 200
  10. a.SendKeys "{DOWN}"
  11. a.SendKeys "{TAB}"
  12. WScript.Sleep 200
  13. a.SendKeys "{DOWN}"
  14. WScript.Sleep 200
  15. a.SendKeys "{TAB}"
  16. WScript.Sleep 200
  17. a.SendKeys "{TAB}"
  18. WScript.Sleep 200
  19. a.SendKeys "4820227w" '这里是密码
  20. a.SendKeys "{TAB}"
  21. WScript.Sleep 200
  22. a.SendKeys "4820227w" '再次输入密码
  23. WScript.Sleep 200
  24. a.SendKeys "{TAB}"
  25. WScript.Sleep 200
  26. a.SendKeys "{TAB}"
  27. WScript.Sleep 200
  28. a.SendKeys "{TAB}"
  29. WScript.Sleep 200
  30. a.SendKeys "{TAB}"
复制代码
转来的,作者:http://www.9170.org/post-219.html
 楼主| 发表于 2010-8-23 21:49:58 | 显示全部楼层
申请成功!您获得的号码为:1327636493此号处于未保护状态
申请成功!您获得的号码为:1536686050此号处于未保护状态
发表于 2010-8-23 21:50:24 | 显示全部楼层
发错版块了吧
发表于 2010-8-23 21:54:25 | 显示全部楼层
精品,收藏
发表于 2010-8-23 21:56:04 | 显示全部楼层
原帖由 Favsky 于 2010-8-23 21:54 发表
精品,收藏

你试试能申请多少个就被封ip =.=
发表于 2010-8-23 21:58:38 | 显示全部楼层
不过学习到一点东西!

终于知道自动完成表的一些原理了!
发表于 2010-8-23 22:03:07 | 显示全部楼层
申请三个然后就IP限制了
发表于 2010-8-23 22:08:54 | 显示全部楼层
增加自动断号拨号
发表于 2010-8-23 22:13:47 | 显示全部楼层
不用验证码?
发表于 2010-8-23 22:13:57 | 显示全部楼层
原帖由 ssh 于 2010-8-23 21:58 发表
不过学习到一点东西!

终于知道自动完成表的一些原理了!

这个是根据按键来完成的,另外还有一些软件是根据关键字来完成的
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|全球主机交流论坛

GMT+8, 2025-5-2 10:59 , Processed in 0.060921 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表