Script per cambiare lo sfondo del desktop

Editor di testo

Creare uno script di Visual Basic è semplice: tutto ciò di cui hai bisogno è un semplice editor di testo, come il Blocco note di Windows. Tuttavia, anziché salvare il file con un nome che termina con ".TXT", il file deve essere salvato con un nome che termini in ".VBS".

La sceneggiatura

Incolla quanto segue in un editor di testo:

dim user dim shell

Imposta shell = WScript.CreateObject ("WScript.Shell") user = shell.ExpandEnvironmentStrings ("% USERNAME%")

Imposta fso = CreateObject ("Scripting.FileSystemObject")

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

shell.RegWrite "HKCU \ Pannello di controllo \ Desktop \ Sfondo", sfondo

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

Cambia il file "c: \ wallpaper.jpg" con il percorso e il nome del file dello sfondo del desktop che desideri utilizzare.

Come eseguirlo

Per eseguire lo script, è sufficiente salvarlo con l'estensione del file .VBS. Quindi, fai doppio clic sulla sua icona sul desktop con il mouse, come se avessi intenzione di avviare qualsiasi altro programma.