Scenarijus, skirtas pakeisti darbalaukio foną

click fraud protection
Pozityvi diena darbe

Vaizdo kreditas: Brusonja / iStock / Getty Images

Daugelis vartotojų to nesuvokia, bet „Microsoft“ įdiegia savo „Visual Basic Script“ kalbos kopiją kiekviename „Windows“ kompiuteryje. Ši paprasta, bet galinga kalba leidžia automatizuoti beveik kiekvieną užduotį, kurią vartotojas ar administratorius turės atlikti sistemoje, pvz., pakeisti darbalaukio foną.

Teksto redaktorius

Sukurti Visual Basic scenarijų paprasta: tereikia paprasto teksto rengyklės, pvz., Windows Notepad. Tačiau užuot įrašius failą pavadinimu, kuris baigiasi „.TXT“, failas turi būti išsaugotas pavadinimu, kuris baigiasi „.VBS“.

Dienos vaizdo įrašas

Scenarijus

Į teksto rengyklę įklijuokite šiuos elementus:

dim shell dim user

Nustatyti apvalkalą = WScript. CreateObject ("WScript. Shell") vartotojas = apvalkalas. ExpandEnvironmentStrings ("%USERNAME%")

Set fso = CreateObject("Scenarijų. FileSystemObject")

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

apvalkalas. RegĮrašykite „HKCU\Control Panel\Desktop\Wallpaper“, ekrano užsklandą

apvalkalas. Paleiskite „%windowsDir%\System32\RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters“, 1, „True“

Pakeiskite failą „c:\wallpaper.jpg“ į norimo naudoti darbalaukio fono kelią ir failo pavadinimą.

Kaip bėgti

Norėdami paleisti scenarijų, tiesiog išsaugokite jį su failo plėtiniu .VBS. Tada du kartus spustelėkite jo piktogramą darbalaukyje pele, kaip ir paleisti bet kurią kitą programą.