[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[系统相关] [已解决]批处理获取任务管理器里的应用程序列表?

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

暂缺换成N/A就可以了,fastslz的也可以
caruko和fastslz的代码都完美解决了,谢谢各位大侠的参与!

不知道,翻了wmic process好像没有这一项,不过前台程序的会话id都是1,所以可以用tasklist /fi "session eq 1"来获取大致的结果

TOP

什么是应用程序列表?能否在顶楼给个例子?
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

任务管理器里面,有一排tab,第一个就是“应用程序”,其次才是“进程”

TOP

谁能搞得出来哦....看起来很高深...
我是一个新手.看到此签名的请发点教程我!!谢谢!!

TOP

VBS+Word

TOP

本帖最后由 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)
复制代码

TOP

楼的caruko童靴的代码会得到很多:
N/A
N/A
类似行,还有些在运用程序里木有的
L版,VBS我不大懂

TOP

应用程序列表已经上传图片附件

TOP

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>

TOP

本帖最后由 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
复制代码

TOP

8# q120072949


你的windows版本跟我不一样,我的是 显示是 暂缺
你把我代码中 暂缺 2个字符用 N/A 替换就可以了。

TOP

11# fastslz
C:\Users\helloworld\Desktop\temp.vbs(1, 1) Microsoft VBScript 运行时错误: Active
X 部件不能创建对象: 'Word.Application'

TOP

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

TOP

返回列表