一个脚本自动申请QQ

wlczhu · 发表于 2010-6-24 04:12

首先新建一个文本文档，把以下内容复制进去

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

上面的名字和密码可以自己填写（注意大小写），填写完成后另存为REG.VBS，存为VBS格式，双击后即可自动填写表单，你只要输入验证码就可以了很安全

凌风 · 发表于 2010-6-24 04:23

号东西去试下

wlczhu · 发表于 2010-6-24 04:27

哈哈刚刚申请到一个 1550336262 感觉不错

yjq2010 · 发表于 2010-6-26 06:35

支持一下！！！！！

yyt929 · 发表于 2010-7-28 12:57

晕不可以啊！我汗

835375583 · 发表于 2010-7-28 12:59

有没有8位的啊

鬼马小精灵 · 发表于 2010-7-29 19:12

不错的方法、

_SesE灬 · 发表于 2010-7-30 23:13

看八懂、、、、、

恭喜发财 · 发表于 2010-7-30 23:44

我的命名为VBS，怎么还是记事本啊？！

玩转QQ · 发表于 2010-8-5 11:11

这是什么东西呢

nirvana · 发表于 2010-8-6 02:17

好深奥啊飒飒、、

xinrui12317 · 发表于 2010-8-6 07:11

可能还是没弄明白要我选择打开方式………………我选IE 后就没反应了…………

fxq225588 · 发表于 2010-8-6 11:02

不懂呀...........................??????????

asd801 · 发表于 2010-8-6 11:08

东西不错，但是不怎么实用

混世魂魂 · 发表于 2010-8-20 09:24

顶一下
不错不错

混乱 · 发表于 2010-9-2 09:16

呵呵，有点复杂，用着顺手就行

帐号		自动登录	找回密码
密码			用qq邮箱注册

一个脚本自动申请QQ

浏览过的版块