Loading...

Example voice search in YandexSpeechRecognizeAPI.DLL of VBS-script and applications

365 views

Loading...

Loading...

Rating is available when the video has been rented.
This feature is not available right now. Please try again later.
Published on Dec 12, 2014

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

Loading...


to add this to Watch Later

Add to

Loading playlists...