Skripta za promjenu pozadine radne površine

Većina korisnika toga nije svjesna, ali Microsoft instalira kopiju svog Visual Basic Script jezika na svako Windows računalo. Ovaj jednostavan, ali moćan jezik omogućuje automatizaciju gotovo svakog zadatka koji će korisnik ili administrator morati izvršiti na sustavu, kao što je promjena pozadine radne površine.

Uređivač teksta

Stvaranje Visual Basic skripte jednostavno je:sve što trebate je jednostavan uređivač teksta kao što je Windows Notepad. Međutim, umjesto spremanja datoteke s nazivom koji završava na ".TXT", datoteka mora biti spremljena s nazivom koji završava na ".VBS."

Skripta

Zalijepite sljedeće u uređivač teksta:

dim shell dim korisnik

Postavite shell =WScript.CreateObject("WScript.Shell") user =shell.ExpandEnvironmentStrings("%USERNAME%")

Postavite fso =CreateObject("Scripting.FileSystemObject")

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

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

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

Promijenite datoteku "c:\wallpaper.jpg" u putanju i naziv datoteke pozadine radne površine koju želite koristiti.

Kako trčati

Da biste pokrenuli skriptu, jednostavno je spremite s nastavkom datoteke .VBS. Zatim mišem dvaput kliknite njegovu ikonu na radnoj površini kao što biste pokrenuli bilo koji drugi program.