精华 | |
金钱 | BA |
威望 | 点 |
贡献值 | 点 |
爱心 | 点 |
经验 | 点 |
注册时间 | 2010-9-15 |
最后登录 | 1970-1-1 |
在线时间 | 小时 |
| |
| |
| |
|
立即注册,加入爱黑武论坛的大家庭!爱黑武,爱上搞机生活!
您需要 登录 才可以下载或查看,没有账号?注册
x
【转帖而已】
(电脑用)看到好多人还不知道这个深度快速申请QQ,给大家传上来,绝对无毒放心使用,一般申请三个就会被限制IP,只要断网重新连接就有可以申请三个了,想要多少就有多少,9位的也不在少数,8位的估计是没戏了,下载后去掉.zip,打开后先在右边填一下资料,点击下边的自动,输完了验证码直接敲回车就可以,申请下来的QQ会自动保存。进去的时候提示升级,点确定或者关掉都行,就是别真升级去,那个带病毒的,切记~~
以下内容转自黑基论坛
Set a=WScript.CreateObject("WScript.shell")
a.run "http://newreg.qq.com/" '打开QQ号码申请页面
WScript.Sleep 3000 '延时10秒,等待页面载入
a.SendKeys "123" '这里填写昵称
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 "tonghua" '这里是密码
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "tonghua" '再次输入密码
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
----------------------------------以上为代码--------------------------------
其实这个最主要的是可以自定义名称和密码。况且免去了用工具被留后门的危险。
新建TXT记事本
将代码复制进去
另存为VBS即可(或者保存改后缀为.VBS)
使用的过程中记得把输入法切换到英文输入状态!
运行 即可自动填写资料 大家都试试吧! 绝对可行![s:58]
|
|