Prøv følgende:
- I Vb indsætter du komponenten der hedder Microsoft Direct Speech
Recognition.
- Skriv følgende:
Private Sub Form_Load()
Dim g As String
g = "[Grammer]" & vbCrLf & vbCrLf _
& "Type=Cfg" & vbCrLf & vbCrLf _
& "[<Start>]" & vbCrLf _
& "<Start>=Notepad" & vbCrLf _ ' Her er de ord den skal "høre" efter:
Notepad, Exit
& "<Start>=Exit" & vbCrLf
With DirectSR1
.Deactivate
.GrammarFromString g
.Activate
End With
End Sub
Private Sub DirectSR1_PhraseFinish(ByVal flags As Long, ByVal beginhi As
Long, ByVal beginlo As Long, ByVal endhi As Long, ByVal endlo As Long, ByVal
Phrase As String, ByVal parsed As String, ByVal results As Long)
Me.Caption = "Du sagde: " & Phrase
Select Case LCase(Phrase)
Case "notepad"
Shell "C:\Windows\Notepad.exe", vbNormalFocus
Case "exit"
SendKeys "%{F4}"
Case Else
Me.Caption = "Ukendt kommando!"
End Select
End Sub
Det skulle virke...
Prøv eventuelt at downloade programmet Speech Recognition på
www.planet-source-code.com
- Bjarke Walling
Rambo <cfs4636@vip.cybercity.dk> skrev i en
nyhedsmeddelelse:9d8qif$2s7c$1@news.cybercity.dk...
> Jeg har lige hentet Speech SDK'en fra MS, men jeg ved ikke helt hvad jeg
> skal gøre, jeg troede det var sådan at man kunne bruge den til at forså
ord
> man sagde og så programmere sit program til at udføre en handlign, men jeg
> aner ikke hvad jeg skal gøre?
>
> Thomas
>
>