Как я могу изменить обои рабочего стола Windows 10 на другое изображение, используя.vbs или.bat
До сих пор я смогла только поменять обои на цвет. Я даже не смог выбрать цвет, он по умолчанию выбранный пользователем цвет.
Вот код, который я сейчас использую:
Set wshShell = WScript.CreateObject("WScript.Shell")
sUserName = wshShell.ExpandEnvironmentStrings("%USERNAME%")
Set oShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
sWinDir = oFSO.GetSpecialFolder(0)
sWallPaper = "\\hi.png"
oShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", sWallPaper
oShell.Run "%windir%\System32\RUNDLL32.EXE
user32.dll,UpdatePerUserSystemParameters", 1, True
msgbox "done"
Hi.png - это изображение, которое я хочу, чтобы новые обои были