[毫秒数] = 10 * 60 * 1000 '十分钟
[命令行] = "notepad.exe"

Dim ws,process
Set ws = CreateObject("Wscript.Shell")

Do
	Set process = ws.Exec([命令行])
	WScript.Sleep [毫秒数]
	process.Terminate
Loop
复制代码