http://dieseyer.de • all rights reserved • © 2011 v11.4

'v5.5***********************************************************
' File: ProgrammMinimieren.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 "C:\" (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
progr = "C:\" ' WinXP: im Explorer wird z.B. c:\temp angezeigt
progr = "freenet.de" ' im IE

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

http://dieseyer.de • all rights reserved • © 2011 v11.4