休闲伴侣 发表于 2011-2-8 10:03:07

简单制作自己的QQ申请器

本帖最后由 休闲伴侣 于 2011-2-11 21:55 编辑

代码使用方法：
新建TXT记事本，复制进去，另存为VBS即可，使用的过程中记得把输入法切换到英文输入状态！运行，即可自动填写资料，大家都试试吧！绝对可行！
最主要的是可以自定义名称和密码。况且免去了用工具被留后门的危险。
由于不能发链接，代码的紫色网址空白处自己删去。
-----------------------------------------------------------------------以下为代码-----------------------------------------------------------------
Set a=WScript.CreateObject("WScript.shell")
a.run "http://   newreg   .qq.com/" '打开QQ号码申请页面
WScript.Sleep 3000 '延时10秒，等待页面载入
a.SendKeys "休闲社区" '这里填写昵称
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{DOWN}"
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{DOWN}"
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{DOWN}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "www.ii23.cn" '这里是密码
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "www.ii23.cn" '再次输入密码
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"

帝世缘 发表于 2011-2-8 10:10:58

不会用哦 怎么搞的

kkk001 发表于 2011-2-8 10:13:50

学习学习，谢谢分享

lytsch 发表于 2011-2-8 18:38:38

不明白 呵呵 太深了

登山补月 发表于 2011-2-8 21:52:10

学习了.............

休闲伴侣 发表于 2011-2-11 21:54:19

回复 lytsch 的帖子

额，这还深啊？
只要你先新建一本文本文档.txt，然后把代码复制好，再粘贴到文本文档.txt里面然后保存退出，再把文本文档.txt的后缀".txt"改成“.vbs”就OK了。

浪子吟心 发表于 2011-2-21 09:30:03

学习学习学习学习

黑仔仔 发表于 2011-2-25 20:39:31

很简单，谢谢LZ。

黑仔仔 发表于 2011-2-25 20:40:20

我以前也这样制作东西。

sunsun102 发表于 2011-2-28 19:27:33

貌似很强大...学习学习

登山补月 发表于 2011-3-1 08:57:01

学习学习.......II23果然是藏龙卧虎之地

梦想ING 发表于 2011-3-19 18:12:30

非常的感谢啊 ！！！强大的很、
页: [1]
查看完整版本: 简单制作自己的QQ申请器