QQ快速申请(VBS脚本)

    总是觉得自己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}"

'******************************************************
'******************************************************