Скачать или смотреть Example voice search in YandexSpeechRecognizeAPI.DLL of VBS-script and applications

Example voice search in YandexSpeechRecognizeAPI.DLL of VBS-script and applications
Developer: Badlo Sergey
Details: http://raxp2.blogspot.com/2015/03/api...
Download: http://raxp.radioliga.com/cnt/s.php?p...

This library (the DLL) for work with the service Yandex SpeechKit http://api.yandex.ru/speechkit through POST-requests to the operating system NT/2000/2003/XP/7/8 is designed for Russian speech recognition and voice search REALTIME in automatic mode (for user-defined threshold level, and language delay in tracking the end of phrases - trigger "silence"), as well as audio files from WAV PCM / MP3 and speech synthesis of user-defined text.

Example of call and use voice search from VBS-script:

' подключаем голосовое сопровождение
' при надоедливости голоса speakon = false
Dim Speak
speakon = true ' разрешаем голосовое сопровождение
Set Speak = CreateObject("sapi.spvoice")

' создаем объект DynamicWrapperX
Set Wrap = CreateObject("DynamicWrapperX.2")

' подключаем библиотеки
Wrap.Register "user32.dll", "GetAsyncKeyState", "i=l", "f=s", "r=l"
Wrap.Register "YandexSpeechRecognizeAPI.dll", "start", "i=lls", "f=s", "r=s"
Wrap.Register "YandexSpeechRecognizeAPI.dll", "setvoicesearch", "i=b", "f=s", "r=s"
Wrap.setvoicesearch true
Wrap.start 10, 1000, "ru_RU"

' Информируем пользователя о начале работы
if (speakon = true) then
Speak.Speak "Готов к голосовому поиску."
End if

Do While Wrap.GetAsyncKeyState(27) = "0"
WScript.Sleep 1000 'кол-во миллисекунд
Loop ' завершение цикла

' озвучиваем
if (speakon = true) then
Speak.Speak "Программа завершена."
End if