Have fun with the SKYPE Connector and Voice Recognition
Here is a new version 1.27.2.4 of the SKYPE Connector Plugin
Change log:
SAPI Voice Recognition.
New IVR API
- SkypeCall.StartVoiceRecognition( wordStringArray as string() )
Pass an array of words to be recognized. Once a word is recognized, the HearWord() callback subroutine is called in your IVR script
- SkypeCall.StopVoiceRecognition()
Stop the voice recognition
- SkypeCall.LastWordRecognized as string
This is the last word recognized.
Sample script:
The following script is available in your HomeSeer 2\Scripts directory as skype_voicemenu.vb To try it, you can enter skype_voicemenu.vb in the Incoming Call Script textbox in the Settings tab of the plugin configuration.
Please send me feedback on this new feature !
Change log:
SAPI Voice Recognition.
New IVR API
- SkypeCall.StartVoiceRecognition( wordStringArray as string() )
Pass an array of words to be recognized. Once a word is recognized, the HearWord() callback subroutine is called in your IVR script
- SkypeCall.StopVoiceRecognition()
Stop the voice recognition
- SkypeCall.LastWordRecognized as string
This is the last word recognized.
Sample script:
The following script is available in your HomeSeer 2\Scripts directory as skype_voicemenu.vb To try it, you can enter skype_voicemenu.vb in the Incoming Call Script textbox in the Settings tab of the plugin configuration.
Code:
[SIZE=2]Imports HSPI_SKYPE[/SIZE]
[SIZE=2]' ----------------------------------------------------------------
' Init CALLBACK
' Gets called when ExecScript("xxx") is executed
' from another script.
' ----------------------------------------------------------------[/SIZE]
[SIZE=2]Sub Init( ByVal c as SkypeCall )
End Sub[/SIZE]
[SIZE=2]
' -----------------------------------------------------------------------
' INCOMINGCALL CALLBACK
' Accept call.
' -----------------------------------------------------------------------[/SIZE]
[SIZE=2]Sub IncomingCall( ByVal newCall as SkypeCall )
newCall.Accept()
End Sub[/SIZE]
[SIZE=2]
' -----------------------------------------------------------------------
' RINGING CALLBACK
' Gets called when the call has been accepted
' Answers the call after the selected number of rings occured
' -----------------------------------------------------------------------[/SIZE]
[SIZE=2]Sub Ringing( ByVal newCall as SkypeCall )
newCall.Answer()
End Sub[/SIZE]
[SIZE=2]
' ----------------------------------------------------------------
' CallConnected CALLBACK
' Speak a Welcome Message, and start voice recognition
' ----------------------------------------------------------------[/SIZE]
[SIZE=2]Sub CallConnected( ByVal c as SkypeCall )[/SIZE]
[SIZE=2] c.SpeakText( "Please Say fruit, transport, or hangup" )
c.StartVoiceRecognition( new string() {"fruit","transport", "hangup"} )[/SIZE]
[SIZE=2]End Sub[/SIZE]
[SIZE=2]
' ----------------------------------------------------------------
' HeardWord CALLBACK
' ----------------------------------------------------------------[/SIZE]
[SIZE=2]Sub HeardWord( ByVal c as SkypeCall )[/SIZE]
[SIZE=2] c.SpeakTextWait( "You said " & c.LastWordRecognized )[/SIZE]
[SIZE=2] If c.LastWordRecognized = "hangup" Then[/SIZE]
[SIZE=2] c.Hangup()[/SIZE]
[SIZE=2] ElseIf c.LastWordRecognized = "fruit" Then[/SIZE]
[SIZE=2] c.SpeakTextWait( "Please Say banana, orange or apple" )
c.StartVoiceRecognition( new string() {"banana","orange","apple","hangup"} )[/SIZE]
[SIZE=2] ElseIf c.LastWordRecognized = "transport" Then[/SIZE]
[SIZE=2] c.SpeakTextWait( "Please Say car, train or helicopter" )
c.StartVoiceRecognition( new string() {"car","train","helicopter","hangup"} )[/SIZE]
[SIZE=2] End If[/SIZE]
[SIZE=2]End Sub[/SIZE]
[SIZE=2]
' ----------------------------------------------------------------
' Timeout CALLBACK
' ----------------------------------------------------------------[/SIZE]
[SIZE=2]Sub Timeout( ByVal c as SkypeCall )
End Sub[/SIZE]
[SIZE=2][/SIZE]
[SIZE=2]' -----------------------------------------------------------------------
' CALL HUNGUP CALLBACK
' -----------------------------------------------------------------------[/SIZE]
[SIZE=2]Sub CallHungup( ByVal c as SkypeCall )
End Sub[/SIZE]
[SIZE=2]
' ----------------------------------------------------------------
' HeardDTMF CALLBACK
' ----------------------------------------------------------------[/SIZE]
[SIZE=2]Sub HeardDTMF( ByVal c as SkypeCall )
End Sub[/SIZE]
[SIZE=2]
[/SIZE]
Please send me feedback on this new feature !
Comment