[问题求助] [已解决]VBS进程检测 进程守护 跪求大神帮忙改改 万分感谢

yapda

option Explicit    
dim wmi,proc,procs,proname,flag,WshShell    
Do  
    proname="QQ.exe" '需要监测的服务进程的名称，自行替换这里的记事本进程名    
set wmi=getobject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2")    
set procs=wmi.execquery("select * from win32_process")    
  flag=true    
for each proc in procs    
    if strcomp(proc.name,proname)=0 then    
      flag=false    
      exit for    
    end if    
next    
  set wmi=nothing    
  if flag then    
    Set WshShell = Wscript.CreateObject("Wscript.Shell")    
    WshShell.Run ("D:\Tencent\QQ.exe")    
end if    
  wscript.sleep 50000 '检测间隔时间，这里是50秒    
loop  
复制代码

我只需要尝试启动两次  如果第一次未能启动就结束掉3个进程 然后第二次启动    50秒后检测成功就退出这个vbs    不成功就执行重启命令

yapda

回复 2# yu2n


    大神  测试了下  很牛逼  跪谢         

     但 最后一次检测   无论进程是否存在   代码都自动结束了    没有失败关机这个功能   是我要在后面那里加上关机吗

yapda

回复 4# yu2n


    还有一个小问题   大神    就是程序第一次启动成功后   脚本会一直在后台继续检测    能否第一次如果成功也执行 退出脚本操作