bga68comp | Твой компьютер мальчик или девочка? Как узнать имя того, чьим голосом говорит компьютер? Часть 2 (Reply)

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

Неожиданно, шутка получила продолжение, и захотелось узнать, чьим голосом говорит компьютер?

Создаем снова файлик с расширением .vbs и нижеследующим содержанием (или редактируем уже имеющийся):

Set VObj = CreateObject("SAPI.SpVoice")
For Each Voice In VObj.getvoices
msgbox "" & Voice.GetDescription
Next

После запуска скрипта получаем:

Так вот кто ты! Ирина!

В документации указано, что пол компьютера зависит от установленного в системе голоса для преобразования текста в речь. Т.е. в Windows 10.0.14393 т.н. версии 1607 заходим в меню Все параметры:

Далее выбираем Время и язык:

Переходим на пункт Распознавание голоса и выбираем в выпадающем списке Речь: Microsoft Irina Mobile или Microsoft Pavel Mobile:

Таким образом мы можем выбирать пол компьютера. И это работает на Windows 7 и выше.
Но! в русской версии Windows 10.1607 изменение настроек преобразования текста в речь дало неожиданный результат - голос не поменялся. Запуск скрипта выдал поочередно два окошка:

Zira не захотела быть ни Павлом, ни Ириной!

И еще.
Чтобы компьютер при входе пользователя говорил фразу, зависящую от времени суток, нужно в автозагрузку бросить vbs-скриптик с содержанием:

Set Sapi = Wscript.CreateObject("SAPI.SpVoice")
dim str
if hour(time) < 12 then
Sapi.speak "Good Morning bga68"
else
if hour(time) > 12 then
if hour(time) > 16 then
Sapi.speak "Good evening bga68"
else
Sapi.speak "Good afternoon bga68"
end if
end if
end if

Кстати, Windows может говорить по-русски. Поэтому фразу Good Morning / evening / afternoon можно писать по-русски.

Все.

См.также:

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