Question

所以我有一个VBScript（.vbs文件），该文件应每3秒杀死一次mspaint.exe。这是代码：

Dim oShell : Set oShell = CreateObject("WScript.Shell")
do
WScript.Sleep 3000
' Kill paint '
oShell.Run "taskkill /im mspaint.exe", , True
loop

它可以工作，但是每隔3秒，命令提示符窗口（或类似的东西）将变为活动窗口约半秒钟，然后关闭。这非常烦人，因为我希望在后台运行该程序以阻止特定程序。我无法执行此操作，因为这会干扰计算机的常规使用。有什么想法吗？

Answer 1

程序员不会运行用户的命令。

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

Do
    Set colItems = objWMIService.ExecQuery("Select * From Win32_Process")

    For Each objItem in colItems
        If LCase(objItem.name) = "mspaint.exe" then 
                objItem.terminate
        End If
    Next
    WScript.Sleep 3000
Loop

如何使循环VBScript静默运行？

1 个答案: