批处理如何检测进程中程序的运行？

coolmir2

我想写一个批处理，检测一个软件是否运行，如果没有运行就提示是否运行这个程序，当输入“Y”时就运行这个程序，否则关闭，而这个程序具体在硬盘什么地方还不知道。只知道可执行程序（比如说QQ.exe但不知道它路径)当启动这个程序后延时5秒后执行下一个批处理。

[ 本帖最后由 coolmir2 于 2009-3-13 01:22 编辑 ]

newxso

1. 
   
2. @echo off
   
3. ::定义要启动的程序名称
   
4. set "pro_name=QQ.exe"
   
5. for /f "delims=" %%a in ("%pro_name%") do set "name=%%~na_path"
   
6. ::如果记录路径的文件存在则直接提取程序路径
   
7. if not exist c:\windows\%name%.txt goto :0001
   
8. for /f "delims=" %%a in (c:\windows\%name%.txt) do (
   
9.   set pro_path=%%~a
   
10.   set p_name=%%~nxa
    
11. )
    
12. if /i "%p_name%"=="%pro_name%" goto :0002
    
13. 
    
14. :0001
    
15. echo 正在搜索 %pro_name%，请稍等...
    
16. for %%a in (c d e f g h i j k l m n o p q r s t u v w x y z) do (
    
17.   if exist %%a:\ (
    
18.     pushd %%a:\
    
19.     for /r %%b in ("*%pro_name%") do (
    
20.       if /i "%%~nxb"=="%pro_name%" set "pro_path=%%b")
    
21.     popd
    
22. ))
    
23. ::用文本记录程序路径以便下次快速获取
    
24. echo/%pro_path%>c:\windows\%name%.txt&cls
    
25. if not "%pro_path%"=="" (
    
26. echo 检测成功，程序安装在：%pro_path%
    
27. ) else (
    
28. echo 没有检测到 %pro_name% 程序！
    
29. ping 127.1 /n ^3>nul&&exit/b
    
30. )
    
31. 
    
32. :0002
    
33. ::检测程序是否运行
    
34. tasklist|find /i "%pro_name%" >nul||goto :0003
    
35. echo 程序已经在运行，3秒后自动退出...
    
36. ping 127.1 /n ^3>nul&&exit/b
    
37. 
    
38. :0003
    
39. cls
    
40. echo 已经启动提问提示框，如果运行该程序请点击“是”按扭！
    
41. echo Wsh.Echo MsgBox("   你想运行%pro_name%吗?",vbYesNo,"询问")>ask.vbs
    
42. for /f %%d in ('cscript ask.vbs //nologo //e:vbscript') do if %%d equ 6 (del ask.vbs&&goto :0004)
    
43. cls
    
44. echo 你没有选择启动程序，3秒后自动退出...
    
45. del ask.vbs
    
46. ping 127.1 /n ^3>nul&&exit/b
    
47. 
    
48. :0004
    
49. cls
    
50. echo 正在启动 %pro_name% ...
    
51. start "" "%pro_path%"
    
52. ping 127.1 /n ^5>nul
    
53. start "" c:\test\test.bat
    
54. exit/b
    

复制代码

完善一下之前的代码，增加对记录路径文本的内容检测，把全盘搜索用 for /r 语句代替，提高搜索文件的速度。

[ 本帖最后由 newxso 于 2009-3-15 21:05 编辑 ]

Batcher

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. rem 指定进程名称
   
4. set "ProcessName=notepad.exe"
   
5. rem 指定软件名称
   
6. set "strFileName=notepad.exe"
   
7. rem 指定待运行的下一个批处理
   
8. set NextBat=C:\test\a.bat
   
9. set strFileDirc=
   
10. set UserInput=
    
11. tasklist|find /i "%ProcessName%"||set /p UserInput=是否运行程序%strFileName%？
    
12. if /i "%UserInput%" equ "Y" (
    
13.   echo 正在启动软件%strFileName%，请稍候...
    
14.   call :GetFileDirc !strFileName! strFileDirc
    
15.   if "!strFileDirc!" neq "" (
    
16.     start "" "%strFileDirc%"
    
17.     ping -n 6 127.1 >nul
    
18.     start "" "%NextBat%"
    
19.   ) else (
    
20.     echo 找不到软件%strFileName%
    
21.   )
    
22. ) else (
    
23.   goto :eof
    
24. )
    
25. ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
    
26. ::call :GetFileDirc %strFileName% strFileDirc
    
27. :GetFileDirc
    
28. ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
    
29. :GetFileDirc
    
30. for %%a in ("%1") do (
    
31.   set "nName=%%~na"
    
32.   set "xName=%%~xa"
    
33. )
    
34. set "xName=%xName:~1%"
    
35. for /f "skip=1 delims=" %%a in ('wmic datafile where "filename='%nName%' and Extension='%xName%'" get name') do (
    
36.   set "%2=%%a"
    
37. )

复制代码

coolmir2

谢谢，代码好多哦。看了半天没看懂。呵呵。那检测进程中程序的运行是那一个代码呢？

骚鸡

复杂。。。。。。。。。。。。。。。。。。

Batcher

tasklist + find