中国DOS联盟

@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 "">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