批处理之家 » VBS求助&讨论 » [已解决]VBS如何结束进程及其子进程？

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

返回列表发帖

Rank: 4

帖子: 82
积分: 337
技术: 3
捐助: 0
注册时间: 2009-2-10

1楼 跳转到 » 正序看帖

字体大小: tT

发表于 2011-7-5 12:53 | 只看该作者

[问题求助] [已解决]VBS如何结束进程及其子进程？

VBS如何结束进程及其子进程，不想调用DOS命令。感谢！

1 评分人数

Batcher: 感谢给帖子标题标注[已解决]字样PB + 2

Rank: 7 Rank: 7 Rank: 7

帖子: 881
积分: 2103
技术: 95
捐助: 55
注册时间: 2010-5-23

12楼

发表于 2011-7-10 23:20 | 只看该作者

11# Demon

不一定结束了。有的程序把父进程结束了，其子进程也结束。有的程序不一定子进程结束。看父、子进程的通信如何

---学无止境---

Rank: 5 Rank: 5

帖子: 766
积分: 1451
技术: 117
捐助: 0
注册时间: 2010-5-12

11楼

发表于 2011-7-10 23:07 | 只看该作者

VBS结束所有指定进程Dim objWMIService,colProcessList
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") ' " . " 代表本机

'把下面的 qq.exe 替换为你的进程名字
Set colProcessList = objWMISer ...
broly 发表于 2011-7-10 19:45

这个没有结束子进程吧

http://demon.tw

Rank: 4

帖子: 82
积分: 337
技术: 3
捐助: 0
注册时间: 2009-2-10

10楼

发表于 2011-7-10 19:57 | 只看该作者

谢谢斑竹！也谢谢powerbat和 Demon！

Rank: 7 Rank: 7 Rank: 7

帖子: 881
积分: 2103
技术: 95
捐助: 55
注册时间: 2010-5-23

9楼

发表于 2011-7-10 19:45 | 只看该作者

VBS结束所有指定进程

Dim objWMIService,colProcessList
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")   ' " . " 代表本机

'把下面的 qq.exe  替换为你的进程名字
Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 'qq.exe'")
For Each objProcess in colProcessList
  objProcess.Terminate()
Next

Set objWMIService = Nothing
set colProcessList = Nothing
复制代码

1 评分人数

Batcher: 乐于助人技术 + 1

---学无止境---

Rank: 4

帖子: 82
积分: 337
技术: 3
捐助: 0
注册时间: 2009-2-10

8楼

发表于 2011-7-10 19:16 | 只看该作者

呵呵，别生气撒。我还以为你看到3楼的回复后把2楼的代码上已经修改了。实在对不起！
但我还是个新手，这个真不知道怎么加。

Rank: 5 Rank: 5

帖子: 766
积分: 1451
技术: 117
捐助: 0
注册时间: 2010-5-12

7楼

发表于 2011-7-10 18:44 | 只看该作者

3楼不是说了吗？
你是完全什么都不懂吗？那就直说啊！你不说谁知道你不懂啊，你说出来大家才知道，就恭恭敬敬把代码按您的要求写出来
powerbat 发表于 2011-7-10 14:23

淡定

http://demon.tw

Rank: 7 Rank: 7 Rank: 7

帖子: 752
积分: 4553
技术: 139
捐助: 0
注册时间: 2010-8-24

6楼

发表于 2011-7-10 14:23 | 只看该作者

3楼不是说了吗？
你是完全什么都不懂吗？那就直说啊！你不说谁知道你不懂啊，你说出来大家才知道，就恭恭敬敬把代码按您的要求写出来

Rank: 4

帖子: 82
积分: 337
技术: 3
捐助: 0
注册时间: 2009-2-10

5楼

发表于 2011-7-10 13:44 | 只看该作者

怎么没人回答我啊？好冷清。。。

Rank: 4

帖子: 82
积分: 337
技术: 3
捐助: 0
注册时间: 2009-2-10

4楼

发表于 2011-7-6 20:08 | 只看该作者

本帖最后由 q115643492 于 2011-7-8 10:04 编辑

谢谢两位!　　还有点问题，发现只结束了子进程，父进程还没结束，我是要全部都结束。可以帮我改改吗？

Rank: 5 Rank: 5

帖子: 766
积分: 1451
技术: 117
捐助: 0
注册时间: 2010-5-12

3楼

发表于 2011-7-5 21:27 | 只看该作者

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate, (debug)}!\\.\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 'cmd.exe'")
...
powerbat 发表于 2011-7-5 21:17

少了一句proc.Terminate

http://demon.tw

Rank: 7 Rank: 7 Rank: 7

帖子: 752
积分: 4553
技术: 139
捐助: 0
注册时间: 2010-8-24

2楼

发表于 2011-7-5 21:17 | 只看该作者

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate, (debug)}!\\.\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 'cmd.exe'")
for each proc in colProcesses
    Set SubProcesses = objWMIService.ExecQuery("Select * from Win32_Process Where ParentProcessId=" & proc.ProcessId)
    for each SubProc in SubProcesses
        'WScript.echo SubProc.Name
        SubProc.Terminate
    next
next
复制代码