中国DOS联盟

@echo off
::Tested by s11ss 2007-11-29
::参考文章： 批处理编程的异类——时钟（Clock）[by Willsort]
::http://www.cn-dos.net/forum/viewthread.php?tid=8905#pid54227  第4楼
setlocal
if "%1" equ "" (
        echo 参数一是要使用的方法的序号，参数二是要延迟的毫秒数。
        echo 参数一：
        echo 1. for+set+if        最精确，但延时稍长一点就很占CPU使用率
        echo 2. for+cd.        循环800次大概是1秒
        echo 3. vbs:sleep        这个最常用，精确度也行，占CPU使用率较少
        echo 4. ping:w+0.0.0.1        ping1次大概是1秒
        echo 5. ping:127.0.0.1        较常用，ping1次大概是0.5秒
        echo 6. mshta:setTimeout        最烂的方法
        echo 例如，使用方法3延迟2秒：
        echo %0 3 2000
        pause
        goto :eof
)
set before=%time%& echo %time%                %延时前：这行以前（包括这行）%
call :delay%1 %2                                        %延时，参数1是要使用的方法的序号，参数2是要延迟的毫秒数%
set after=%time%&  echo %time%                %延时后：这行以后（包括这行）%

::相当烂的计算实际延迟的算法
set before=%before::=%&set after=%after::=%
set before=%before:.=%&set after=%after:.=%
set/a dif=%after%-%before%
if %dif% lss 100 set dif=00%dif%
if %dif% lss 1000 set dif=0%dif%
echo 实际延迟：%dif:~0,2%.%dif:~-2%秒
::相当烂的计算实际延迟的算法

pause
goto :eof








:delay1 for+set+if                        最精确，但延时稍长一点就很占CPU使用率
for /f "tokens=1-4 delims=:." %%h in ("%time%") do set start=%%h%%i%%j%%k
set/a v=%1/10
        :dc
        for /f "tokens=1-4 delims=:." %%h in ("%time%") do set now=%%h%%i%%j%%k
        set/a dif=%now%-%start%
        if %dif% LSS %v% goto :dc
goto :eof

:delay2 for+cd.                                循环800次大概是1秒
set/a v=%1*800/1000
for /l %%a in (1,1,%v%) do (cd.)
goto :eof

:delay3 vbs:sleep                        这个最常用，精确度也行，占CPU使用率较少
set/a v=%1-400
echo WScript.Sleep %v% >t.vbs
cscript //nologo t.vbs&del t.vbs
goto :eof

:delay4 ping:w+0.0.0.1                ping1次大概是1秒
set/a v=%1/1000
for /l %%a in (1,1,%v%) do ping -n 1 -w 200 1>nul
goto :eof

:delay5 ping:127.0.0.1                较常用，ping1次大概是0.5秒
set/a v=%1*2/1000
for /l %%a in (1,1,%v%) do ping -n 1 127.1>nul
goto :eof

:delay6 mshta:setTimeout        最烂的方法
set/a v=%1-1000
mshta javascript:moveTo(screen.width,screen.height);setTimeout('close()',%v%)
goto :eof

:delay7 sleep.exe                        涉及第三方工具，不便推广使用