延时 - 中国DOS联盟论坛 - 中国DOS联盟之联合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			涉及第三方工具，不便推广使用

第1楼　s11ss	发表于 2007-11-29 15:44
银牌会员　发帖 566　积分 2,098
[总结]延时 @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=%1800/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=%12/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 涉及第三方工具，不便推广使用

第2楼　HAT	发表于 2007-11-30 02:28
版主　发帖 5,017　积分 9,023
倾向于vbs.sleep

第3楼　purplelichen	发表于 2008-11-11 21:04
新手上路　发帖 8　积分 8
我也有一个: rem ---------------------------------------------------------------------------------- rem time delayer bat ,3 secs as an example rem Purple&Green,2008/09/05 rem use %time% expansion,accuracy:0.01second. rem FORMAT SENSITIVE - code needed to be changed since %time% may be shown in different formats in different systems :timeloopBEGIN set /a delay=1003 set /a oldt=(%time:~0,1%10+%time:~1,1%)6060100+(%time:~3,1%10+%time:~4,1%)60100+(%time:~6,1%10+%time:~7,1%)100+(%time:~9,1%10+%time:~10,1%) :timeloop set /a delaying=(%time:~0,1%10+%time:~1,1%)6060100+(%time:~3,1%10+%time:~4,1%)60100+(%time:~6,1%10+%time:~7,1%)100+(%time:~9,1%*10+%time:~10,1%) - %oldt% if /i %delaying% lss %delay% goto timeloop rem ----------------------------------------------------------------------------------- 不知是否能和 delay1 比比精确度呢，呵呵。

第4楼　huahua0919	发表于 2008-11-11 21:18
银牌会员　发帖 780　积分 1,608
s11ss大大也得貼個你CPU的總線位數吧，32和64的處理問題處理同樣的問題64有可能只要0.0x秒的

第5楼　purplelichen	发表于 2008-11-11 21:34
新手上路　发帖 8　积分 8
很荣幸得到 huahua0919　的点评，我是在自己的电脑上测试比较过　s11s　的方法的，虽然有误差，但还是尽量在相同的条件下。我没有对s11s不敬的意思。最后要说　ｃｎ－ｄｏｓ很有气氛。

第6楼　yishanju	发表于 2008-11-11 22:25
银牌会员　发帖 1,357　积分 1,488
都喜欢挖坟，都多少年前的帖子了