中国DOS联盟

为拉学习才这样写的 不要骂我哈 谢谢:(

@echo off &title [code by nh..]
mode con cols=30 lines=10
color 0A
set b=4
set t=%time%
setlocal EnableDelayedExpansion
set x=带来不便请谅解
set r=谢谢使用
:nn
ping -n 2 127.1>nul

:QQ
cls
echo===============================
echo+++++需要密码 !x:~0,%n%!
echo 例如当前计算机时间是%t:~0,5%
echo 密码为末位数%t:~4,1%-3的值 !r:~0,%y%!!" ^^_^^

echo===============================

if not "%n%"=="7" set /a n+=1 &goto :nn
set /a y+=1
ping -n 1 127.1>nul
if not "%y%"=="5" goto :QQ
ping -n 1 127.1>nul
:set
set /p QQ=输入对方QQ号码 ||echo.&echo. &set /p q=1退出 2修改 其他键+ENTER完成
if %q%==1 goto :eof
if %q%==2 goto :set

:num
for /f "tokens=2 delims=: " %%i in ("%time%") do (set a=%%i )
set a=%a:~1%
set /a key=%a%-3
echo.
cls
echo 对方 QQ %QQ%
echo.
set /p mm=输入密码
if %b% equ 0 goto :ef
if not "%mm%" == "%key%" goto :nu

:start
cls
echo 对方 QQ %QQ% &ping -n 2 127.1>nul
start tencent://Message/?Uin=%QQ%
cls
set /p S=Y继续 按其他键退出
if /i not %S%==Y goto :eof

:start1
cls
set /p QQ=输入对方QQ号码 &goto :start

:nu
set /a b-=1
cls
echo 你的密码错误,继续吗？
echo.

:ok
echo 当前%b%次 有效输入机会！
echo.
set Y/N=
Set /p Y/N=请输入[Y/N]
if "%Y/N%" =="" goto :err1
if /i %Y/N%==Y goto :num
if /i %Y/N%==N goto :eof
goto :erro

:erro
cls
ping -n 2 127.1>nul
echo 你的输入不正确！
set t=
Set /p t=是否继续 [Y/N]
echo.
if "%T%"=="" goto :erro
if /i %T%==Y goto :ok
if /i %T%==N goto :eof
goto :erro

:err1
cls
echo.
echo 你的输入为空,请等候三秒！
ping -n 3 127.1>nul &cls &goto :ok

:ef
cls
echo.
@echo 输入超过最大允许次数
echo. &echo 请按任意键退出 ！
pause>nul