Skript töölaua tausta muutmiseks

Positiivne päev tööl

Pildi krediit: Brusonja/iStock/Getty Images

Enamik kasutajaid ei saa sellest aru, kuid Microsoft installib nende Visual Basic Scripti keele koopia igasse Windowsi arvutisse. See lihtne, kuid võimas keel võimaldab automatiseerida peaaegu iga toimingu, mida kasutaja või administraator peab süsteemis tegema, näiteks töölaua tausta muutma.

Tekstiredaktor

Visual Basicu skripti loomine on lihtne: vajate ainult lihtsat tekstiredaktorit, näiteks Windows Notepad. Kuid selle asemel, et salvestada faili nimega, mis lõpeb tähega ".TXT", tuleb fail salvestada nimega, mille lõpp on ".VBS".

Päeva video

Skript

Kleepige tekstiredaktorisse järgmine:

hämar kest hämar kasutaja

Määra kest = WScript. CreateObject("WScript. Shell") kasutaja = kest. ExpandEnvironmentStrings("%USERNAME%")

Set fso = CreateObject("Skriptimine. FileSystemObject")

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

kest. RegKirjutage "HKCU\Control Panel\Desktop\Wallpaper", tapeet

kest. Käivitage "%windowsDir%\System32\RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters", 1, Tõene

Muutke faili "c:\wallpaper.jpg" selle töölaua tausta tee ja failinimi, mida soovite kasutada.

Kuidas joosta

Skripti käivitamiseks salvestage see lihtsalt faililaiendiga .VBS. Seejärel topeltklõpsake selle ikooni oma töölaual hiirega, nagu teeksite seda mis tahes muu programmi käivitamisel.