'v3.C***********************************************************
' File:   ProgrammSchliessen.VBS
' Autor:  dieseyer@gmx.de 
'         dieseyer.de
'
' demonstriert die Verwendung der AppActivate- und der SendKeys-
' Methode. Bei vielen Programmen greift die AppActivate-Methode,
' wenn die ersten Zeichen mit denen in der Programmleiste ange-
' zeigten übereinstimmt. Gibt es mehrere laufende Programme, die
' z.B. mit "explorer" (in der Programmleiste) beginnen, ist wohl
' die Taskreihenfolge entscheidend. Groß- / Kleinschreibung wird
' von der AppActivate-Methode ignoriert. 
'***************************************************************

Option Explicit
Dim WshShell, progr

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

progr = "Outlook Express"
progr = "Allgemein Ausgang" ' Mixer
progr = "Explorer - C:\"    ' im Explorer wird z.B. c:\temp angezeigt

if WshShell.AppActivate( progr ) = True Then 
  WScript.Sleep 333
  WshShell.sendkeys "%{F4}"
Else
  MsgBox "Kein Programm hat in der Programmleiste" & vbCRLF & "folgende Zeichenkette (von links beginnend):" & vbCRLF & vbCRLF & progr
End If