查看: 1326|回复: 8
收起左侧

[技巧] 自动申请QQ代码!只需一个记事本!超快.稳定.绿色.安全

[复制链接]
Beauking.
发表于 2010-7-12 12:56:04 | 显示全部楼层 |阅读模式
  1. Set a=WScript.CreateObject("WScript.shell")
  2. a.run "http://newreg.qq.com/" '打开QQ号码申请页面
  3. WScript.Sleep 3000 '延时10秒,等待页面载入
  4. a.SendKeys "123" '这里填写昵称
  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 "tonghua" '这里是密码
  20. a.SendKeys "{TAB}"
  21. WScript.Sleep 200
  22. a.SendKeys "tonghua" '再次输入密码
  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}"
复制代码
新建TXT记事本
复制进去
另存为VBS即可
使用的过程中记得把输入法切换到英文输入状态!
运行 即可自动填写资料 大家都试试吧! 绝对可行!

.
woainigashegao
发表于 2010-7-12 13:01:58 | 显示全部楼层
好东西,支持一下了
lx7716
发表于 2010-7-12 13:11:47 | 显示全部楼层
申请那么多干什么
一个就够了
我就一个号用了10年了
极限度—魔
发表于 2010-7-12 14:35:22 | 显示全部楼层
我看看啊 不知道有什么用
极限度—魔
发表于 2010-7-12 14:37:56 | 显示全部楼层
网页都打不开 晕
xzhlksh
发表于 2010-7-12 14:56:00 | 显示全部楼层
无聊
yanfangchi
发表于 2010-7-12 16:06:53 | 显示全部楼层
不行啊

421481582
头像被屏蔽
发表于 2010-7-14 17:30:16 | 显示全部楼层
好用 支持下
djlegend
发表于 2010-7-14 22:48:20 | 显示全部楼层
现在能用吗?
您需要登录后才可以回帖 登录 | 快速注册

本版积分规则

手机版|杀毒软件|软件论坛| 卡饭论坛

Copyright © KaFan  KaFan.cn All Rights Reserved.

Powered by Discuz! X3.4( 沪ICP备2020031077号-2 ) GMT+8, 2025-1-12 22:45 , Processed in 0.128316 second(s), 17 queries .

卡饭网所发布的一切软件、样本、工具、文章等仅限用于学习和研究,不得将上述内容用于商业或者其他非法用途,否则产生的一切后果自负,本站信息来自网络,版权争议问题与本站无关,您必须在下载后的24小时之内从您的电脑中彻底删除上述信息,如有问题请通过邮件与我们联系。

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