Форум
Написать нам
  • Страница 1 из 1
  • 1
Модератор форума: as-master  
wallpaper
usermmbuildДата: Воскресенье, 23 Ноября 2008, 15:57 | Сообщение # 1
Любопытный
Группа: Проверенные
Сообщений: 48
Репутация: 0
Награды: 0
Статус: Offline
Задумка простая, вроде. Скажите как можно через MMB или другими средствами менять обои на рабочем столе? Спасибо.
 
DEMBELДата: Воскресенье, 23 Ноября 2008, 16:39 | Сообщение # 2
Наш дизайнер
Группа: Модераторы
Сообщений: 2266
Репутация: 135
Награды: 32
Статус: Offline
воспользоваться vbs скриптом, либо подождать может здешние программисты извратятся...

Code

FileName = "C:\Kartinka_tyt.bmp"
Set WshShell = WScript.CreateObject("Wscript.Shell")
WshShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", FileName
WshShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Desktop\General\BackUpWallpaper", FileName
WshShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Desktop\General\Wallpaper", FileName
WshShell.Run "%SystemRoot%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, False   

его можно генерировать прямо из ммб, замени путь к картинке в строке Filename на свой, если не пашет отключи ActiveDesktop. Формат картинки только bmp.

Прикрепления: wp.vbs (0.4 Kb)




Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62


Сообщение отредактировал DEMBEL - Воскресенье, 23 Ноября 2008, 16:40
 
usermmbuildДата: Воскресенье, 23 Ноября 2008, 18:28 | Сообщение # 3
Любопытный
Группа: Проверенные
Сообщений: 48
Репутация: 0
Награды: 0
Статус: Offline
спс! поюзаем
 
  • Страница 1 из 1
  • 1
Поиск: