Board logo

标题: [系统相关] [已解决]批处理获取任务管理器里的应用程序列表？ [打印本页]
作者: q120072949    时间: 2011-5-23 15:45     标题: [已解决]批处理获取任务管理器里的应用程序列表？

注意啊，不是进程
是应用程序列表，tasklist可以么？
B版，就是图片里这样子的

暂缺换成N/A就可以了，fastslz的也可以
caruko和fastslz的代码都完美解决了，谢谢各位大侠的参与！
作者: CrLf    时间: 2011-5-23 19:37

不知道，翻了wmic process好像没有这一项，不过前台程序的会话id都是1，所以可以用tasklist /fi "session eq 1"来获取大致的结果
作者: Batcher    时间: 2011-5-23 20:00

什么是应用程序列表？能否在顶楼给个例子？
作者: applba    时间: 2011-5-23 20:07

任务管理器里面，有一排tab，第一个就是“应用程序”，其次才是“进程”
作者: wangqi0077    时间: 2011-5-23 20:30

谁能搞得出来哦....看起来很高深...
作者: lxzzr    时间: 2011-5-23 20:37

VBS+Word
作者: caruko    时间: 2011-5-23 22:28

本帖最后由 caruko 于 2011-5-24 13:21 编辑

改一下,去掉多余的就可以了，每多一种排除，就加一句 if "!str!"=="!str:排除字符=!"
  1. @ECHO OFF&SETLOCAL ENABLEDELAYEDEXPANSION

  2. for /f "tokens=9*" %%i in ('tasklist /v ^|findstr "%username%"') do (set "str=%%j"&if "!str!"=="!str:暂缺=!" if "!str!"=="!str:Wnd=!" if "!str!"=="!str:N/A=!" echo %%j)
复制代码
作者: q120072949    时间: 2011-5-24 08:15

楼的caruko童靴的代码会得到很多：
N/A
N/A
类似行，还有些在运用程序里木有的
L版，VBS我不大懂
作者: q120072949    时间: 2011-5-24 08:18

应用程序列表已经上传图片附件
作者: q120072949    时间: 2011-5-24 08:20

2楼的tasklist /fi "session eq 1"：
Microsoft Windows XP [Version 5.1.2600]
(C) Copyright 1985-2001 Microsoft Corp.

C:\Documents and Settings\Administrator>tasklist /fi "session eq 1"
INFO: No tasks running with the specified criteria.

C:\Documents and Settings\Administrator>
作者: fastslz    时间: 2011-5-24 13:12

本帖最后由 fastslz 于 2011-5-24 13:22 编辑

你所谓的“应用程序列表”其实是应用程序窗口列表
  1. :查询包含开头3个字符为批处理的进程

  2. tasklist.exe /fi "windowtitle eq 批处理*"

  3. :结束包含开头3个字符为批处理的进程

  4. taskkill.exe /fi "windowtitle eq 批处理*"
复制代码
很遗憾通配符只能在后面你可以考虑VBS+Word，也就是说必须安装了office,所以通用型不强，下面仅供参考
  1. @echo off

  2. >temp.vbs echo Set WA = CreateObject^("Word.Application"^)

  3. >>temp.vbs echo Set WAT = WA.Tasks

  4. >>temp.vbs echo For Each A in WAT

  5. >>temp.vbs echo     If A.Visible Then

  6. >>temp.vbs echo         Wscript.Echo A.Name

  7. >>temp.vbs echo     End If

  8. >>temp.vbs echo Next

  9. >>temp.vbs echo WA.Quit

  10. setlocal enabledelayedexpansion

  11. for /f "delims=" %%i in ('cscript.exe //nologo temp.vbs') do (

  12.     set ver=%%i

  13.     echo !ver!

  14. )

  15. del temp.vbs

  16. pause
复制代码
作者: caruko    时间: 2011-5-24 13:19

8# q120072949


你的windows版本跟我不一样，我的是 显示是 暂缺
你把我代码中 暂缺 2个字符用 N/A 替换就可以了。
作者: Hello123World    时间: 2011-5-24 16:55

11# fastslz
C:\Users\helloworld\Desktop\temp.vbs(1, 1) Microsoft VBScript 运行时错误: Active
X 部件不能创建对象: 'Word.Application'
作者: bluewing009    时间: 2011-5-25 00:30

你所需要的那个内容应该是title吧……



欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2