标题: 批处理运行一段时间退出(已解决，感谢：） [打印本页]
作者: modestleaner 时间: 2011-1-15 15:37 标题: 批处理运行一段时间退出(已解决，感谢：）
有没有这么一个批处理，在打开的时候读取当前时间，然后执行一段代码，在打开过后30s后关闭自身。
小菜怕自己没有表达清楚还是说下具体的事吧。
我想去掉迅雷的广告写了下面这个批处理
@echo off
setlocal enabledelayedexpansion (这句话我不是很清楚什么时候用，so...)
start F:\迅雷\Program\Thunder.exe
:killad
for %%i in (C:\Users\ADMINI~1\AppData\Local\Temp\"Thunder Network"\Thunder\AD\*.*) do del /q "%%i"
goto killad
echo done!
exit
这个批处理太占内存了，我想让他在运行30秒后自动退出
我去网上找了下，有人说用vbs可以实现类似效果
@echo off
echo Wscript.Sleep Wscript.Arguments(0) * 1000>Delay.vbs
::可以添加你的命令
echo 廷时5秒
Delay.vbs 5 ::秒数自己改呀
del Delay.vbs
echo OK!
我试了下，不行。没办法了身边没有会的人，请各位不吝赐教，谢谢。
[ Last edited by modestleaner on 2011-1-17 at 15:27 ]
作者: fsfss 时间: 2011-1-15 16:49
var fso=new ActiveXObject("Scripting.FileSystemObject");
var interval = 1000*60*30;
var date=new Date();
var begin=date.getTime();
var end=date.getTime();
var sfile="C:\\Users\\ADMINI~1\\AppData\\Local\\Temp\\Thunder Network\\Thunder\\AD\\*.*"
while( (end -begin) < interval )
{
end=new Date().getTime();
try{
fso.DeleteFile(sfile,true);
}catch(err){}
WScript.sleep(1)
}
[ Last edited by fsfss on 2011-1-15 at 17:45 ]var interval = 1000*60*30;
var date=new Date();
var begin=date.getTime();
var end=date.getTime();
var sfile="C:\\Users\\ADMINI~1\\AppData\\Local\\Temp\\Thunder Network\\Thunder\\AD\\*.*"
while( (end -begin) < interval )
{
end=new Date().getTime();
try{
fso.DeleteFile(sfile,true);
}catch(err){}
WScript.sleep(1)
}
作者: modestleaner 时间: 2011-1-16 20:18
谢谢楼上，虽然还不是很懂。不知道可以用批处理的方法实现么？
作者: slore 时间: 2011-1-16 21:13
ping -n
作者: modestleaner 时间: 2011-1-16 22:47
ping -n 这个方法我试过，可能是因为没用对。
ping -n 30 127.1 >nul
刚刚有个新想法我去试试
作者: modestleaner 时间: 2011-1-16 23:42
这下面是我想的杂乱的东西，是不是一个自相矛盾的东西啊。
请帮忙鉴定下，错误在哪
set local
start F:\迅雷\Program\Thunder.exe
set num=15
ping -n 2 127.1 >nul
set /a num=%num%-1
if not %num%==0 goto killad else goto re
:killad
for %%i in (C:\Users\ADMINI~1\AppData\Local\Temp\"Thunder Network"\Thunder\AD\*.*) do del /q "%%i"
cls
goto killad
:re
echo done
exit
start F:\迅雷\Program\Thunder.exe
set num=15
ping -n 2 127.1 >nul
set /a num=%num%-1
if not %num%==0 goto killad else goto re
:killad
for %%i in (C:\Users\ADMINI~1\AppData\Local\Temp\"Thunder Network"\Thunder\AD\*.*) do del /q "%%i"
cls
goto killad
:re
echo done
exit
作者: 726842270 时间: 2011-1-17 00:43
用CHOICE /C /D /T /N 之后用ERRORLEVEL的返回值退出
作者: radem 时间: 2011-1-17 12:24
@echo off
start F:\迅雷\Program\Thunder.exe
:killad
ping -n 2 127.1 >nul
set /a num+=1
if %num% gtr 30 goto end
for %%i in (C:\Users\ADMINI~1\AppData\Local\Temp\"Thunder Network"\Thunder\AD\*.*) do del /q "%%i"
goto killad
:end
echo done
pause>nul
start F:\迅雷\Program\Thunder.exe
:killad
ping -n 2 127.1 >nul
set /a num+=1
if %num% gtr 30 goto end
for %%i in (C:\Users\ADMINI~1\AppData\Local\Temp\"Thunder Network"\Thunder\AD\*.*) do del /q "%%i"
goto killad
:end
echo done
pause>nul