下生成一个名为FileNme.com的可执行文件,执行的效果和原来的.bat文件一样。 九、时间延迟 本条参考引用[英雄]教程 什么是时间延迟?顾名思义,就是执行一条命令后延迟一段时间再进行下一条命令。 延迟的应用见下节:“模拟进度条”。 1、利用ping命令延时 例: @echo off echo 延时前:%time% ping /n 3 127.0.0.1 >nul echo 延时后:%time% pause 解说:用到了ping命令的“/n”参数,表示要发送多少次请求到指定的ip。本例中要发送3次请求到本机的ip(127.0.0.1)。127.0.0.1可简写为127.1。“>nul”就是屏蔽掉ping命令所显示的内容。 2、利用for命令延时 例: @echo off echo 延时前:%time% for /l %%i in (1,1,5000) do echo %%i>nul echo 延时后:%time% pause 解说:原理很简单,就是利用一个计次循环并屏蔽它所显示的内容来达到延时的目的。 3、利用vbs延迟函数,精确度毫秒,误差1000毫秒内 例: @echo off echo %time% call :delay 5000 echo %time% pause exit :delay echo WScript.Sleep %1>delay.vbs CScript //B delay.vbs del delay.vbs goto :eof 运行显示: 10:44:06.45 10:44:11.95 请按任意键继续. . . 上面的运行结果显示实际延时了5500毫秒,多出来的500毫秒时建立和删除临时文件所耗费的时间。误差在一秒之内。 4、仅用批处理命令实现任意时间延迟,精确度10毫秒,误差50毫秒内 仅用批处理命令就可以实现延迟操作。 例: @echo off set /p delay=请输入需延迟的毫秒数: set TotalTime=0 set NowTime=%time% ::读取起始时间,时间格式为:13:01:05.95 echo 程序开始时间:%NowTime% :delay_continue set /a minute1=1%NowTime:~3,2%-100 ::读取起始时间的分钟数 set /a second1=1%NowTime:~-5,2%%NowTime:~-2%0-100000 ::将起始时间的秒数转为毫秒 set NowTime=%time% set /a minute2=1%NowTime:~3,2%-100 :: 读取现在时间的分钟数 set /a second2=1%NowTime:~-5,2%%NowTime:~-2%0-100000 ::将现在时间的秒数转为毫秒 set /a TotalTime+=(%minute2%-%minute1%+60)%%60*60000+%second2%-%second1% if %TotalTime% lss %delay% goto delay_continue echo 程序结束时间:%time% echo 设定延迟时间:%delay%毫秒 echo 实际延迟时间:%TotalTime%毫秒 pause 运行显示: 请输入需延迟的毫秒数:6000 程序开始时间:15:32:16.37 程序结束时间:15:32:22.37 设定延迟时间:6000毫秒 实际延迟时间:6000毫秒 请按任意键继续. . . 实现原理:首先设定要延迟的毫秒数,然后用循环累加时间,直到累加时间大于等于延迟时间。 误差:windows系统时间只能精确到10毫秒,所以理论上有可能存在10毫秒误差。 经测试,当延迟时间大于500毫秒时,上面的延迟程序一般不存在误差。当延迟时间小于500毫秒时,可能有几十毫秒误差,为什么?因为延迟程序本身也是有运行时间的,同时系统时间只能精确到10毫秒。 为了方便引用,可将上面的例子改为子程序调用形式: @echo off echo 程序开始时间:%Time% call :delay 10 echo 实际延迟时间:%totaltime%毫秒 echo 程序结束时间:%time% pause exit ::-----------以下为延时子程序-------------------- :delay @echo off if \"%1\"==\"\" goto :eof set DelayTime=%1 set TotalTime=0 set NowTime=%time% ::读取起始时间,时间格式为:13:01:05.95 :delay_continue set /a minute1=1%NowTime:~3,2%-100 set /a second1=1%NowTime:~-5,2%%NowTime:~-2%0-100000 set NowTime=%time% set /a minute2=1%NowTime:~3,2%-100 set /a second2=1%NowTime:~-5,2%%NowTime:~-2%0-100000 set /a TotalTime+=(%minute2%-%minute1%+60)%%60*60000+%second2%-%second1% if %TotalTime% lss %DelayTime% goto delay_continue goto :eof 十、模拟进度条 下面给出一个模拟进度条的程序。如果将它运 |