定时关闭某程序的批处理

@echo off
if "%1"=="h" goto loop
mshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",0)(window.close)&&exit
:loop
echo Wscript.Sleep Wscript.Arguments(0) * 1000>Delay.vbs
Delay.vbs 480
taskkill /IM DSF7.exe
del Delay.vbs
%0

======================================================================

@echo off
if "%1" neq "1" (
   >"%temp%/tmp.vbs" echo set WshShell = WScript.CreateObject^(^"WScript.Shell^"^)
   >>"%temp%/tmp.vbs" echo WshShell.Run chr^(34^) ^& %0 ^& chr^(34^) ^& ^" 1^",0
   start /d "%temp%" tmp.vbs
   exit
)

echo Wscript.Sleep Wscript.Arguments(0) * 1000>Delay.vbs
Delay.vbs 10
taskkill /IM DSF7.exe
del Delay.vbs