Skript za spremembo ozadja namizja

Večina uporabnikov se tega ne zaveda, vendar Microsoft namesti kopijo svojega jezika Visual Basic Script na vsak računalnik z operacijskim sistemom Windows. Ta preprost, a zmogljiv jezik omogoča avtomatizacijo skoraj vseh nalog, ki jih mora uporabnik ali skrbnik opraviti v sistemu, na primer spreminjanje ozadja namizja.

Urejevalnik besedila

Ustvarjanje skripta Visual Basic je preprosto:vse, kar potrebujete, je preprost urejevalnik besedil, kot je Windows Notepad. Vendar pa namesto shranjevanja datoteke z imenom, ki se konča na ".TXT", mora biti datoteka shranjena z imenom, ki se konča na ".VBS."

Skript

V urejevalnik besedila prilepite naslednje:

dim shell dim uporabnik

Nastavite shell =WScript.CreateObject("WScript.Shell") uporabnik =shell.ExpandEnvironmentStrings("%USERNAME%")

Nastavite fso =CreateObject("Scripting.FileSystemObject")

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

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

shell.Run "%windowsDir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True

Spremenite datoteko "c:\wallpaper.jpg" v pot in ime datoteke ozadja namizja, ki ga želite uporabiti.

Kako teči

Če želite zagnati skript, ga preprosto shranite s pripono datoteke .VBS. Nato z miško dvokliknite njegovo ikono na namizju, kot bi zagnali kateri koli drug program.