请老师给注释一下这个批处理

wssylxb

@echo off
if "%1" == "h" goto begin
mshta vbscript:createobject("wscript.shell").run("%~nx0 h",0)(window.close)&&exit
:begin
set _task=foxtable
set _runexe=start.vbs

:checkstart
echo "检查进程"
for /f "tokens=5" %%c in ('qprocess.exe ^| find "%_task%"') do ( if %%c==" " ( @echo ) else goto checkag  )
goto startsvr

:startsvr

echo ******开始启动程序*******

echo 启动时间 %time%  >> restart.log  

echo set ws=wscript.createobject("wscript.shell") >> %_runexe%
echo ws.run "foxtable.exe",0,false >> %_runexe%   

start /b %_runexe%


echo Wscript.Sleep Wscript.Arguments(0) >%tmp%\delay.vbs

cscript //b //nologo %tmp%\delay.vbs 10000

del %_runexe% /Q

echo *******程序启动完成********

goto checkstart


:checkag

echo Wscript.Sleep Wscript.Arguments(0) >%tmp%\delay.vbs

cscript //b //nologo %tmp%\delay.vbs 10000

goto checkstart

flashercs

1. @echo off
   
2. if "%1" == "h" goto begin
   
3. @REM 强制跳转:begin
   
4. mshta vbscript:createobject("wscript.shell").run("%~nx0 h",0)(window.close)&&exit
   
5. :begin
   
6. set _task=foxtable
   
7. set _runexe=start.vbs
   
8. 
   
9. :checkstart
   
10. @REM 若进程%_task%存在,则延迟10秒;若进程不存在,则启动程序.反复循环
    
11. echo "检查进程"
    
12. for /f "tokens=5" %%c in ('qprocess.exe ^| find "%_task%"') do ( if %%c==" " ( @echo ) else goto checkag  )
    
13. goto startsvr
    
14. 
    
15. :startsvr
    
16. 
    
17. echo ******开始启动程序*******
    
18. 
    
19. echo 启动时间 %time%  >> restart.log  
    
20. @REM 用start.vbs,隐藏窗口启动程序
    
21. echo set ws=wscript.createobject("wscript.shell") >> %_runexe%
    
22. echo ws.run "foxtable.exe",0,false >> %_runexe%   
    
23. 
    
24. start /b %_runexe%
    
25. 
    
26. @REM 延迟10秒后删除start.vbs,继续检测进程
    
27. echo Wscript.Sleep Wscript.Arguments(0) >%tmp%\delay.vbs
    
28. 
    
29. cscript //b //nologo %tmp%\delay.vbs 10000
    
30. 
    
31. del %_runexe% /Q
    
32. 
    
33. echo *******程序启动完成********
    
34. 
    
35. goto checkstart
    
36. 
    
37. 
    
38. :checkag
    
39. @REM 延迟10秒
    
40. echo Wscript.Sleep Wscript.Arguments(0) >%tmp%\delay.vbs
    
41. 
    
42. cscript //b //nologo %tmp%\delay.vbs 10000
    
43. 
    
44. goto checkstart

复制代码

wssylxb

非常感谢老师的答复。我用这个批处理监控一个系统，想达到如果这个系统没有运行，自动运行的目的。但实际使用中偶而会出现同时启动了多个系统的情况，不知是什么原因。

hlzj88

我曾经写过检测server-U运行的bat,server-U运行有两个程序，两个必须同时都运行才可提供服务。
我的办法是tasklist同时监控两个，如果都存在就判定正常运行。否则taskill程序再启动。

如果楼主也是这样，可这样应用。监控一个程序，如果有，进入延时-再查 的循环。

tasklist|findstr /i "123.exe"&&goto ys || start "" "123.exe"
:ys
ping /n 120 127.1>nul
%0