中国DOS联盟

@echo off

::Tested by s11ss 2007-11-29

::参考文章： 批处理编程的异类——时钟（Clock）

::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			涉及第三方工具，不便推广使用