Anforderung | |
|---|---|
Zeitaufwand |
Kann man Windows 95/98 mit Bordmitteln dazu veranlassen, den Bildschirmhintergrund bei jedem Systemstart zu variieren?Thomas S., per E-Mail
Der Pfad zur Bitmap für den Bildschirmhintergrund ist in der Registrierungsdatenbank unter dem Schlüssel “Hkey_Current_UserControl PanelDesktopWallpaper” gespeichert. Um in diesen Schlüssel den Pfad zu einer jeweils zufällig ausgewählten BMP-Datei einzutragen, können Sie das VB-Script-Makro WALL.VBS (Listing am Ende des Tips) einsetzen. Es durchsucht einen vorgegebenen Pfad auf Ihrer Festplatte nach BMP-Dateien, wählt perZufallsgenerator eine Bitmap aus und trägt anschließend den Pfad zu dieser Datei in die Registry ein. Allerdings ist der Bildwechsel nicht sofort sichtbar -Windows zeigt den neuen Hintergrund erst nach dem nächsten Start an. Für das Makro müssen Sie den Windows Scripting Host installieren. Bei Windows 98 befindet er sich standardmäßig im Windows-Verzeichnis (Datei WSCRIPT.EXE), unter Windows 95 und NT müssen Sie ihn sich erst besorgen (auf Heft-CD, Download unter http://msdn.microsoft.com/scripting/default.htm?/scripting/ windowshost/download/default.htm, Datei WSH.EXE, 567 KB). Um das Makro WALL.VBS einsetzen zu können, kopieren Sie es in einen Ascii-Editor, beispielsweise Notepad, und tragen den Pfad zu dem Verzeichnis mit den Hintergrundbildern in die Zeile 7 ein. Ersetzen Sie hier “c:windows” durch den Pfad, in dem das Makro nach BMP-Dateien fahnden soll. Befinden sich die Grafiken beispielsweise im Verzeichnis C:Grafik, muß die Zeile folgendermaßen lauten:Pfad = “c:grafik”
Achten Sie bei der Pfadangabe auf die Anführungszeichen und den abschließenden Backslash “”. Nun speichern Sie die Datei WALL.VBS. Damit das Makro automatisch nach dem Start von Windows läuft, binden Sie es in die Autostart-Gruppe ein. Klicken Sie dazu auf “Start, Einstellungen, Task-Leiste…” (Windows 98: “Taskleiste & Startmenü…”), und aktivieren Sie die Registerkarte “Programme im Menü “Start””. Klicken Sie auf die Schaltfläche “Hinzufügen”. Tragen Sie dann in das Feld “Befehlszeile:” den Pfad zum VB-Script-Makro ein, beispielsweise “c:toolswall.vbs”. Bestätigen Sie mit “Weiter”, und wählen Sie in der Baumansicht den Ordner “Autostart” aus. Windows erstellt die gewünschte Verknüpfung, wenn Sie auf “Weiter” und abschließend auf “Fertigstellen” klicken. Zum Testen können Sie das Makro WALL.VBS mit einem Doppelklick ausführen. Beim nächsten Windows-Start erscheint ein zufällig ausgewählter Bildschirmhintergrund. Wenn Sie WALL.VBS in der Autostart-Gruppe einrichten, wird es bei jedem Neustart aktiv. -apLISTING WALL.VBSDim WshShell, fso, f, fc, f1, Counter, BmpsRandomizeSet WshShell = Wscript.CreateObject(“Wscript.Shell”)’Statt “c:windows” müssen Sie den Pfad zu den Hintergrundbildern einsetzen.Pfad = “c:windows”Set fso = CreateObject(“Scripting.FileSystemObject”)Set f = fso.GetFolder(Pfad)Set fc = f.FilesSet Bmps = CreateObject(“Scripting.Dictionary”)Counter = 0For Each f1 in fcIf Right(f1.name,4) = “.bmp” ThenBmps.Add Counter, f1.nameCounter = Counter + 1End IfnextIf Bmps.count = 0 ThenWscript.Echo “In dem Verzeichnis ” & Pfad & ” befinden sich keine *.bmp Dateien!”Wscript.QuitEnd ifZufallszahl = Int (Bmps.Count * Rnd)NeuerHintergrund = Pfad & Bmps(Zufallszahl)WshShell.RegWrite “HKCUControl PaneldesktopWallpaper”, NeuerHintergrund