vbs也能自动申请QQ

修行者 编程开发 1770浏览 9评论

自己写了一个简单的自动申请QQ号码VBS脚本,高手勿笑。原理很简单,就是模拟了我们打开QQ号码申请页面,并填写资料,但是验证码需自己填写。符号'后面为注释,看懂且看,看不懂的飘过。

Set a=WScript.CreateObject("WScript.shell")        '给变量a赋值,定义了个对象句柄
a.run "http://newreg.qq.com/"                                '打开QQ号码申请页面 
WScript.Sleep 3000              '延时3000毫秒即3秒,用来等待页面载入 ,可根据个人打开页面速度而定
a.SendKeys "xxzh"                             '这里填写昵称,不能为中文,否则会出错,因为是模拟键盘的
a.SendKeys "{TAB}"                       '模拟TAB键即跳格,以下相同
WScript.Sleep 200                        '延时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 "xingxingzhihuo"                    '这里是密码 
a.SendKeys "{TAB}" 
WScript.Sleep 200 
a.SendKeys "xingxingzhihuo"                  '再次输入密码 
WScript.Sleep 200 
a.SendKeys "{TAB}" 
WScript.Sleep 200 
a.SendKeys "{TAB}" 
WScript.Sleep 200 
a.SendKeys "{TAB}" 
WScript.Sleep 200 
a.SendKeys "{TAB}"

将以上代码直接复制到文本,注释无需去掉,然后保存为.VBS文件,双击执行即可。

此代码不止可以用来自动申请QQ号码,自己相应的修改下,可用于网站注册,非常方便。

修行者

本文地址https://xxzh.net/biancheng/vbs-zidong-shenqing-QQ.html

版权说明:如非注明,本站文章均为 修行者博客 原创,转载请注明出处和附带本文链接。

已有9位小伙伴发表了看法
  1. christianaudigier

    christianaudigier游客 回复Ta 恩恩 代码很复杂 博主你写的也好辛苦吧

  2. monclerjackets

    monclerjackets游客 回复Ta 恩恩 先收了,回去好好研究研究...

  3. 学夫子

    学夫子游客 回复Ta 反正我是不懂的,代码盲,哈哈

  4. 每日一狗

    每日一狗游客 回复Ta 路过踩上一脚![F]Haha[/F]

  5. 龙凤双喜

    龙凤双喜游客 回复Ta 呵呵 居然被你发现

  6. 90后创业

    90后创业游客 回复Ta 不错哦。
    使用下。

  7. 東方冰萱

    東方冰萱游客 回复Ta 看不懂,不过试了下确实能自动填写资料。

  8. 天边鱼

    天边鱼游客 回复Ta 哈哈.. 不错有想法, 这个拓展一下可以做个建议的按键精灵了..

  9. 七七

    七七游客 回复Ta 好的,支持了琢磨琢磨(*^__^*) 嘻嘻……

发表评论(友情提示:可直接按Ctrl+Enter提交评论)
来宾的头像
访客