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

@echo off
titleQQ自动登陆脚本生成器v1 . 0
echo .
echo .
echo QQ自动登陆脚本生成器v1 . 0
echo Codeby :t0nsha
echo Email :liaodunxia{at}gmail.com
echo Blog :http : // blog . csdn . net / t0nsha /
echo 注意事项：
echo （一）用本脚本登陆的QQ必须已经手动登陆过一次；
echo （二）脚本运行中最好不要失去焦点，不行可多试几次。
echo .
set / pqqpath =( 1 / 3 ) 请输入QQ路径（带引号）：
set / pqqnum =( 2 / 3 ) 请输入QQ号：
set / pqqpass =( 3 / 3 ) 请输入QQ密码：
echo 'Createdby :QQ自动登陆脚本生成器 v1 . 0 . bat > %qqnum% . vbs
echo 'Writer :t0nsha , Email :tunhsiaAT gmail . com >> %qqnum% . vbs
echo 'WelcomtoMyBlog :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