论坛风格切换切换到宽版
  • 4943阅读
  • 1回复

[QQ技巧]自动申请QQ代码!只需一个记事本!超快.稳定.绿色.安全 [复制链接]

上一主题 下一主题
离线路灯
 

发帖
562
金币
4350
威望
1778
股份
182
只看楼主 倒序阅读 使用道具 楼主  发表于: 2011-08-29

代码如下:
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即可
使用的过程中记得把输入法切换到英文输入状态!
运行 即可自动填写资料   大家都试试吧! 绝对可行!

自动申请QQ代码!只需一个记事本!超快.稳定.绿色.安全



离线lele140
发帖
10
金币
19
威望
0
股份
-1
只看该作者 沙发  发表于: 2011-09-22
如果验证码可以自己自动填写就更牛逼了。
快速回复
限100 字节
如果您在写长篇帖子又不马上发表,建议存为草稿
 
上一个 下一个