开启左侧

一段自动申请QQ号码的vbs脚本

[复制链接]
发表于 2012-2-9 16:01:40 | 显示全部楼层 |阅读模式
(审稿人注:本段代码为一段vbs脚本,主要就是打开注册页面后,模拟按键的发送!至于是否具体真实有效,未经测试,代码不会造成任何不良后果,有意者可以自行测试,此外,此脚本实用性并不大,并不能用来申请多个QQ号码!)


  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}"
  31. 复制代码
复制代码

----------------------------------以上为代码---------------------------------------------

新建TXT记事本
复制进去
另存为VBS即可(把TXT换成VBS格式再打开)
使用的过程中记得把输入法切换到英文输入状态
运行 即可自动填写资料
平度网:www.pingdu.co 平度论坛:bbs.pingdu.co
发表于 2012-2-9 16:02:49 | 显示全部楼层
曾经用按键精灵试着写过 但是没有成功 ——!
收藏了 ^^!
平度网:www.pingdu.co 平度论坛:bbs.pingdu.co
发表于 2012-2-9 16:02:59 | 显示全部楼层
bu xing
平度网:www.pingdu.co 平度论坛:bbs.pingdu.co
发表于 2012-2-9 16:03:07 | 显示全部楼层
哈哈 很强大啊
平度网:www.pingdu.co 平度论坛:bbs.pingdu.co
 楼主| 发表于 2012-2-9 16:03:13 | 显示全部楼层
缺少脚本啊啊。
平度网:www.pingdu.co 平度论坛:bbs.pingdu.co
发表于 2012-2-9 16:03:20 | 显示全部楼层
谢谢。。试试去。
平度网:www.pingdu.co 平度论坛:bbs.pingdu.co
您需要登录后才可以回帖 登录 | 会员注册

本版积分规则

 
QQ在线咨询
售前咨询热线
0532-88371356
售后服务微信
pingduwangzhan
快速回复 返回顶部 返回列表