如何让程序自动运行

来源：百度知道 编辑：UC知道 时间：2024/05/29 05:08:01
求一个监控所有正在运行的程序的软件,如果有哪个进程关闭则自动让其重新启动运行,换句话说就是有没有办法可以让一个程序保持运行,无法被恶意关闭,只要被关闭,则启动.
用VBS是个好办法..可是我不会VB....
不是电脑重启,而是重启这个程序...
好像还是不管用啊....

用VBS循环监视进程，如果要查询的进程不存在就发出重启命令。
补充：
复制脚本并保存为任意名字.vbs，calc.exe是计算器进程(本例用来测试)，换成你们监控程序，每5秒检查一次可能太短了，自己改下。有疑问再补充。实在不行你把进程名告诉我我邮件给你个现成的。
为了得你这100分我已经把自己电脑重启一次了，为了让你加分我可以再补充任何东西，哈！
脚本内容如下，

On Error Resume Next '忽略所有的错误
Dim bag,pipe,good,i,mark
'本例检查计算器是否运行
Do
good="." '定义为本地计算机
set bag=getobject("winmgmts:\\"& good &"\root\cimv2") 'l连接到cimv2命名空间
set pipe=bag.execquery("select * from win32_process")
for each i in pipe
if lcase(i.name)="calc.exe" then mark=1
next
if mark=1 then
'msgbox "calc已经运行了，不用再启动"
else
'msgbox "calc没有运行"
call shut()
end if
wscript.sleep 5000 '每1分钟检测一次
loop

'****************************************
'*关机
Function shut()
Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}").ExecQu