Script pentru a schimba fundalul desktopului

Zi pozitivă la serviciu

Credit imagine: Brusonja/iStock/Getty Images

Majoritatea utilizatorilor nu își dau seama, dar Microsoft instalează o copie a limbajului lor Visual Basic Script pe fiecare computer Windows. Acest limbaj simplu, dar puternic, face posibilă automatizarea aproape a fiecărei sarcini pe care un utilizator sau administrator va trebui să o îndeplinească pe un sistem, cum ar fi schimbarea fundalului desktopului.

Editor de text

Crearea unui Script Visual Basic este ușoară: tot ce aveți nevoie este un editor de text simplu, cum ar fi Windows Notepad. Cu toate acestea, în loc să salvezi fișierul cu un nume care se termină în „.TXT”, fișierul trebuie să fie salvat cu un nume care se termină în „.VBS”.

Videoclipul zilei

Scenariul

Lipiți următoarele într-un editor de text:

dim shell dim user

Set shell = WScript. CreateObject("WScript. Shell") utilizator = shell. ExpandEnvironmentStrings(„%USERNAME%”)

Set fso = CreateObject("Scripting. FileSystemObject")

windowsDir = fso. Tapet GetSpecialFolder (0) = „c:\wallpaper.jpg”

coajă. RegWrite „HKCU\Control Panel\Desktop\Wallpaper”, imagine de fundal

coajă. Rulați „%windowsDir%\System32\RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters”, 1, adevărat

Schimbați fișierul „c:\wallpaper.jpg” la calea și numele fișierului fundalului desktopului pe care doriți să îl utilizați.

Cum să alergi

Pentru a rula scriptul, pur și simplu salvați-l cu extensia de fișier .VBS. Apoi, faceți dublu clic pe pictograma acesteia de pe desktop cu mouse-ul, așa cum ați porni orice alt program.