说明：红字的需要自己填入
把以下复制到文本后缀名改为.vbs
--------------------------------------------------------
Dim WshShell, QQPath, QQselect
QQPath="填入QQ所在绝对路径"
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath
WScript.Sleep 2000
WshShell.AppActivate "QQ登录"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "填入自己号码"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "填入密码"
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"
參考答案:你在展示自己的才能吗？这是一个爆露狂的行为，你的账号和密码，无疑全问向黑客展示出来了。
WshShell.AppActivate "QQ登录" '万一QQ登录窗口出现的慢了，长于2秒，你就可能把这些账号密码，填写在记事本中。
sendkeys "~" 就可以了。写代码太烦索。
