::电驴基地:: - Powered by Discuz! Board

标题: 快速申请QQ的工具 [打印本页]

作者: pm0008 时间: 2011-3-26 13:28 标题: 快速申请QQ的工具

Set a=WScript.CreateObject("WScript.shell")
a.run "http://newreg.qq.com/" '打开QQ号码申请页面
WScript.Sleep 3000 '延时10秒，等待页面载入
a.SendKeys "cmule8" '这里填写昵称
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 "cmule8" '这里是密码
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "cmule8" '再次输入密码
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"

把以上代码复制进记事本，另存为桌面等改名QQ申请.vbs即可，（默认密码是cmule8大家可以改成自己的

作者: freeboy40 时间: 2011-3-29 20:47

很棒，vb的力量

作者: cm125 时间: 2011-3-29 21:31

不知道怎么用啊

作者: zgq6567 时间: 2011-4-11 12:27 标题: 回复 1# pm0008 的帖子

真的很管用，谢谢

作者: bujinle 时间: 2011-6-28 11:52

太牛x 顶顶

作者: wjwjl 时间: 2011-8-19 14:37

是牛，谢谢

作者: CREZY 时间: 2011-8-19 19:59

不好使。。不知道咋回事

作者: CREZY 时间: 2011-8-19 20:03

OK 了。。只可惜还得手工填验证码。。不过也很方便了。谢谢啊

作者: 409032389 时间: 2011-11-7 18:40

是不怎么方便不过不错了挺起

作者: chw2008 时间: 2011-11-17 14:45

真的很管用，谢谢

作者: wbbgnn 时间: 2012-1-19 00:00

挺不错，就是有点麻烦

欢迎光临 ::电驴基地:: (https://www.cmule.com/)