Сценарий за промяна на фона на работния плот

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

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

Сценарият

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

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

Задайте shell = WScript.CreateObject ("WScript.Shell") user = shell.ExpandEnvironmentStrings ("% USERNAME%")

Задайте fso = CreateObject ("Scripting.FileSystemObject")

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

shell.RegWrite "HKCU \ Контролен панел \ Desktop \ Тапет", тапет

shell.Run "% windowsDir% \ System32 \ RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters", 1, вярно

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

Как да го изпълнявате

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