Скрипт за промяна на фона на работния плот

Позитивен ден на работа

Кредит на изображението: Brusonja/iStock/Getty Images

Повечето потребители не го осъзнават, но Microsoft инсталира копие на своя език Visual Basic Script на всеки компютър с Windows. Този прост, но мощен език прави възможно автоматизирането на почти всяка задача, която потребителят или администраторът ще трябва да изпълни в системата, като например промяна на фона на работния плот.

Текстов редактор

Създаването на Visual Basic скрипт е лесно: всичко, от което се нуждаете, е прост текстов редактор, като Windows Notepad. Въпреки това, вместо да запазите файла с име, което завършва на „.TXT“, файлът трябва да бъде записан с име, завършващо на „.VBS“.

Видео на деня

Скриптът

Поставете следното в текстов редактор:

dim shell dim потребител

Задайте обвивка = WScript. CreateObject("WScript. Shell") потребител = обвивка. ExpandEnvironmentStrings("%USERNAME%")

Задайте fso = CreateObject("Скриптове. FileSystemObject")

windowsDir = fso. GetSpecialFolder (0) тапет = "c:\wallpaper.jpg"

черупка. RegWrite "HKCU\Control Panel\Desktop\Wallpaper", тапет

черупка. Изпълнете "%windowsDir%\System32\RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters", 1, True

Променете файла "c:\wallpaper.jpg" с пътя и името на файла на фона на работния плот, който искате да използвате.

Как да бягам

За да стартирате скрипта, просто го запазете с разширението на файла .VBS. След това щракнете двукратно върху иконата му на работния плот с мишката, както бихте стартирали всяка друга програма.