使用 Windows 标题杀死 explorer.exe

Question

我是编程新手，现在的问题是，如何关闭某些特定的 explorer.exe 窗口。我的问题是，我有一个程序调用一些窗口：

Option Explicit

Dim shell, expl1, expl2, expl3, Terminate

Dim uprgExplorer

  set shell = WScript.CreateObject("WScript.Shell")
  set expl1 = shell.exec("C:\WINDOWS\explorer.exe c:\Documents and Settings")
  set expl2 = shell.exec("C:\WINDOWS\explorer.exe C:\WINDOWS\system32\CCM\Cache")
  set expl3 = shell.exec("C:\WINDOWS\explorer.exe c:\SCRIPTS\LOG")

现在我只会杀死这 3 个窗口而不是 explorer.exe。

有人可以帮助我吗？

问候，

马蒂亚斯

Answer 1

您可以使用 SendKeys 函数关闭资源管理器窗口：

set shell = WScript.CreateObject("WScript.Shell")

set expl1 = shell.exec("C:\WINDOWS\explorer.exe c:\tmp")

MsgBox "Explorer started."

success = shell.appactivate("c:\tmp")
if success then shell.sendkeys "%{F4}" 

您可能还想查看 AutoHotkey，它允许您录制宏和操作窗口 。