批处理之家 - Powered by Discuz! Board

标题: [系统相关] [已解决]批处理获取任务管理器里的应用程序列表？ [打印本页]

作者: 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:排除字符=!"

@ECHO OFF&SETLOCAL ENABLEDELAYEDEXPANSION
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 编辑

你所谓的“应用程序列表”其实是应用程序窗口列表

:查询包含开头3个字符为批处理的进程
tasklist.exe /fi "windowtitle eq 批处理*"
:结束包含开头3个字符为批处理的进程
taskkill.exe /fi "windowtitle eq 批处理*"
复制代码

很遗憾通配符只能在后面你可以考虑VBS+Word，也就是说必须安装了office,所以通用型不强，下面仅供参考

@echo off
>temp.vbs echo Set WA = CreateObject^("Word.Application"^)
>>temp.vbs echo Set WAT = WA.Tasks
>>temp.vbs echo For Each A in WAT
>>temp.vbs echo     If A.Visible Then
>>temp.vbs echo         Wscript.Echo A.Name
>>temp.vbs echo     End If
>>temp.vbs echo Next
>>temp.vbs echo WA.Quit
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('cscript.exe //nologo temp.vbs') do (
    set ver=%%i
    echo !ver!
)
del temp.vbs
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://www.bathome.net/)