[Spiderman]

Zitat (Snoggi: 15.05.2007, 15:52)

Und das speicher ich dann in einer Textdatei mit der endung .vbs?

Ja,

hier noch eine bessere Version, "Test.vbs - Editor" durch dein Buddy ersetzen:

On Error Resume Next
Set WshShell = CreateObject("WScript.Shell")
' Desktop anzeigen
WshShell.SendKeys "^{ESC}{ESC}+{F10}k"
' Pause
WScript.Sleep(500)
' Fenster einblenden
WshShell.AppActivate "Test.vbs - Editor"
WshShell.SendKeys "(% )w"
' Pause
WScript.Sleep(500)
' Sidebar einblenden
WshShell.AppActivate "Windows Sidebar"

Gruß
Spiderman

Dieser Beitrag wurde von Spiderman bearbeitet: 15. Mai 2007 - 18:35

[Snoggi]

Is das wirklich richtig?

Wenn ich den code nun ausprobiere ohne da etwas dran zu verändern, kommt bei mir immer die startleiste anstatt die sidebar.

[Spiderman]

Hm,

mit klassischen Startmenü geht es, nur mit dem neuen Startmenü nicht.

Mal sehen ob ich da eine Lösung finde.

[Spiderman]

So das könnte funzen, du musst aber direkt neben den Startknopf den Link "Desktop anzeigen" haben.

So: [attachment=20017:Start.PNG]

On Error Resume Next
Set WshShell = CreateObject("WScript.Shell")
' Desktop anzeigen
WshShell.SendKeys "^{ESC}{ESC}{TAB}~"
' Pause
WScript.Sleep(500)
' Fenster einblenden
WshShell.AppActivate "Mini2.vbs - Editor"
WshShell.SendKeys "(% )w"
' Pause
WScript.Sleep(500)
' Sidebar einblenden
WshShell.AppActivate "Windows Sidebar"

Gruß
Spiderman

Dieser Beitrag wurde von Spiderman bearbeitet: 15. Mai 2007 - 18:30

[Snoggi]

Damit erscheinen bei mir jetzt weder die Sidebar, noch die Buddyliste.

[Spiderman]

Hast du die Zeile:

WshShell.AppActivate "Mini2.vbs - Editor"

geändert mit deinem Programm?

Und füge mal als erste Zeile, folgendes ein:

On Error Resume Next

[Snoggi]

Nee hatte ich nicht, aber auch die WindowsSidebar wurde in den Hintergrund gestellt.