Как изменить фон рабочего стола в Windows 7

Question

Из-за применения групповых политик в наших системах мы не можем навсегда изменить фон нашего рабочего стола . IE "Установить как фон рабочего стола" работает, но временно. PS: у меня есть права администратора моей системы.

Answer 1

Вы просто найдете файл фонового изображения, которое он использует в настоящее время, и перезапишите его, а не пытаетесь указать свои предпочтения в другом файле.

Поэтому, если ваш текущий фоновый файл - c:\windows\system\background.png, вы должны сделать резервную копию, background.png.bak или аналогичную. Затем вы должны скопировать тот, который вы хотите использовать, в c:\windows\system\background.png. Это изменит фон для всех, кто использует компьютер, поэтому вы можете вместо этого создать скрипт, который копирует файлы при входе / выходе из системы.

Answer 2

У меня такая же ситуация здесь. Я сделал это немного по-другому + не требует прав администратора:

1. Создайте новый каталог: C:\Wallpaper

2. Переместите туда свои обои, измените их размеры до размеров экрана и переименуйте в background.jpg. Чтобы изменить размер изображения без какого-либо стороннего приложения, откройте файл background.jpg с помощью MS Paint, нажмите CTRL+W (чтобы изменить размер), отмените выбор "Сохранить соотношение сторон", установите переключатель "Пиксели" и настройте изображение в соответствии с размером рабочего стола. ,

3. Создайте в этом каталоге новый файл с именем wallpaper.bat со следующим содержимым (обратите внимание, что вы можете изменить значение 30 на большее, если его не удается установить при загрузке. Например: 60 или 90):

timeout /t 30 /nobreak > NUL
Call background.xlsm

4. Создайте файл wallpaper.vbs в том же каталоге со следующим содержимым:

Set WshShell = CreateObject("WScript.Shell" ) 
WshShell.Run chr(34) & "C:\Wallpaper\wallpaper.bat" & Chr(34), 0 
Set WshShell = Nothing 

5. Откройте MS Excel (позже вы сохраните его там, но теперь просто следуйте инструкциям), нажмите Alt+F11 и откроется Visual Basic для приложений. С левой стороны вы должны увидеть браузер проекта, поэтому дважды щелкните по ThisWorkbook и вставьте следующий контент:

Private Sub Workbook_Open()
     If (ThisWorkbook.Name = "background.xlsm") Then
          Call changeWallpaper("C:\Wallpaper\background.jpg")
          Application.DisplayAlerts = False
          Application.Quit
     End If
End Sub

6. В том же файле Excel щелкните правой кнопкой мыши любой из элементов в браузере проекта, затем "Вставить", затем "Модуль" и вставьте следующий код:

Option Explicit

Public Declare Function SystemParametersInfo Lib "user32" Alias
"SystemParametersInfoA" _
                    (ByVal uAction As Long, ByVal uParam As Long, _
                     ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

Public Const SPI_SETDESKWALLPAPER = 20 Public Const
SPIF_SENDWININICHANGE = &H2 Public Const SPIF_UPDATEINIFILE = &H1

Public Sub changeWallpaper(location As String)

     Dim strImagePath As String
     strImagePath = location

     Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, strImagePath, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
End Sub

5. Убедитесь, что макросы всегда доступны без подтверждения, чтобы включить их для этого файла. Сохраните этот файл как файл Excel с поддержкой макросов с расширением xlsm (необходимо назвать его background.xlsm):

C:\Wallpaper\background.xlsm

7. Закройте и откройте xlsm файл Excel. Если обои установлены - все готово. Если нет - проверьте безопасность макросов. Может быть, вам нужно добавить этот файл Excel в белый список в настройках безопасности макросов Excel? Для меня - это работает. Если вы все еще не можете заставить его работать - вам не повезло.

8. Установить обои при загрузке - в каталоге автозагрузки Windows поместите ярлык файла wallpaper.vbs . Чтобы сделать ярлык, щелкните правой кнопкой мыши файл wallpaper.vbs и нажмите "Создать ярлык". Чтобы открыть каталог автозагрузки, перейдите в Пуск -> Все программы -> Папка автозагрузки , затем щелкните по нему правой кнопкой мыши и выберите "Открыть". Переместите созданный ярлык в этот каталог автозагрузки.

ПРИМЕЧАНИЕ 1: После загрузки 30 секунд пройдет, и ваши обои должны быть установлены успешно. Без таймера (30 секунд) файл Excel по какой-то причине выдаст ошибку.

ПРИМЕЧАНИЕ 2. Чтобы отредактировать файл Excel xlsm , переименуйте его в любое другое имя (например, bbackground.xlsm) и откройте. Когда вы закончите изменять содержимое, сохраните его и переименуйте обратно в background.xlsm.