QQ快速申请(VBS脚本)
2008-06-17 13:43
246 查看
总是觉得自己QQ不大好记,又舍不得出会员费...自己多申请几个咯(虽然不大道德),总会有好点的...但是老是输相同的东西郁闷得很,就弄了个VBS,方便点.设置好内容后,打开QQ申请页面,运行脚本,然后又两秒钟时间可以让你在"昵称"的空空里点一下,接下来大多数资料会很快地填完...虽然没多少技术含量,但还是觉得有点用的.
'************************************************************** '************************************************************** Dim Sh, Name, Age, Pass, Times(3), Ans(3), i, j '************************************************************** '************************************************************** '设置用户昵称 Name = "Vicry" '设置用户年龄 Age = "16" '设置用户密码 Pass = "123456123456" '设置3个密保问题的需要按下的次数 Times(1) = 1 Times(2) = 1 Times(3) = 1 '设置密保答案 Ans(1) = "abcdefg" Ans(2) = "hijklmn" Ans(3) = "opqrst" '设置完成 '****************************************************** '****************************************************** Set Sh = CreateObject("WScript.Shell") WScript.Sleep 2000 Sh.SendKeys Name Sh.SendKeys "{Tab}" WScript.Sleep 200 Sh.SendKeys Age Sh.SendKeys "{Tab}" Sh.SendKeys "{Tab}" WScript.Sleep 200 For i = 1 to 2 Sh.SendKeys Pass Sh.SendKeys "{Tab}" WScript.Sleep 200 Next For i = 1 to 3 Sh.SendKeys "{Tab}" Next For i = 1 to 3 For j = 1 to Times(i) Sh.SendKeys "{Down}" Next Sh.SendKeys "{Tab}" WScript.Sleep 200 Sh.SendKeys Ans(i) Sh.SendKeys "{Tab}" WScript.Sleep 200 Next Sh.SendKeys "{Tab}" '****************************************************** '******************************************************
相关文章推荐
- 巧用Windows Script Host编写自动申请QQ号码脚本
- 自动发送qq消息 VBS脚本
- 利用vbs脚本快速修改hosts记录,提供Google Picasa相册无法显示图片问题的傻瓜级方案(2009.11.11更新) 推荐
- QQ自动登陆带自动缩小的vbs脚本
- 快速申请QQ号码的技巧(图文介绍)
- VBS取QQ或TM自动登录代码并防止关闭的脚本
- 打开QQ并且让它自己输入用户名和密码的vbs脚本
- VBS调用WMI快速关闭IE的脚本
- 禁止QQ上网的vbs脚本代码
- 快速通道30秒申请QQ!
- 快速申请QQ靓号-可以查看30个QQ号
- ◎Vbs脚本应用——打造个性化QQ
- QQ快速申请工具,非自主研发
- vbs qq自动登录脚本改进版
- QQ个性域名邮箱(免费企业邮箱)快速申请
- 监控并中止QQ及QQgame进程 的vbs 脚本
- word vbs脚本 设置所有题注样式为蓝色,下划线
- SED单行脚本快速参考
- 计划任务 自动 服务器检查 的vbs脚本
- QQ帐户的申请与登陆