1.
Function KillProcess(ProcessName)
strComputer = "."
Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2")
Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '" & ProcessName &"'")
For Each objProcess in colProcessList
objProcess1.Terminate()
Next
End function
2.
systemutil.CloseProcessByName "notepad.exe"
3.
Function KillProcess2(processname)
Dim wShell
Set wShell = CreateObject( "WScript.Shell" )
wShell.Exec "TASKKILL /F /IM " & processname
set wShell = nothing
End Function
本文介绍了一个使用VBA实现的函数,用于批量终止指定名称的进程。通过调用此函数并提供进程名作为参数,可以高效地关闭多个进程。

1441

被折叠的 条评论
为什么被折叠?



