用批处理实现的反应速度测试工具

::此工具在win7和vista下请使用管理员身份运行！
@echo off
cd.>%windir%\time.log
set n=
:start
mode con cols=45 lines=14
title 反应速度测试工具
color 8a

set a=
set b=
set s=
set/a n+=1
set t=%time:~9,1%
cls&echo.&echo.&echo.
echo.
echo.
echo 反应速度测试工具
echo.
echo 当窗口变成红色的时候，迅速按下回车键，程序将
echo.
echo 测试你的反应速度并显示出来，精确度为0.01秒
echo.
echo johnny.r的反应速度为0.11秒，看你能否超越他
echo.
echo 看平均反应速度请按 q
echo.
echo 按回车键开始测试
echo.
set /p s=
if "%s%"=="q" goto pingjun
if "%s%"=="q" goto pingjun

cls
mode con cols=23 lines=6
title 开始测试...
echo.&echo.
color 0a
ping -n %t% 127.1 >nul
color 4a
set a=%time:~3,2%%time:~6,2%%time:~9,2%
pause >nul
set b=%time:~3,2%%time:~6,2%%time:~9,2%
set /a b-=a
::减去程序运行时0.01秒的运算速度
set /a b-=1
echo.&echo.
if "%b:~0,1%"=="%b:~0,2%" goto end3
if "%b:~0,2%"=="%b:~0,3%" goto end1
if not "%b:~0,2%"=="%b:~0,3%" goto end2

::结果
:end1
title 测试结果
cls&echo.&echo.
echo 你的反应速度为 0.%b%秒
echo.
if "%b:~0,1%"=="2" echo 或许还能更快些...
if "%b:~0,1%"=="1" echo 我太崇拜你了！
echo %b%>>%windir%\time.log
echo 按任意键重新开始...
pause >nul
goto start

:end2
title 测试结果
cls&echo.&echo.
echo 你的反应速度为 %b:~0,1%.%b:~1,2%秒
echo.
echo %b%>>%windir%\time.log
echo 我终于看到传说中的“蜗牛”了！
echo 按任意键重新开始...
pause >nul
goto start

:end3
title 测试结果
cls&echo.
echo 你的反应速度为 0.0%b%秒
echo.
echo 你简直是神！！！
echo.
echo %b%>>%windir%\time.log
echo 按任意键重新开始...
pause >nul
goto start

:end4
cls&echo.
echo 你的平均反应速度为 0.0%p%秒
echo.
echo 你是我的偶像！！
echo.
echo 按任意键重新开始...
pause >nul
goto start

:end5
cls&echo.
echo 你的平均反应速度为 0.%p%秒
echo.
if "%p:~0,1%"=="2" echo 不错，加油~
if "%p:~0,1%"=="1" echo 哇..新一代狙神~
echo.
echo 按任意键重新开始...
pause >nul
goto start

:end6
cls&echo.
echo 你的平均反应速度为 %p:~0,1%.%p:~1,2%秒
echo.
echo 我劝你放弃cs吧....
echo.
echo 按任意键重新开始...
pause >nul
goto start

:pingjun
cls
set/a n-=1
set k=
for /f %%i in (%windir%\time.log) do (
set /a k+=%%i
)
set /a p=k/n
title 平均速度
mode con cols=25 lines=8
color 0a
if "%p:~0,1%"=="%p:~0,2%" goto end4
if "%p:~0,2%"=="%p:~0,3%" goto end5
if not "%p:~0,2%"=="%p:~0,3%" goto end6
echo 未知错误...
ping -n 2 127.1>nul
goto start

::本人水平有限，不足的地方请指出，谢谢！