Skript for å endre skrivebordsbakgrunn

Positiv dag på jobb

Bildekreditt: Brusonja/iStock/Getty Images

De fleste brukere er ikke klar over det, men Microsoft installerer en kopi av Visual Basic Script-språket på hver Windows-datamaskin. Dette enkle, men kraftige språket gjør det mulig å automatisere nesten alle oppgaver en bruker eller administrator må utføre på et system, for eksempel å endre skrivebordsbakgrunnen.

Tekstredigerer

Det er enkelt å lage et Visual Basic-skript: alt du trenger er et enkelt tekstredigeringsprogram som Windows Notisblokk. Men i stedet for å lagre filen med et navn som slutter på ".TXT", må filen lagres med et navn som slutter på ".VBS."

Dagens video

Manuset

Lim inn følgende i et tekstredigeringsprogram:

dim shell dim bruker

Sett skall = WScript. CreateObject("WScript. Shell") bruker = skall. ExpandEnvironmentStrings("%USERNAME%")

Sett fso = CreateObject("Skript. FileSystemObject")

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

skall. Regwrite "HKCU\Kontrollpanel\Desktop\Wallpaper", bakgrunn

skall. Kjør "%windowsDir%\System32\RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters", 1, True

Endre filen "c:\wallpaper.jpg" til banen og filnavnet til skrivebordsbakgrunnen du vil bruke.

Hvordan løpe

For å kjøre skriptet lagrer du det med filtypen .VBS. Dobbeltklikk deretter på ikonet på skrivebordet med musen på samme måte som for å starte et hvilket som helst annet program.