以下是一小段杀死指定进程名字的小vbs，希望对大家有帮助。

1. Function KillProc(strProcName)
   
2. On Error Resume Next
   
3. Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
   
4. Set arrProcesses = objWMIService.ExecQuery( "select * from win32_process where Name ='"&strProcName&"'" )
   
5. For Each proccess In arrProcesses
   
6. proccess.Terminate 0
   
7. Next
   
8. End Function

复制代码

VBS命令-进程操作代码(检测进程, 结束进程)

1. //检测进程
   
2. 进程名 = "qq.exe"
   
3. 返回值 = IsProcess(进程名)
   
4. If 返回值 = True Then
   
5. MessageBox "发现进程"
   
6. ElseIf 返回值 = False Then
   
7. MessageBox "没有发现进程"
   
8. End If
   
9. //检测进程 优化后的代码
   
10. If IsProcess("qq.exe") = True Then
    
11. MessageBox "发现进程"
    
12. Else
    
13. MessageBox "没有发现进程"
    
14. End If
    
15. //检测进程组
    
16. 进程组 = "qq.exe|notepad.exe"
    
17. 返回值 = IsProcessEx(进程组)
    
18. If 返回值 = True Then
    
19. MessageBox "发现进程"
    
20. ElseIf 返回值 = False Then
    
21. MessageBox "没有发现进程"
    
22. End If
    
23. //检测进程组 优化后的代码
    
24. If IsProcessEx("qq.exe|notepad.exe") = True Then
    
25. MessageBox "发现进程"
    
26. Else
    
27. MessageBox "没有发现进程"
    
28. End If
    
29. //结束进程 前台执行
    
30. 进程名 = "qq.exe"
    
31. Call CloseProcess(进程名, 1)
    
32. //结束进程 后台执行
    
33. 进程名 = "qq.exe"
    
34. Call CloseProcess(进程名, 0)
    
35. //结束进程组 前台执行
    
36. 进程组 = "qq.exe|notepad.exe"
    
37. Call CloseProcessEx(进程组, 1)
    
38. //结束进程组 后台执行
    
39. 进程组 = "qq.exe|notepad.exe"
    
40. Call CloseProcessEx(进程组, 0)
    
41. //实例应用 结束进程 前台执行 10秒超时
    
42. 进程名 = "qq.exe"
    
43. For 10
    
44. Call CloseProcess(进程名,1)
    
45. Delay 1000
    
46. 返回值 = IsProcess(进程名)
    
47. If 返回值 = False Then
    
48. Exit For
    
49. End If
    
50. Next
    
51. If 返回值=True Then
    
52. MessageBox "结束进程失败"
    
53. Else
    
54. MessageBox "结束进程成功"
    
55. End If
    
56. //实例应用 结束进程 前台执行 优化后的代码(直到型循环) 有些进程VBS检测不到 所以先关闭后检测
    
57. Do
    
58. Call CloseProcess("qq.exe",1)
    
59. Delay 1000
    
60. Loop While IsProcess("qq.exe")=True
    
61. MessageBox "结束进程成功"
    
62. //实例应用 结束进程组 后台执行 10秒超时
    
63. 进程组 = "qq.exe|notepad.exe"
    
64. For 10
    
65. Call CloseProcessEx(进程组,0)
    
66. Delay 1000
    
67. 返回值 = IsProcessEx(进程组)
    
68. If 返回值 = False Then
    
69. Exit For
    
70. End If
    
71. Next
    
72. If 返回值=True Then
    
73. MessageBox "结束进程失败"
    
74. Else
    
75. MessageBox "结束进程成功"
    
76. End If
    
77. //实例应用 结束进程组 后台执行 优化后的代码(直到型循环) 有些进程VBS检测不到 所以先关闭后检测
    
78. Do
    
79. Call CloseProcessEx( "qq.exe|notepad.exe",0)
    
80. Delay 1000
    
81. Loop While IsProcessEx( "qq.exe|notepad.exe")=True
    
82. MessageBox "结束进程成功"
    
83. //函数 子程序部分代码
    
84. //检测进程
    
85. Function IsProcess(ExeName)
    
86. Dim WMI, Obj, Objs,i
    
87. IsProcess = False
    
88. Set WMI = GetObject("WinMgmts:")
    
89. Set Objs = WMI.InstancesOf("Win32_Process")
    
90. For Each Obj In Objs
    
91. If InStr(UCase(ExeName),UCase(Obj.Description)) <> 0 Then
    
92. IsProcess = True
    
93. Exit For
    
94. End If
    
95. Next
    
96. Set Objs = Nothing
    
97. Set WMI = Nothing
    
98. End Function
    
99. //结束进程
    
100. Sub CloseProcess(ExeName,RunMode)
     
101. dim ws
     
102. Set ws = createobject("Wscript.Shell")
     
103. ws.run "cmd.exe /C Taskkill /f /im " & ExeName,RunMode
     
104. Set ws = Nothing
     
105. End Sub
     
106. //检测进程组
     
107. Function IsProcessEx(ExeName)
     
108. Dim WMI, Obj, Objs,ProcessName,i
     
109. IsProcessEx = False
     
110. Set WMI = GetObject("WinMgmts:")
     
111. Set Objs = WMI.InstancesOf("Win32_Process")
     
112. ProcessName=Split(ExeName,"|")
     
113. For Each Obj In Objs
     
114. For i=0 to UBound(ProcessName)
     
115. If InStr(UCase(ProcessName(i)),UCase(Obj.Description)) <> 0 Then
     
116. IsProcessEx = True
     
117. Exit For
     
118. End If
     
119. Next
     
120. Next
     
121. Set Objs = Nothing
     
122. Set WMI = Nothing
     
123. End Function
     
124. //结束进程组
     
125. Sub CloseProcessEx(ExeName,RunMode)
     
126. dim ws,ProcessName,CmdCode,i
     
127. ProcessName = Split(ExeName, "|")
     
128. For i=0 to UBound(ProcessName)
     
129. CmdCode=CmdCode & " /im " & ProcessName(i)
     
130. Next
     
131. Set ws = createobject("Wscript.Shell")
     
132. ws.run "cmd.exe /C Taskkill /f" & CmdCode,RunMode
     
133. Set ws = Nothing
     
134. End Sub

复制代码

来源：互联网
免责声明：如果侵犯了您的权益，请联系站长（1277306191@qq.com），我们会及时删除侵权内容，谢谢合作！