Расписание изменений в Windows XP без дополнительных приложений

В идеале, я хотел бы иметь возможность сделать это с помощью командного файла или сценария VB, поэтому я могу запланировать его запуск в разное время суток (темные обои ночью или светлые обои в день).

Я знаю о многих приложениях, которые могут это сделать, но я предпочитаю сохранять только нужные приложения в фоновом режиме.

4 Solutions collect form web for “Расписание изменений в Windows XP без дополнительных приложений”

Вы можете использовать запланированные задачи вместе с этим VBScript, который я только что взломал (это для использования нескольких обоев и переключение каждые несколько минут, например):

Randomize Set obshell = WScript.CreateObject("Wscript.Shell") num = Int( ( 100 - 1 + 1 ) * Rnd + 1 ) CurrentDir = "C:\Wallpapers\day\" wallpaper = CurrentDir & "Wallpaper" & num & ".bmp" obshell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper",wallpaper obshell.Run "%windir%\System32\RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters",1,False Set obshell = Nothing 

Примечание . Обои должны быть растровыми. Если вы хотите избежать дополнительных сценариев, чтобы периодически проверять системное время, вы можете использовать один и тот же сценарий в течение ночи и дня, просто сделайте отдельную запланированную задачу и запустите ее в нужное время с нужным интервалом. Сделайте 2 папки, обои для рабочего стола и один для ночных обоев, поместите в них копию сценария. Вам нужно будет изменить 100 в строке 3, чтобы все обои были в каждом, и переименуйте их в Wallpaper1, Wallpaper2, etc Чтобы этот скрипт работал (или изменял имя в скрипте). Также измените значение CurrentDir для каждого.

Если вы хотите использовать только 2 обоев (установите его каждые 59 минут, чтобы вы не пропустили час):

 Set obshell = WScript.CreateObject("Wscript.Shell") CurrentHour = Hour(Now) If CurrentHour = 8 Then wallpaper = "C:\Wallpapers\day.bmp" ElseIf CurrentHour = 20 Then wallpaper = "C:\Wallpapers\night.bmp" Else WScript.Quit(0) End If obshell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper",wallpaper obshell.Run "%windir%\System32\RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters",1,False Set obshell = Nothing 

EDIT: ответ Джона показывает вам полный сценарий. Мой +1 идет к нему. Это сообщение станет просто еще одним вариантом, который вы, возможно, захотите изучить.

Я немного ржав на командных командах, поэтому я собираюсь дать вам основные моменты:

%TIME:~0,2% – даст вам текущий час в переменной окружения TIME

Так что-то вроде этого:

 IF %TIME:~0,2% == 19 CALL do_Night_Wallpaper.reg IF %TIME:~0,2% == 07 CALL do_Day_Wallpaper.reg 

Было бы достаточно, чтобы скрипт был помещен в ваш планировщик задач и должен запускаться каждые 1 час. Конечно, вы можете настроить часы на свой уровень комфорта в часовом поясе. Между тем заявления IF написаны так, что они не излишне называют рег-файлы. Но это означает, что вы должны настроить планировщик задач для запуска его один раз в час, по крайней мере.

Что касается самих файлов reg, это настройки, которые вы выполняете:

  • HKEY_CURRENT_USER \ Программное обеспечение \ Microsoft \ Windows \ CurrentVersion \ Политики \ Система \ Обои
  • HKEY_CURRENT_USER \ Программное обеспечение \ Microsoft \ Windows \ CurrentVersion \ Policies \ System \ WallpaperStyle

Первый получает полный путь к изображению обоев. Второй – целое число 0 = центрированное, 1 = черепичное, 2 = растянутое.

Вот небольшая программа VBS, «готовая к использованию»: она собирает все эти команды (выбор случайного файла изображения в каталоге с помощью команды «Рандомизировать» VBS + обновлять обои Windows с помощью «UpdatePerUserSystemParameters» + обновлять Windows Реестр «WallpaperStyle»).

И он работает с файлами изображений .JPG (не только с файлами .BMP), что довольно удобно …

Исходный код сценария VB описан на странице http://sites.google.com/site/sharerandomwallpapers/ Спасибо.

