QQ自动登陆脚本生成器 v1.0

@echo off


title QQ自动登陆脚本生成器 v1.0


echo.


echo.


echo QQ自动登陆脚本生成器 v1.0


echo Code by:t0nsha


echo Email:liaodunxia{at}gmail.com


echo Blog:http://blog.csdn.net/t0nsha/


echo 注意事项：


echo （一）用本脚本登陆的QQ必须已经手动登陆过一次；


echo （二）脚本运行中最好不要失去焦点，不行可多试几次。


echo.


set /p qqpath=(1/3)请输入QQ路径（带引号）：


set /p qqnum=(2/3)请输入QQ号：


set /p qqpass=(3/3)请输入QQ密码：


echo 'Created by:QQ自动登陆脚本生成器 v1.0.bat > %qqnum%.vbs


echo 'Writer:t0nsha,Email:tunhsiaATgmail.com >> %qqnum%.vbs


echo 'Welcom to MyBlog:http://blog.csdn.net/t0nsha/ >> %qqnum%.vbs


echo qqpath=%qqpath% >> %qqnum%.vbs


echo Set ws=wscript.createobject("wscript.shell") >> %qqnum%.vbs


echo Set oExec = ws.Exec(qqpath) >> %qqnum%.vbs


echo Do While 1 >> %qqnum%.vbs


echo If ws.AppActivate("QQ用户登录")=True Then>> %qqnum%.vbs


echo ws.SendKeys "{TAB}" >> %qqnum%.vbs


echo ws.SendKeys "%qqnum%" >> %qqnum%.vbs


echo '暂停200毫秒，等待qq号输入完 >> %qqnum%.vbs


echo wscript.Sleep(200) >> %qqnum%.vbs


echo ws.SendKeys "{TAB}" >> %qqnum%.vbs


echo ws.SendKeys "%qqpass%" >> %qqnum%.vbs


echo wscript.Sleep(200) >> %qqnum%.vbs


echo ws.SendKeys "{ENTER}" >> %qqnum%.vbs


echo Exit Do >> %qqnum%.vbs


echo End If >> %qqnum%.vbs


echo Wscript.Sleep 200 >> %qqnum%.vbs


echo Loop >> %qqnum%.vbs


echo.


echo 恭喜，脚本已生成！


pause