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

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

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

  • Как изменить цвет по умолчанию командной строки?
  • Активация неподлинной версии Windows XP с использованием подлинного ключа
  • «Общий доступ и безопасность» отсутствует на моем ноутбуке XP
  • Как загрузить файл .mp3 из Dropbox?
  • Что такое переключаемая графика?
  • Изменить левую ссылку в диалоговом окне «Сохранить как» для DropBox?
  • Windows XP x64 зависает на экране приветствия
  • Удалите пользователя в Windows XP, не можете найти кнопку удаления или не показывать
  • 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, используя диспетчер задач.

    Interesting Posts

    Пакет рекурсивно удаляет старые файлы Windows

    Способы отключения / сна и пробуждения жестких дисков по команде?

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

    В чем разница между символической связью, соединением, жесткой ссылкой и т. Д.?

    Избавьтесь от настроек мощности и доступности на экране входа в Windows 8

    Мой старый crt мерцает, или это только я?

    Субдомены для сервера за NAT

    Безопасно ли дать кому-то мой ноутбук с моей папкой Dropbox, сохраненной на нем?

    Как я могу избавиться от помощника клипа Microsoft «Clippy»?

    Как удалить Windows.old в Windows 8

    Компьютер не включается, как диагностировать причину?

    Пространство в качестве ключа-модификатора XKB

    Проблема с сохраненными паролями в Chrome

    Моделирование сетевого соединения с низкой пропускной способностью и высокой задержкой в ​​Linux

    Автоматизация создания ярлыков панели задач

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