中国DOS联盟
-- 联合DOS 推动DOS 发展DOS --联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
|
中国DOS联盟-- 联合DOS 推动DOS 发展DOS --联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum |
| 游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟 |
|
中国DOS联盟论坛 现在时间是 2026-08-08 05:43 |
共 48,041 主题排行 / 350,128 发帖 / 今日 3 篇 / 48,253 会员排行 |
| DOS批处理 & 脚本技术（批处理室） » 在WIN2000下怎样查询和关闭进程？ |
| 可打印版本 1,181 / 9 |
| 第1楼 bob1989 | 发表于 2007-09-29 20:36 |
| 中级用户 发帖 144 积分 322 | |
|
在WIN2000下怎样查询和关闭进程？ 我只知道在WINXP下有TASKLIST 和 TASKKILL
但WIN2000下没有 请问还有什么别的方法关进程吗？（只用自带命令） --------------------------------------------------------------------- 还有个问题 我用资源管理器打开了C:\ 和 D:\ 两个文件夹 请问要怎么关C:\ 而D:\不会关闭 |
|
| 第2楼 bob1989 | 发表于 2007-10-26 11:31 |
| 中级用户 发帖 144 积分 322 | |
|
问了这么久没人答`？
|
|
| 第3楼 picat | 发表于 2007-10-26 12:06 |
| 初级用户 发帖 68 积分 150 | |
|
你这个问题有难度，不管你打开多少文件夹，explorer进程只有一个，你杀一个肯定全部关闭，并且explorer是windows的shell，关闭后将导致桌面不可见。
|
|
| 第4楼 abcd | 发表于 2007-10-26 12:09 |
| 银牌会员 发帖 739 积分 1,436 | |
|
2K也有ntsd命令的？
|
|
| 第5楼 p1509101 | 发表于 2007-10-27 23:07 |
| 中级用户 发帖 103 积分 206 | |
|
ntsd -c q -p PID号
pid号 在管理器中查看 |
|
| 第6楼 mcmemd | 发表于 2007-10-28 10:08 |
| 新手上路 发帖 4 积分 8 | |
|
好好好好
好好好好好 |
|
| 第7楼 juyz | 发表于 2007-12-12 12:46 |
| 新手上路 发帖 4 积分 10 | |
Originally posted by p1509101 at 2007-10-27 11:07 PM: 没有可操作性！pid号是变化的。 |
|
| 第8楼 lxmxn | 发表于 2007-12-12 13:02 |
| 版主 发帖 4,938 积分 11,386 | |
|
编写vbs脚本应该可以关闭的。
|
|
| 第9楼 blackieliu | 发表于 2008-04-15 07:53 |
| 新手上路 发帖 3 积分 6 | |
|
转自fastslz 将以下代码另存为vbs脚本
strComputer = "." arrTargetProcs = Array("程序名.exe") Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colProcesses = objWMIService.ExecQuery("SELECT * FROM Win32_Process") For Each objProcess in colProcesses For Each strTargetProc In arrTargetProcs If LCase(objProcess.Name) = LCase(strTargetProc) Then intReturn = objProcess.Terminate If intReturn = 0 Then WScript.Echo "结束进程："&objProcess.Name&" 成功" Else WScript.Echo "结束进程："&objProcess.Name&" 失败" End If End If Next Next |
|
| 第10楼 qinchun36 | 发表于 2008-04-23 16:31 |
| 高级用户 发帖 400 积分 609 | |
|
呵呵，刚才在论坛里面看见的，盗版一下，只有输入语句是我自己加的。。。
另纯为 .vbs 文件 On Error Resume Next sub Close_Process(ProcessName) On Error Resume Next for each ps in getobject("winmgmts:win32_process").instances_ if Ucase(ps.name)=Ucase(ProcessName) then ps.terminate end if next end sub ProName=inputbox("输入进程名称","INPUT","qq.exe") Close_Process(ProName) |
|
|
[ 联系联盟系统管理团队 -
中国DOS联盟 -
标准版 ] Sponsored by ifanr Inc | © 2001–2023 |