'web QQ登录脚本        by愚人陈          2010/4/12      1:00

'不要老是用错误的QQ账号密码登录,不然就会出图形验证码,脚本就没办法了

set ie=createobject("internetexplorer.application")

ie.navigate "http://ui.ptlogin2.qq.com/cgi-bin/login?style=4&appid=1002101&enable_qlogin=0&no_verifyimg=1&s_url=http://web.qq.com/main.shtml?direct_13_13&f_url=loginerroralert"     '"http://web.qq.com"
ie.visible=1
Do 
Wscript.Sleep 200 
Loop Until ie.ReadyState=4

ie.Document.getElementByID("u").value = "695595980"         'QQ号

ie.Document.getElementByID("p").value = "abcdefgh"         'QQ密码

ie.document.getElementById("webqq_type").checked=True     '是否隐身登陆
ie.document.getElementById("remember_uin").checked=True     '是否记住账号
WScript.Sleep 200
ie.Document.getElementByID("login_button").click
复制代码

@echo off
set "QQ号=123456789"
set "QQ密码=******"

call :Login_WebQQ
pause
exit /b

:Login_WebQQ
>"%temp%\Login_WebQQ.vbs" (
    echo 'web QQ登录脚本        by愚人陈          2010/4/12      1:00
    echo '不要老是用错误的QQ账号密码登录,不然就会出图形验证码,脚本就没办法了
    echo set ie=createobject("internetexplorer.application"^)
    echo ie.navigate "http://ui.ptlogin2.qq.com/cgi-bin/login?style=4&appid=1002101&enable_qlogin=0&no_verifyimg=1&s_url=http://web.qq.com/main.shtml?direct_13_13&f_url=loginerroralert"     '"http://web.qq.com"
    echo ie.visible=1
    echo Do 
    echo Wscript.Sleep 200 
    echo Loop Until ie.ReadyState=4
    echo ie.Document.getElementByID("u"^).value = "%QQ号%"         'QQ号
    echo ie.Document.getElementByID("p"^).value = "%QQ密码%"         'QQ密码
    echo ie.document.getElementById("webqq_type"^).checked=True     '是否隐身登陆
    echo ie.document.getElementById("remember_uin"^).checked=True     '是否记住账号
    echo WScript.Sleep 200
    echo ie.Document.getElementByID("login_button"^).click
)
"%temp%\Login_WebQQ.vbs"
del "%temp%\Login_WebQQ.vbs"
goto :eof
复制代码