Script pour changer fond d'écran

Editeur de texte

• Création d'un script Visual Basic est simple: tout ce que vous avez besoin est un simple éditeur de texte tel que le Bloc-notes Windows. Cependant, au lieu d'enregistrer le fichier avec un nom qui se termine par ".SMS," le fichier doit être sauvegardé avec un nom se terminant par ".VBS."

Le Script

• Collez le texte suivant dans un éditeur de texte:

  shell dim

  dim utilisateur

  
  
  
  

  Set shell = WScript.CreateObject ("WScript.Shell")

  user = (shell.ExpandEnvironmentStrings"% USERNAME%")

  
  
  
  
  

  Set fso = CreateObject ("Scripting.FileSystemObject")

  WindowsDir = fso.GetSpecialFolder (0)

  papier = "c: wallpaper.jpg"

  shell.RegWrite "HKCU Control Panel Desktop Wallpaper", Papier peint

  shell.run "% WindowsDir% System32 user32.dll RUNDLL32.EXE, UpdatePerUserSystemParameters", 1, True

  Modifiez le fichier "c: wallpaper.jpg" le chemin et le nom du fond d'écran que vous souhaitez utiliser.

Comment faire pour exécuter

• Pour exécuter le script, il suffit de l'enregistrer avec l'extension .vbs de fichier. Ensuite, double-cliquez sur son icône sur votre bureau avec votre souris comme vous le feriez pour démarrer tout autre programme.