Skript för att ändra skrivbordsbakgrund

Positiv dag på jobbet

Bildkredit: Brusonja/iStock/Getty Images

De flesta användare inser inte det, men Microsoft installerar en kopia av deras Visual Basic Script-språk på alla Windows-datorer. Detta enkla men kraftfulla språk gör det möjligt att automatisera nästan varje uppgift som en användare eller administratör behöver utföra på ett system, som att ändra skrivbordsbakgrunden.

Textredigerare

Det är enkelt att skapa ett Visual Basic-skript: allt du behöver är en enkel textredigerare som Windows Notepad. Men istället för att spara filen med ett namn som slutar på ".TXT", måste filen sparas med ett namn som slutar på ".VBS."

Dagens video

Manuset

Klistra in följande i en textredigerare:

dim skal dim användare

Ange skal = WScript. CreateObject("WScript. Shell") användare = skal. ExpandEnvironmentStrings("%USERNAME%")

Set fso = CreateObject("Scripting. FileSystemObject")

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

skal. Skriv om "HKCU\Control Panel\Desktop\Wallpaper", bakgrundsbild

skal. Kör "%windowsDir%\System32\RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters", 1, True

Ändra filen "c:\wallpaper.jpg" till sökvägen och filnamnet för skrivbordsbakgrunden du vill använda.

Hur man springer

För att köra skriptet, spara det helt enkelt med filtillägget .VBS. Dubbelklicka sedan på dess ikon på skrivbordet med musen som du skulle göra för att starta vilket annat program som helst.