vbs 语音识别

CrLf

基本来自网上，但网上版本太多，也不知道哪个是原创的
有所精简和改进

1. Const SLODynamic = 0
   
2. 
   
3. Dim CommandDictionary '命令字典对象
   
4. Dim WshShell   'WshShell对象提供对本地Windows程序的访问。
   
5. Dim SR   '语音识别(Speech Recognition)对象
   
6. Dim Grammar '语音识别的命令语法对象
   
7. 
   
8. '初始化命令字典对象,可根据自己的需要添加命令而来
   
9. Set CommandDictionary = CreateObject("Scripting.Dictionary")
   
10. CommandDictionary.Add "计算器",   "calc"
    
11. CommandDictionary.Add "记事本",   "notepad"
    
12. CommandDictionary.Add "测试", "notepad ceshi.vbs"
    
13. CommandDictionary.Add "打开键盘", "osk"
    
14. 
    
15. Set WshShell = CreateObject("WScript.Shell") '创建WshShell对象
    
16. 
    
17. '创建语音识别对象,调用由"Command.XML"所定义的语法,并启动语音识别引擎
    
18. Set SR = WScript.CreateObject("SAPI.SpSharedRecoContext", "RecoContext_")
    
19. Set Grammar = SR.CreateGrammar
    
20. Grammar.Reset
    
21. Grammar.CmdLoadFromFile "COMMAND.XML", SLODynamic
    
22. Grammar.CmdSetRuleIdState 0, 1
    
23. 
    
24. Set objTTS = CreateObject( "SAPI.SpVoice" )
    
25. 
    
26. MsgBox "语音识别系统测试"
    
27. WScript.Sleep 100000000
    
28. 
    
29. '你的语音命令被识别
    
30. Sub RecoContext_Recognition(ByVal StreamNumber, ByVal StreamPosition, ByVal RecognitionType, ByVal Result )
    
31.         Text = Result.PhraseInfo.GetText     '获取语音识别引擎所识别的命令
    
32.        
    
33.         WScript.Sleep 1000
    
34.        
    
35.         Set fso=CreateObject("scripting.filesystemobject").opentextfile("记录.log",2)
    
36.         fso.write Text  & vbCrLf & "Text"
    
37.        
    
38.         If CommandDictionary.Exists(Text) Then
    
39.                 objTTS.Speak "正在打开" & Text
    
40.                 WshShell.Run CommandDictionary.Item(Text)
    
41.         End If
    
42.        
    
43.         If Text = "命令结束" Then
    
44.                 objTTS.Speak "命令结束,再见!"
    
45.                 WScript.Sleep 2000
    
46.                 Set objTTS = Nothing
    
47.                 WScript.Quit
    
48.         End If
    
49. End Sub

复制代码

COMMAND.XML 的内容如下：

1. <?xml version="1.0" encoding="gb2312" ?><GRAMMAR LANGID="804"><RULE NAME="命令" TOPLEVEL="ACTIVE"><L>
   
2. 
   
3. <P>计算器</P>
   
4. <P>记事本</P>
   
5. <P>打开键盘</P>
   
6. <P>命令结束</P>
   
7. 
   
8. </L></RULE></GRAMMAR>

复制代码

CrLf

微软 TTS 的识别率还是不够，而且会受内置的命令干扰，所以不是很实用
国内语音方面做得比较好的还属科大讯飞，杠杠的

9zhmke

微软 TTS 的识别率还是不够，而且会受内置的命令干扰，所以不是很实用
国内语音方面做得比较好的还属科大讯 ...
CrLf 发表于 2014-11-7 18:09

    有没办法调用讯飞的呢？

CrLf

没研究过，不知道，回头试下
手机上用得多，电脑的语音输入略显鸡肋