vbs taskkill按名称

Question

我正在尝试找出如何使用进程的标题来关闭进程。

我找到了命令：

taskkill /fi "WINDOWTITLE eq the_title_of_the_windows"

它工作得很好。

当我尝试的时候：

oShell.Run "taskkill /fi "WINDOWTITLE eq the_title_of_the_windows"", , True

我得到一个错误，它不能编译。

你知道如何在这行中使用“符号”吗？

Answer 1

为了在另一对双引号内使用双引号，您需要使用""，而不仅仅是"，因为如果您使用一个引号"，它将被视为第一个和第二个引号之间的文本结束

因此，您的代码应该如下所示：

oShell.Run "taskkill /fi ""WINDOWTITLE eq the_title_of_the_windows""", , True

下面的示例将终止所有具有窗口标题(计算器)的进程：

Dim oShell
Set oShell = WScript.CreateObject ("WScript.Shell")
oShell.Run "taskkill /fi ""WINDOWTITLE eq Calculator""", , True

希望这能有所帮助:)

Answer 2

如果您使用Run执行命令行，您会在屏幕上发现丑陋的dos窗口弹出窗口，以避免使用以下两种方法之一：

Dim oShell
Set oShell = WScript.CreateObject ("WScript.Shell")
oShell.Exec "taskkill /fi ""WINDOWTITLE eq Calculator"""

或

Dim oShell
Set oShell = WScript.CreateObject ("WScript.Shell")
oShell.Run "taskkill /fi ""WINDOWTITLE eq Calculator""",0,False

Answer 3

或者，您可以尝试以下代码:此代码将从任务管理器中选择任务并关闭进程。复制粘贴到".vbs“文件中的代码并使用call KillAll(”你的任务name.exe")

Function KillAll(ProcessName)
    Dim objWMIService, colProcess
    Dim strComputer, strList, p
    Dim i :i= 0 
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
    Set colProcess = objWMIService.ExecQuery ("Select * from Win32_Process Where Name like '" & ProcessName & "'")
    For Each p in colProcess
        p.Terminate     
    i = i+1        
    Next
    MsgBox("Total Instance :: " &i& " of "&ProcessName&" is killed")
End Function

call KillAll("MicrosoftEdge.exe")