Вот в общем скрипт
Рядом с ним нужно положить вашу картинку с именем "wallpaper.bmp" и сам скрипт должен иметь имя "wallpaper.vbs"
Всё я это сделал, но скрипт просто убирает текущую картинку, а новую не ставит.Помогите пожалуйста,заранее спасибо!
Код:
Set objWshShell = WScript.CreateObject("Wscript.Shell")
strPath2DestWallpaper = "./wallpaper.bmp"
objWshShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\Wallpaper", strPath2DestWallpaper, "REG_SZ"
objWshShell.Run """%SystemRoot%\System32\RUNDLL32.EXE"" user32.dll,UpdatePerUserSystemParameters", 0, TrueВсё я это сделал, но скрипт просто убирает текущую картинку, а новую не ставит.Помогите пожалуйста,заранее спасибо!