Сценарій для зміни фону робочого столу

click fraud protection
Позитивний день на роботі

Авторство зображення: Brusonja/iStock/Getty Images

Більшість користувачів цього не усвідомлюють, але Microsoft встановлює копію своєї мови Visual Basic Script на кожен комп’ютер Windows. Ця проста, але потужна мова дає змогу автоматизувати майже кожне завдання, яке користувач або адміністратор має виконати в системі, наприклад змінити фон робочого столу.

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

Створити сценарій Visual Basic легко: все, що вам потрібно, це простий текстовий редактор, такий як Блокнот Windows. Однак замість збереження файлу з іменем, яке закінчується на «.TXT», файл має бути збережений з іменем, що закінчується на «.VBS».

Відео дня

Сценарій

Вставте наступне в текстовий редактор:

dim shell dim користувач

Встановити оболонку = WScript. CreateObject("WScript. Shell") користувач = оболонка. ExpandEnvironmentStrings("%USERNAME%")

Встановіть fso = CreateObject("Сценарії. FileSystemObject")

windowsDir = fso. GetSpecialFolder (0) шпалери = "c:\wallpaper.jpg"

оболонка. RegWrite "HKCU\Панель керування\Робочий стіл\Шпалери", шпалери

оболонка. Запустіть "%windowsDir%\System32\RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters", 1, True

Змініть файл "c:\wallpaper.jpg" на шлях та ім'я файлу фону робочого столу, який ви хочете використовувати.

Як бігати

Щоб запустити сценарій, просто збережіть його з розширенням .VBS. Потім двічі клацніть мишею його піктограму на робочому столі, як і запуск будь-якої іншої програми.