Здравствуйте, Андрей.
Вы писали 27 августа 2025 г., 18:04:03:
> Мне кажется автор имел ввиду не проглатывание начала или окончания фраз
> в скринридерах, а отключение звука при неактивности компьютера. Вроде
> было написано про то, что все восстанавливается, если нажать что нибудь
> на клавиатурре.
>
Я тоже так понял. Тем более знакомый с такой проблемой обращался. Он
заметил, что такое пропадание происходит когда нет звука в эти наушники
примерно с 2 минуты.
Он попросил накидать например VBS скрипт, который через 2 минуты
воспроизводит маленький короткий звук. Мой вариант так и не получилось
ему передать.
Если кому надо вот текст такого скрипта, комментарии есть и
следовательно править вы тоже сможите.
Два например поменяйте на сто раз.
воспроизведение системного звука (Часов) через 1 минуту 2 раза плюс звук Кодировка - win1251.vbs
Текст:
' VBScript для воспроизведения системного звука (Часов, минут, секунд) 5 раз с интервалом 1 минута плюс звук.Все параметры корректируются чуть ниже.
' Снимаем задание через диспетчер задач "Ctrl + Shift + Esc", удаляем процесс: "wscript.exe", лучше его не в списке искать, а вбить в редактор поиска. ("Процесс: Microsoft (R) Windows Based Script Host").
' А более правильно написать Bat файл на снятие этого процесса. Внимание: такой батник на снятие процесса мне приходится запускать из-подадмина.
Set WshShell = CreateObject("WScript.Shell")
Set objPlayer = CreateObject("WMPlayer.OCX")
playCount = 0
maxPlays = 2 ' Количество итераций (Повторений).
delayMinutes = 1 ' Интервал в минутах
delayMilliseconds = delayMinutes * 60 * 1000 ' Конвертируем минуты в миллисекунды
Do While playCount < maxPlays
' Через синтезатор по умолчанию Sapi проговариваем часы, минуты, секунды, примерно это занимает 4 секунды.Нажимаем кнопку "Windows", в редакторе набираем: "речь" и Enter. В открывшемся окне делаем Tab до комбинированного списка с синтезаторами. Устанавливаем нужный синтезатор, например "Microsoft Irina".
' Коли не надо воспроизводить время, то комментируем строку ниже с помощью "'".
CreateObject("SAPI.SpVoice").Speak time
' Воспроизводим звук. Это примерно составляет 3 секунды.
objPlayer.URL = "C:\Windows\Media\Windows Unlock.wav"
objPlayer.settings.volume = 100
objPlayer.controls.play
Do While objPlayer.playState <> 1
WScript.Sleep 100
Loop ' Конец блока для звука.
playCount = playCount + 1
If playCount < maxPlays Then
WScript.Sleep delayMilliseconds ' Пауза перед следующим воспроизведением
End If
Loop ' Конец цикла итераций.
' WScript.Echo "Завершено. Системный звук был воспроизведен " & maxPlays & " раз."