@echooff
titleQQ自动登陆脚本生成器v1.0
echo.
echo.
echoQQ自动登陆脚本生成器v1.0
echoCodeby:t0nsha
echoEmail:liaodunxia{at}gmail.com
echoBlog: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:tunhsiaATgmail.com>>%qqnum%.vbs
echo'WelcomtoMyBlog:http://blog.csdn.net/t0nsha/>>%qqnum%.vbs
echoqqpath=%qqpath%>>%qqnum%.vbs
echoSetws=wscript.createobject("wscript.shell")>>%qqnum%.vbs
echoSetoExec=ws.Exec(qqpath)>>%qqnum%.vbs
echoDoWhile1>>%qqnum%.vbs
echoIfws.AppActivate("QQ用户登录")=TrueThen>>%qqnum%.vbs
echows.SendKeys"{TAB}">>%qqnum%.vbs
echows.SendKeys"%qqnum%">>%qqnum%.vbs
echo'暂停200毫秒,等待qq号输入完>>%qqnum%.vbs
echowscript.Sleep(200)>>%qqnum%.vbs
echows.SendKeys"{TAB}">>%qqnum%.vbs
echows.SendKeys"%qqpass%">>%qqnum%.vbs
echowscript.Sleep(200)>>%qqnum%.vbs
echows.SendKeys"{ENTER}">>%qqnum%.vbs
echoExitDo>>%qqnum%.vbs
echoEndIf>>%qqnum%.vbs
echoWscript.Sleep200>>%qqnum%.vbs
echoLoop>>%qqnum%.vbs
echo.
echo恭喜,脚本已生成!
pause
5521

被折叠的 条评论
为什么被折叠?



