'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