这段代码有什么办法吗:
Dim oShell
Set oShell = WScript.CreateObject ("WScript.Shell")
oShell.Run "taskkill /im chrome.exe", 0, True
我希望它关闭所有正在运行的 chrome 实例,而不是像此脚本那样仅默默地、优雅地关闭 chrome 的一个窗口。
如果有一种简单的方法可以使用此代码关闭所有 chrome 窗口而无需循环,那就完美了。
我已经尝试过所有其他方法,但它们要么没有正常关闭(终止),要么显示某种命令提示符或加载栏。
如果没有任何方法可以在没有循环的情况下做到这一点,那就这样吧。
谢谢你!
我们可以使用 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
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)