如果刚安装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}"