Script til at ændre skrivebordsbaggrund

Positiv dag på arbejdet

Billedkredit: Brusonja/iStock/Getty Images

De fleste brugere er ikke klar over det, men Microsoft installerer en kopi af deres Visual Basic Script-sprog på hver Windows-computer. Dette enkle, men kraftfulde sprog gør det muligt at automatisere næsten alle opgaver, som en bruger eller administrator skal udføre på et system, såsom at ændre skrivebordsbaggrunden.

Teksteditor

Det er nemt at oprette et Visual Basic-script: alt hvad du behøver er en simpel teksteditor såsom Windows Notesblok. Men i stedet for at gemme filen med et navn, der ender på ".TXT", skal filen gemmes med et navn, der ender på ".VBS."

Dagens video

Manuskriptet

Indsæt følgende i en teksteditor:

dim shell dim bruger

Set shell = WScript. CreateObject("WScript. Shell") bruger = skal. ExpandEnvironmentStrings("%USERNAME%")

Indstil fso = CreateObject("Scripting. FileSystemObject")

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

skal. Regwrite "HKCU\Control Panel\Desktop\Wallpaper", tapet

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

Skift filen "c:\wallpaper.jpg" til stien og filnavnet på skrivebordsbaggrunden, du gerne vil bruge.

Sådan løber du

For at køre scriptet skal du blot gemme det med filtypenavnet .VBS. Dobbeltklik derefter på dets ikon på skrivebordet med musen, som du ville gøre for at starte ethvert andet program.