Script for å endre skrivebordsbakgrunn

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

Text Editor

Opprette et Visual Basic Script er enkelt: alt du trenger er en enkel tekst editor som Windows Notisblokk. Men i stedet for å lagre filen med et navn som slutter på "TXT," filen må lagres med et navn som slutter på "VBS."

Manuset

Lim inn følgende i en teksteditor:

dim shell

dim bruker

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

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

Sett FSO = Create ( "Scripting.FileSystemObject")

windowsDir = fso.GetSpecialFolder (0)

tapet = "c: \ wallpaper.jpg"

shell.RegWrite "HKCU \ Control Panel \ Desktop \ Wallpaper", tapet

shell.Run «% windowsDir% \ System32 \ rundll32.exe user32.dll, UpdatePerUserSystemParameters", 1, Sant

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

Slik kjører

For å kjøre skriptet, bare lagre det med filtypen VBS. Deretter dobbeltklikker du på ikonet på skrivebordet ditt med musen som du ville til å starte et annet program.