联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
tasklist | findstr /i "xxx.exe" >nul 2>nul && start "c:\program~1\xxx\xxx.exe"
3742668版主在第二楼的代码有个地方写反了,应该把&&换成||就不会不断地启动软件了。
谢谢各位.!~ 如 4楼所说的的确占用了不少内存 不敢随便用 2,468K 比我那个不稳定的程序还要多,
Set objShell = CreateObject("WScript.Shell") strProcess = "cmd.exe" Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\.\root\cimv2") Set colMonitoredProcesses = objWMIService. _ ExecNotificationQuery("select * from __instancedeletionevent " _ & "within 1 where TargetInstance isa 'Win32_Process'") Do While True Set objLatestProcess = colMonitoredProcesses.NextEvent If objLatestProcess.TargetInstance.Name = strProcess Then objShell.Run "c:\windows\system32\cmd.exe" End If Loop