microsoft agent 语音识别的实现?

知之者讨论一二,网上看到的都是如下编写方法:

Private Sub Command3_Click()
Static initialized As Boolean
'添加自定义命令
If Not initialized Then
Merlin.Commands.Add "one", "one", "one", True, True
Merlin.Commands.Add "Word", "Run", "word", True, True
Merlin.Commands.Add "Time", "time", "time", True, True
Merlin.Commands.Add "Bigger", "Bigger", "Bigger", True, True
Merlin.Commands.Add "Smaller", "Smaller", "Smaller", True, True
initialized = True
End If
Merlin.Show
End Sub

Private Sub MyAgent_Command(ByVal UserInput As Object)
Select Case UserInput.Name
Case "one"
MsgBox "1"
Case "Time"
'当听到"What time is it?"后回答当前时间
Merlin.Speak "The time is " & Time
Case "Word"
'当听到"word"后，便运行MS Word
Merlin.Speak "Yes,sir!"
Shell "d:\winword\winword.exe", vbNormalFocus
Case "Bigger"
'当听到"bigger"后，Genie会放大
Merlin.Width = Merlin.Width * 1.5
Merlin.Height = Merlin.Height * 1.5
Case "Smaller"
'当听到"samller"后，Genie会缩小
Merlin.Width = Merlin.Width / 1.5
Merlin.Height = Merlin.Height / 1.5
End Select
End Sub

运行后,按住键盘"Scroll Lock"键,(这里我不明白,是一直按着,还是点亮指示灯即可?)
然后对着麦克风说"Bigger",程序就会执行我们预置好的指令,这里是放大人物尺寸......

但是我我发现"Select Case UserInput.Name"似乎有问题,为什么是Name而不是Voice?

而且识别率超低,我偶尔测试成功了"Bigger"语音指令,但是好象很多时候是识别不了的,人物就是
侧着耳朵来听我发音,可是我发音后,它依旧没反应,苦恼啊

有人感兴趣的,请跟帖聊聊语音识别技术......

[培训]科锐逆向工程师培训第53期2025年7月8日开班！