Spracherkennung

#include<GUIEdit.au3>
#include<GUIConstants.au3>
Opt("GUIonEventMode",1)
GUICreate("test")
GUISetOnEvent(-3,"_EXIT")
$Edit = GUICtrlCreateEdit("",10,10,380,350)
$btnStart = GUICtrlCreateButton("Start",10,370,60,20)
GUICtrlSetOnEvent(-1,"_Start")
$btnStop = GUICtrlCreateButton("Stop",100,370,60,20)
GUICtrlSetOnEvent(-1,"_Stop")
GUICtrlSetState(-1,$GUI_DISABLE)
GUISetState()
#cs
'=============================================================================
' This sample demonstrates how to do simple dictation in VB with SAPI 5.1.
'
' It uses shared reco context object, uses the default audio input, loads in
' dictation grammar, sets up event handlers, and shows the recognized text in
' the dialog text box.
'
' Note: since the text box is using system locale, it may not correctly show
' characters in other languages. For example, if you use Chinese Speech
' Recognition engine as the default engine on your English OS, the text box
' may show garbage even though the engine recognizes Chinese.
'
' Copyright @ 2001 Microsoft Corporation All Rights Reserved.
'
'=============================================================================
#ce
$__COMERROR = ObjEvent("AutoIt.Error","_COMError")
Func _COMError()
MsgBox(32, "COM-Error", Hex($__COMERROR.number) & @CRLF & $__COMERROR.description)
EndFunc
Global Const $SGDSInactive = 0
Global Const $SGDSActive = 1
Global Const $SGDSActiveWithAutoPause = 3
Global $RecoContext ;ObjCreate("SAPI.SpSharedRecoContext")
;~ $RecoContext.VB_VarHelpID = -1
Global $Grammar ;As ISpeechRecoGrammar

Global $m_bRecoRunning ;As Boolean
Global $m_cChars = 0 ;As Integer

SetState(False)

While 1
Sleep(100)
WEnd
Func _Start()
If $m_bRecoRunning Then Return

;' Initialize recognition context object and grammar object, then
;' start dictation
If (Not IsObj($RecoContext)) Then
ConsoleWrite("Initializing SAPI reco context object..." & @CRLF)
$RecoContext = ObjCreate("SAPI.SpSharedRecoContext")
ObjEvent($RecoContext,"RecoContext_")
$Grammar = $RecoContext.CreateGrammar(1)
$Grammar.DictationSetState ( $SGDSInactive )
EndIf

$Grammar.DictationSetState ( $SGDSActive )
SetState(True)
ConsoleWrite("Recognition started" & @CRLF)
EndFunc
Func _EXIT()
_Stop()
Exit
EndFunc
Func _Stop()
If Not $m_bRecoRunning Then Return
$Grammar.DictationSetState ( $SGDSInactive ))
SetState(False)
ConsoleWrite("Recognition stopped" & @CRLF)
EndFunc

;~ ' This function handles Recognition event from the reco context object.
;~ ' Recognition event is fired when the speech recognition engines recognizes
;~ ' a sequences of words.
Func RecoContext_Recognition($StreamNumber , _
$StreamPosition , _
$RecognitionType , _
$Result _
)
Dim $strText
$strText = $Result.PhraseInfo.GetText
ConsoleWrite( "Recognition: " & $strText & ", " & _
$StreamNumber & ", " & $StreamPosition & @CRLF)

;~ ' Append the new text to the text box, and add a space at the end of the
;~ ' text so that it looks better
;~ $txtSpeech.SelStart = m_cChars
;~ $txtSpeech.SelText = strText & " "
_GUICtrlEdit_AppendText($Edit,$strText & " ")
;~ m_cChars = m_cChars + 1 + Len(strText)
EndFunc

;~ ' This function handles the state of Start and Stop buttons according to
;~ ' whether dictation is running.
Func SetState($bNewState )
$m_bRecoRunning = $bNewState
Local $Enabled[2] = [$GUI_DISABLE,$GUI_ENABLE]
GUICtrlSetState($btnStart,$Enabled[Not $m_bRecoRunning])
GUICtrlSetState($btnStop,$Enabled[$m_bRecoRunning])
EndFunc