网上找到的VB语音识别程序

最新推荐文章于 2021-03-27 10:46:26 发布

原创最新推荐文章于 2021-03-27 10:46:26 发布 · 4.8k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#vb #shell #bt #音乐 #c

VB 专栏收录该内容

4 篇文章

订阅专栏

本文介绍了一个使用语音识别技术实现的简单命令响应系统。该系统能够识别特定的语音指令并执行相应的操作，如打开浏览器、启动应用程序等。通过加载预定义的命令文件，系统能够灵活地扩展新的命令。

Option Explicit
Public WithEvents RC As SpSharedRecoContext
Public myGrammar As ISpeechRecoGrammar

Private Sub Form_Load()
    Set RC = New SpSharedRecoContext
    Set myGrammar = RC.CreateGrammar
    'RC.Voice.GetVoices

    myGrammar.CmdLoadFromFile App.Path & "/command.xml", SLODynamic
    myGrammar.DictationSetState SGDSActive
End Sub

Private Sub RC_Recognition(ByVal StreamNumber As Long, ByVal StreamPosition As Variant, ByVal RecognitionType As SpeechLib.SpeechRecognitionType, ByVal Result As SpeechLib.ISpeechRecoResult)
    Select Case Result.PhraseInfo.GetText
    Case "上网"
        Shell "C:/Program Files/Internet Explorer/IEXPLORE.EXE"
    Case "开始"
        Shell "D:/Program Files/Tencent/QQ/QQ.exe"
    Case "音乐"
        Shell "D:/Program Files/TTPlayer/TTPlayer.exe"
    Case "下载"
        Shell "D:/Program Files/Thunder Network/Thunder/Thunder.exe"
    Case "BT下载"
        Shell "D:/Program Files/BitComet/BitComet.exe"
    'Case "重启"

    'Case "关机"

    Case Else
        MsgBox "听不懂你说什么" & Result.PhraseInfo.GetText & "，再说一遍！"
    End Select
End Sub