CODE: [Copy to clipboard]
@echo off&color 0a&mode con cols=82 lines=15
set "str1=登陆失败,原因:非常抱歉地通知您,现在是上线高峰时间,暂时不能同时使用更多QQ或TM"
set "str2=错误,原因:QQ号码应为数字或密码不能为空或选择有误。"
set "sp=set /p= <nul"
:name
cls&title 迷你QQ(MiniQQ):
if defined name goto 1
set /p name=^>请输入QQ号码:
echo %name%|findstr "[^0-9]">nul&&set "name="&&goto wrong
goto password
:1
echo ^>请输入QQ号码:%name%
:password
if defined password goto 2
set /p password=^>请输入QQ密码:
if not defined password goto wrong
goto name
:2
set "pss=%password%"&set /p=^>请输入QQ密码:<nul
:lp
set /p=^*<nul
set "pss=%pss:~1%
if defined pss goto lp
:select
echo.&set "select=y"&set /p select=^>是否隐身(Y/N):
if /i "%select%"=="y" set "strong=隐身"&goto next
if /i "%select%"=="n" set "strong=在线"&goto next
goto wrong
:next
echo.&title 迷你QQ(MiniQQ):%name% %strong%
echo ^>服务器:219.133.60.27 ^>随机端口:13892
echo ^>获取令牌...^>登录...^>重定向至:219.133.60.37...
echo ^>登录...&ping /n 5 127.1>nul
set /p=^><nul&%sp%>"%str1%"&findstr /a:0c .* "%str1%*"
echo.&echo.&set /p choice=^>是否再次尝试(Y/N):
if /i "%choice%"=="y" (goto again) else (del /q "%str1%" "%str2%"&exit)
:again
set "name="&set "password="&set "select="&set "choice="&goto name
:wrong
echo.&set /p=^><nul&%sp%>"%str2%"&findstr /a:0c .* "%str2%*"
ping /n 3 127.1>nul&goto name