Script pour changer le fond 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.