Voice Recognition

[monte]

Hello, I've finally found a solution to my problem, I actually had to completely remove my old version and only install the beta of autoit for it to work. However I have a new question. My ouput is displayed/spoken 4 times, I only want it displayed/spoken once. Anyone got any ideas?

expandcollapse popup

; AutoItCOM 3.1.1.x beta
;
; COM Test file
;
; Test usage of Events with SAPI
;
; NOTE: To be able to run this example, you must first
;      download and install the Microsoft SAPI SDK 5.1
;       http://www.microsoft.com/speech/download/sdk51/
;
; See also: http://www.microsoft.com/speech/techinfo/apioverview/
;
; And..READ the documentation carefully! Speech recognition is very complex stuff !

#include "GUIConstants.au3"

; Create a simple GUI for our output
GUICreate ( "Event Speech API Test", 640, 480 )
$GUIEdit=GUICtrlCreateEdit ( "Debug Log:" & @CRLF, 10, 10 , 600 , 400 )
GUISetState ()  ;Show GUI

$RecoContext=ObjCreate("SAPI.SpSharedRecoContext")
if @error then
    Msgbox(0,"","Error opening $RecoContext: " & @error)
    exit
endif
; Initialize our Event Handler
; Note: The default outgoing event interface will be: _ISpeechRecoContextEvents
$SinkObject=ObjEvent($RecoContext,"MYEvent_")
if @error then 
  GUICtrlSetData ( $GUIEdit, "ObjEvent error: " & @error & @CRLF  , "append" )
else
  GUICtrlSetData ( $GUIEdit, "ObjEvent created Successfully!" & @CRLF  , "append" )

;Imported from: SAPI.H
  $SPRS_INACTIVE    = 0
  $SPRS_ACTIVE  = 1
  $SGDSActive=$SPRS_ACTIVE
  $SGDSInactive=$SPRS_INACTIVE

  $Grammar = $RecoContext.CreateGrammar(1)
  $Grammar.Dictationload
 ;$Grammar.DictationSetState($SGDSActive)

; start dictation
  GUICtrlSetData ( $GUIEdit, "You have 5 seconds of speaking time.  So say something!", "append" )
  dim $strText = "You have 5 seconds of speaking time.  So say something!"
  dim $speak = ObjCreate("SAPI.SpVoice")
  $speak.Speak($strText)
  $Grammar.DictationSetState($SGDSActive)
  sleep(5000) 
  
; Stop dictation
  $Grammar.DictationSetState($SGDSInactive)

endif

  sleep (1000); Some events arrive late...

  GUICtrlSetData ( $GUIEdit, @CRLF & "End of dictation time." & @CRLF , "append" )
  GUICtrlSetData ( $GUIEdit, "You may close this window now !" & @CRLF , "append" )
  
; Waiting for user to close the window
  While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
  Wend

  GUIDelete ()

  exit
;--------------------
; SAPI Event functions

Func MYEvent_StartStream($StreamNumber, $StreamPosition)
 ;StreamNumber As Long,
 ;StreamPosition As Variant
  GUICtrlSetData ( $GUIEdit, "StartStream(): StreamNumber is:" & $StreamNumber & @CRLF  , "append" )
EndFunc

Func MYEvent_Hypothesis($StreamNumber,$StreamPosition,$Result)
 ;StreamNumber As Long,
 ;StreamPosition As Variant,
 ;Result As ISpeechRecoResult
  GUICtrlSetData ( $GUIEdit, "Hypothesis(): Hypothized text is: " & $Result.PhraseInfo.GetText & @CRLF  , "append" )
  if $Result.PhraseInfo.GetText = "desktop" then 
    dim $speak = ObjCreate("SAPI.SpVoice")
    $speak.Speak("You said.")
    $speak.Speak($Result.PhraseInfo.GetText)
   ;send("^d")
  endif
EndFunc

[monte]

up north gave me the answer! Thanks up north! Use Recognition instead of hypothesis.

Func MYEvent_Recognition($StreamNumber,$StreamPosition,$RecognitionType,$Result)
    if $Result.PhraseInfo.GetText = "desktop" then 
      dim $speak = ObjCreate("SAPI.SpVoice")
      $speak.Speak("You said.")
      $speak.Speak($Result.PhraseInfo.GetText)
      send("^d")
    endif
EndFunc

[ConsultingJoe]

does your Speech recognition lag on you and stop listening at all?

[seangriffin]

Here's a very very late reply

I've just created a SAPIListBox UDF that will allow an AutoIT script to respond to a spoken words / phrases from a predefined list of items. Click on this link to access the UDF.