Я просто пытаюсь добавить незначительные приправы к сценарию Джона. Я пытаюсь сделать скрипт способным менять обои раз в минуту в зависимости от времени суток. Например, с 5.00 до 8.59, он меняет несколько обоев с утренней темой; С 9.00 до 13.59, он изменяет несколько обоев с полуденной темой; и так далее. Каждая тема в этом скрипте содержит 4 изображения BMP. Поскольку в сценарии есть пять тем (утро, полдень, полдень, вечер и ночь), для работы этого сценария потребуется 20 изображений.

 'creating procedure that changes wallpaper every minute Sub ChangeWallpaperPerMinute () Set obshell = WScript.CreateObject("Wscript.Shell") CurrentHour = Hour(Now) 'determining the number of images for every time of the day-based theme (set the 'maximum' value according to the number of images for every theme) maximum=4 minimum=1 'randomizing the images to be changed Randomize num = Int((maximum-minimum+1)*Rnd+minimum) If CurrentHour >= 5 And CurrentHour <= 8 Then wallpaper = "morning" & num & ".bmp" ElseIf CurrentHour >= 9 And CurrentHour <= 13 Then wallpaper = "midday" & num & ".bmp" ElseIf CurrentHour >= 14 And CurrentHour <= 16 Then wallpaper = "afternoon" & num & ".bmp" ElseIf CurrentHour >= 17 And CurrentHour <= 20 Then wallpaper = "evening" & num & ".bmp" ElseIf CurrentHour >= 21 And CurrentHour <= 23 Then wallpaper = "night" & num & ".bmp" ElseIf CurrentHour >= 0 And CurrentHour <= 4 Then wallpaper = "night" & num & ".bmp" Else WScript.Quit(0) End If obshell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper",wallpaper obshell.Run "%windir%\System32\RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters",1,False Set obshell = Nothing End Sub 'end of procedure creation' 'calling procedure to initiate script's action ChangeWallpaperPerMinute 'repeating the calling of procedure do WScript.sleep(60 * 1000) '60 * 1000 means sixty seconds. If the shifting of wallpapers is expected to occur once every ten seconds, change to 10 * 1000 'calling procedure ChangeWallpaperPerMinute Loop 

Чтобы сделать этот скрипт работоспособным, в дополнение к самому файлу сценария также необходимы 20 изображений BMP. Четыре из этих изображений должны быть названы в соответствии с указанной номенклатурой; То есть, например, morning1.bmp, morning2.bmp, morning3.bmp и morning4.bmp. Та же номенклатура также применяется для обозначения 4 полуденных изображений, 4 дневных изображений, 4 вечерних изображений и 4 ночных изображений. Поместите файл VBS вместе с 20 файлами изображений в одну папку. Поскольку этот скрипт неоднократно вызывает свою процедуру через определенные промежутки времени, когда вы используете запланированные задачи, убедитесь, что вы активируете этот скрипт только при входе в систему. Чтобы отключить этот скрипт, просто запустите wscript.exe, используя диспетчер задач.

  • Как добавить cygwin / bin в путь поиска в Windows XP?
  • Как восстановить загрузчик WindowXP в Windows?
  • Windows XP - расширение «Открыть терминал здесь»?
  • Все окна на экране одновременно в Windows XP
  • Как сделать мультизагрузочный USB-ключ?
  • Wi-Fi отключается случайным образом
  • Виртуальный аудио драйвер для Windows?
  • Наименее разрушительный антивирус во время работы
  • Windows XP - CHKDSK запускается при каждой загрузке
  • Последствия предупреждения Windows Genuine Advantage?
  • Вторичный монитор не будет отображаться в полном разрешении, если основной дисплей отключен
  • Chrome не устанавливается на windows xp sp3
  • Interesting Posts

    Создание видео с 5 изображениями с эффектом fadeIn / out в ffmpeg

    Как удалить всю историю веб-поиска, соответствующую конкретному запросу в Google Chrome

    Мерцание экрана на HP dv6t-7000

    Программы сброса пароля только находят пароли из одной ОС в системе с двойной загрузкой

    Предупреждения Firefox «Неверное подключение» при посещении уважаемых сайтов HTTPS при использовании учетной записи ребенка

    Microsoft Word: некоторые символы Unicode не отображаются в любом шрифте

    Как получить серийный номер жесткого диска

    Linux: расширенная настройка загрузчика Grub?

    Получу ли я преимущество, если моя оперативная память будет быстрее, чем FSB моего процессора?

    Что это за особый характер: 𝓱𝒆𝓪𝓿𝒆𝓷𝓼 𝓰𝓪𝓽𝒆?

    Удалить DD-WRT с DIR-615

    Как запустить Windows 8 в безопасном режиме из-за фанкового драйвера nVidia

    Как подключить внутреннюю беспроводную карту к гостевой машине VMWare Workstation 10 и по-прежнему изолировать хост?

    Как восстановить раздел без потери данных?

    Необходимо удалить все файлы с одним расширением на диске в Windows 7

    Давайте будем гением компьютера.