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 :tunhsiaAT gmail . 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