用vbs脚本使QQ自动登入

    因为自己家里上网每次填入密码很麻烦所以用这个了，有多个Q号码的只要修改下红字参数，以QQ号码命名并用快捷方式发送到桌面，如果脚本图标觉得难看可以把快捷图标改成QQ图标，双击某个号码就会启动Q 自动填入号码和密码并登入～～～～

    如果刚安装Q，必须登入过一次

    说明：红字的需要自己填入

    把以下复制到文本后缀名改为.vbs
    --------------------------------------------------------
    Dim WshShell, QQPath, QQselect
    QQPath="填入QQ所在绝对路径"
    Set WshShell=WScript.CreateObject("WScript.Shell")
    WshShell.Run QQPath
    WScript.Sleep 2000
    WshShell.AppActivate "Q登录"
    WshShell.SendKeys "+{TAB}"
    WshShell.SendKeys "填入自己号码"
    WScript.Sleep 200
    WshShell.SendKeys "{TAB}"
    WshShell.SendKeys "填入密码"
    WScript.Sleep 200
    WshShell.SendKeys "{ENTER}"