Nach jedem Start ein neues Desktop-Motiv zeigen

Abwechslung auf dem Bildschirm: Wollen Sie bei jedem Start ein anderes Hintergrundbild sehen, stellen Sie das ⁿber ╗Eigenschaften½ des Desktops ein.

Automatisieren Sie das Wechseln des Hintergrundbildes. Kopieren Sie die Datei CHNGWALL.VBS von der Heft-CD HCHIP-Code CHNGWALL nach WINDOWS\STARTMEN▄\PROGRAMME\AUTOSTART. ! Achtung: In NT 4.0 hei▀t der Ordner WINNT\PROFILES\ USER\STARTMEN▄\PROGRAMME\AU-TOSTART, in Windows 2000 hei▀t er DOKUMENTE UND EINSTELLUNGEN\USER\STARTMEN▄\PROGRAMME\AUTOSTART. Anstelle von ╗USER½ muss jeweils Ihr Benutzername stehen. NΣchster Schritt: Legen Sie auf dem Laufwerk C: einen neuen Ordner namens HINTERGR▄NDE an. Darin speichern Sie alle Bilder, die Sie als Desktop-Motiv verwenden wollen. Bei Windows 95 und NT mⁿssen die Dateien grundsΣtzlich im Format BMP gespeichert sein. Die neueren Versionen erlauben auch JPG-Files. Der Rest funktioniert von selbst: Das Listing startet beim Booten von Windows und zΣhlt die im Ordner HINTERGRUND abgelegten Bilder. Das hei▀t: Sie k÷nnen jederzeit neue Motive in den Ordner verschieben. Per Zufall bestimmt das Programm eines der Bilder als Desktop-Motiv. Wichtig: Der Windows Scripting Host muss stets aktiv sein. Fⁿr Programmier-Interessierte hier das komplette Listing mit ErklΣrung: Dim iAccident, iNumber, iCounter Dim szFolder, szRegKey, t szWallpaper Dim objShell, objFileSystem, t objFolder iNumber = 0 iCounter = 0 szFolder = äC:\Hintergrundô szRegKey = äHKEY_CURRENT_t USER\Software\Microsoft\Intert net Explorer\Desktop\General\t Wallpaperô set objShell = Wscript.Createt Object(äWscript.Shellô) set objFileSystem = t CreateObject(äScripting.t FileSystemObjectô) set objFolder = objFileSystem.t getFolder(szFolder) æ Anzahl der Dateien ermitteln iNumber = objFolder.files.count æ Zufallszahl ermitteln randomize iAccident = Fix(rnd*(iNumber))t + 1 æ Hintergrunddatei in die t Registry eintragen for each objFile in objFolder.t files iCounter = iCounter+1 If iCounter = iAccident then szWallpaper = szFolder & t ä\ô & objFile.Name objShell.RegWrite szRegKey, szWallpaper End If next In den Variablen ╗szFolder½ speichert das Listing den Ordner, in dem die Hintergrundbilder liegen sollen û wenn Sie also den Ordner wechseln m÷chten, dann vermerken Sie den neuen Pfad hier. Die Variable ╗szRegKey½ enthΣlt den Schlⁿssel der Registry, der das Hintergrundmotiv speichert û also ╗HKEY_CURRENT_USER\Software\Microsoft\Inter-net Explorer\Desktop\General\Wallpaper½. Das Objekt ╗objShell½ des Typs ╗Wscript.Shell½ erlaubt Zugriffe auf die Registry. ╗FileSystemObject½ schlie▀lich erm÷glicht den Zugang sowohl zu Dateien als auch zu Ordnern. Mit der Methode ╗getFolder½ erzeugen Sie das Objekt ╗objFolder½, das den Ordner mit den Hintergrundmotiven reprΣsentiert. Im nΣchsten Schritt ermitteln Sie die Anzahl ╗iNumber½ der im Ordner liegenden Motive, indem Sie die Methode ╗Count½ der Auflistung ╗objFolder.files½ verwenden. Jetzt erzeugt das Listing eine Zufallszahl. ╗randomize½ initialisiert den Zahlengenerator, die Formel ╗iAccident = Fix(rnd*(iNumber)) + 1½ schafft dann eine Zufallszahl im Rahmen der vorhandenen Motive. Die ╗For Each½-Schleife sucht das Motiv aus und schreibt es mit ╗RegWrite½ in die Registry. www.chip.de/foren/windows