[已解决]批处理怎样监控进程？

Death

请问：
我想做一个进程监控的批处理。
批处理怎么监控进程阿。
比如：
进程A.exe我只想他保持5个同运行多了的直接结束阿。~

[ 本帖最后由 Death 于 2010-5-31 16:22 编辑 ]

Batcher

超过5个的时候，结束哪个？还是需要全部结束？

Death

超过5个结束进程A.exe
但是不是全部结束,结束多出来的进程A.exe
进程A.exe始终保持5个运行。
谢谢大大了。~

[ 本帖最后由 Death 于 2010-5-31 13:35 编辑 ]

caruko

1. 
   
2. set "num=0"
   
3. :loop
   
4. for /f "tokens=2" %%i in ('tasklist ^|findstr "A.exe"') do (
   
5.         if not defined %%i set %%i=%%i & set /a num+=1
   
6.         if %num% GTR 6 taskkill /pid %%i /T &set /a num-=1&set "%%i="
   
7. )
   
8. ping 127.1>nul
   
9. goto :loop
   

复制代码

[ 本帖最后由 caruko 于 2010-5-31 15:43 编辑 ]

Death

很感谢4L的大大给出来的代码但是没有起到做用
我运行了6个A.EXE但是它没有关闭多出来的那个A.EXE

hanyeguxing

1. :han
   
2. @echo off&setlocal enabledelayedexpansion
   
3. for /f "tokens=1,2" %%a in ('tasklist /fo list /fi "Imagename eq qq.exe"') do if /i "%%a"=="pid:" set/a ye+=1&if !ye! gtr 5 taskkill /pid %%b /f>nul
   
4. ping -n 10 127.1 >nul&&Endlocal&&goto:han

复制代码

ping 用来延迟时间

[ 本帖最后由 hanyeguxing 于 2010-5-31 15:51 编辑 ]

del

1. @echo off
   
2. if "%~1" neq "h" (
   
3.     echo 正在隐藏批处理...
   
4.     >"%temp%\tmp.vbs" echo createobject("wscript.shell"^).run """%~f0"" h",0
   
5.     "%temp%\tmp.vbs"
   
6.     exit /b
   
7. )
   
8. 
   
9. : --------------- 设置 ---------------
   
10. set 进程名=A.exe
    
11. set 进程数量=5
    
12. set "检测间隔时间=5000" // 单位是毫秒
    
13. : --------------- /设置 --------------
    
14. 
    
15. >"%temp%\tmp.vbs" echo Wscript.Sleep %检测间隔时间%
    
16. SetLocal EnableDelayedExpansion
    
17. 
    
18. :Loop
    
19. set Count=
    
20. set PID=
    
21. for /f "tokens=2" %%a in ('tasklist /nh /fi "imagename eq !进程名!"') do (
    
22.     set /a Count += 1
    
23.     if !Count! gtr %进程数量% (
    
24.         set PID=!PID! /PID %%a
    
25.     )
    
26. )
    
27. if defined PID taskkill /f %PID% >nul
    
28. "%temp%\tmp.vbs"
    
29. goto Loop

复制代码

[ 本帖最后由 del 于 2010-5-31 16:18 编辑 ]

Death

谢谢各位大大。~
谢谢大大们给出的代码。~

caruko

写的时候没做测试,忘记开变量扩展,少了一句,另外 GTR 6改成GTR 5
这个只会结束后开的进程，先开的5个进程不会结束
如果用户结束了前5个进程中的几个，不够5个了，后开的还是会结束掉
解决需要再加几句代码，检测某个PID进程是否存在，这里就不写了

1. @echo off&setlocal enabledelayedexpansion
   
2. set "num=0"
   
3. :loop
   
4. for /f "tokens=2" %%i in ('tasklist ^|findstr "A.exe"') do (
   
5.         if not defined %%i set %%i=%%i & set /a num+=1
   
6.         if %num% GTR 5 taskkill /pid %%i /T &set /a num-=1&set "%%i="
   
7. )
   
8. ping 127.1>nul
   
9. goto :loop

复制代码