因為自己家里上網每次填入密碼很麻煩所以用這個了，有多個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}"