Script pour changer le fond du bureau

Script pour changer l’arrière-plan du bureau.

Éditeur de texte

La création d'un script Visual Basic est simple: vous avez simplement besoin d'un éditeur de texte simple, tel que le Bloc-notes Windows. Toutefois, au lieu d'enregistrer le fichier avec un nom qui se termine par ".TXT", le fichier doit être enregistré avec un nom qui se termine par ".VBS".

Le script

Collez ce qui suit dans un éditeur de texte:

shell dim dim utilisateur

Définissez shell = WScript.CreateObject ("WScript.Shell") user = shell.ExpandEnvironmentStrings ("% USERNAME%")

Set fso = CreateObject ("Scripting.FileSystemObject")

windowsDir = fso.GetSpecialFolder (0) wallpaper = "c: \ wallpaper.jpg"

shell.RegWrite "HKCU \ Panneau de configuration \ Bureau \ Papier peint", papier peint

shell.Run "% windowsDir% \ System32 \ RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters", 1, True

Modifiez le fichier "c: \ wallpaper.jpg" en indiquant le chemin d'accès et le nom du fichier d'arrière-plan du bureau que vous souhaitez utiliser.

Comment l'exécuter

Pour exécuter le script, enregistrez-le simplement avec l’extension de fichier .VBS. Ensuite, double-cliquez sur son icône sur votre bureau avec votre souris, comme pour tout autre programme.