Показать сообщение отдельно
Старый 29.02.2008, 12:41   #2
flug
Неактивный пользователь
 
Аватар для flug
 
Пол:Мужской
Регистрация: 27.02.2008
Сообщений: 39
Репутация: 15
По умолчанию Ответ: Автоматически установить обои для рабочего стола

Воть, скрипт который меняет обои. Сохрани в формате *.vbs и добавь в планировщик. Тока путь сменить не забудь.
Новый обои появится только после перезапуска системы.

Код:
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\Wallpaper","D:\Documents and Settings\TheGOD\Application Data\Microsoft\Internet Explorer\Рисунок рабочего 
стола Internet Explorer.bmp","REG_SZ"
flug вне форума
 
Вверх
Сказали спасибо:
 
Время генерации страницы 0.09260 секунды с 10 запросами