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.