Убить explorer.exe с названием Windows

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 , который позволяет записывать макросы и манипулировать окнами .