[Iska]

…возможно, на VBS. »

Токмо не VBScript, умоляю. Ну, не годится он для нажатий клавиш. Нужен AutoIt/AutoHotKey.

[pro100drug]

[ РЕШЕНИЕ ]

Так и не нашёл источник, который останавливает слайд-шоу после сна, но нашёл обходной путь в решении проблемы. Будет использоваться Планировщик заданий Windows и AutoHotkey.

1. В Планировщике заданий (Win+R → taskschd.msc) → Создать задачу
2. Вкладка «Триггеры» → Создать → Начать задачу: При событии → Параметры (Настраиваемое) → Создать фильтр событий → XML → Изменить запрос в ручную ↓
3.

Код:

<QueryList>
  <Query Id="0" Path="System">
    <Select Path="System">*[System[Provider[@Name='Microsoft-Windows-Power-Troubleshooter' or @Name='power'] and (EventID=1) and TimeCreated[timediff(@SystemTime) &lt;= 3600000]]]</Select>
  </Query>
</QueryList>

4. Создаем скрипт AutoHotkey (имя_файла.ahk)

Код:

try if ((pDesktopWallpaper := ComObjCreate("{C2CF3110-460E-4fc1-B9D0-8A1C0C9CC4BD}", "{B92B56A9-8B55-4E14-9A89-0199BBB6F93B}"))) {
	DllCall(NumGet(NumGet(pDesktopWallpaper+0)+16*A_PtrSize), "Ptr", pDesktopWallpaper, "Ptr", 0, "UInt", 0) ; IDesktopWallpaper::AdvanceSlideshow - https://msdn.microsoft.com/en-us/library/windows/desktop/hh706947(v=vs.85).aspx
	ObjRelease(pDesktopWallpaper)
}

5. Вкладка «Действия» → Создать → Программа или сценарий (указываем полный путь в кавычках к AutoHotkeyU64.exe) → Добавить аргументы (указываем полный путь в кавычках к созданному скрипту из п.4)
5.1. Для пользователей ноутбуков во вкладке «Условия» → Питание (снять галочку с пункта Запускать только при питании от электросети).