google-chrome - vbs silent and graceful taskkill 所有 chrome 进程

Question

这段代码有什么办法吗:

Dim oShell
Set oShell = WScript.CreateObject ("WScript.Shell")
oShell.Run "taskkill /im chrome.exe", 0, True

我希望它关闭所有正在运行的 chrome 实例，而不是像这个脚本那样静默而优雅地只关闭一个 chrome 窗口。

如果有一种简单的方法可以关闭 chrome 的所有窗口而不用这段代码循环，那就完美了。

我已经尝试过所有其他方法，但它们要么没有正常关闭(终止)，要么显示某种命令提示符或加载栏。

如果没有循环就没有办法做到这一点，那就这样吧。

谢谢!

Answer 1

我们可以使用 WMI 服务执行此操作。我们可以统计所有正在运行的chrome实例，然后静静地一一杀死它。

希望这对您有所帮助。它涉及循环。

Dim oShell, objWMIService, objProcess, colProcess, strComputer, processName,instances

strComputer = "."
instances = 0
processName = "chrome.exe"

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcess = objWMIService.ExecQuery("Select * from Win32_Process")

For Each objProcess in colProcess
If objProcess.Name = processName Then instances = instances + 1        'Incrementing Running Instances
Next

Set oShell = WScript.CreateObject ("WScript.Shell")

Do While instances > 0
oShell.Run "taskkill /im chrome.exe", 0, True       'Killing one instance at a time
instances = instances - 1
Loop