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