- @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
复制代码
|