vbs 调用中文语音让你电脑听你命令实现代码.doc

vbs 调用中文语音让你电脑听你命令实现代码 vbs 调用中文语音让你电脑听你的命令的实现代码 关于vbs调用中文语音让你电脑听你的命令的实现代码，需要的朋友可以参考下。 如果你机器本身装了office的话，可能不需要装以下软件，我机器由于装的是openoffice，所以我提前装了 speechsdk51.exe CNSpeechPackage.msi 这两个软件。如果让电脑朗读，参考下面的代码 ReadAllTextFile=CreateObject(Scripting.FileSystemObject).OpenTextFile(Wscript.Arguments(0), 1).ReadAll Function RegExpTest(patrn,strng) Dim regEx, Match, Matches 建立变量。 Set regEx = New RegExp 建立正则表达式。 regEx.Pattern = patrn 设置模式。 regEx.IgnoreCase = True 设置是否区分大小写。 regEx.Global = True 设置全程可用性。 Set Matches = regEx.Execute(strng) 执行搜索。 For Each Match in Matches 遍历 Matches 集合。 RetStr = RetStr Match.value RetStr = RetStr vbCRLF Next RegExpTest = RetStr End Function Set objVoice = CreateObject(SAPI.SpVoice) Set objVoice.Voice = objVoice.GetVoices(Name=Microsoft Simplified Chinese).Item(0) objVoice.Rate = 3 速度:-10,10 0 objVoice.Volume = 100 声音:0,100 100 objVoice.Speak RegExpTest([\u4e00-\u9fa5], ReadAllTextFile) 或是装完speechsdk51.exe之后可以参考 C:\Program Files\MicrosoftSpeech SDK 5.1\Samples\Scripts\SimpleTTS\SimpleTTS.html这个文件。 如果让电脑听你的命令，下边是vbs代码 ========================================================================== Name : CommandPC.VBS AUTHOR : HUAYING DATE : 2005-1-31 ========================================================================== Dim CommandDictionary 命令字典对象 Dim WshShell WshShell对象提供对本地Windows程序的访问。 Dim ScriptComplete 程序结束标志 Dim SR 语音识别(Speech Recognition)对象 Dim Grammar 语音识别的命令语法对象 初始化命令字典对象，可根据自己的需要添加命令 Set CommandDictionary = CreateObject(Scripting.Dictionary) CommandDictionary.Add 上网,C:\Program Files\Internet Explorer\iexplore.exe 注意双引号的数目 CommandDictionary.Add 计算器, calc CommandDictionary.Add 记事本, notepad CommandDictionary.Add 空当接龙, freecell Set WshShell = CreateObject(WScript.Shell) 创建WshShell对象 ScriptComplete = False 初始化程序结束标志 创建语音识别对象，调用由Command.XML所定义的语法，并启动语音识别引擎 Set SR = WScript.CreateObject(SAPI.SpSharedRecoContext,RecoContext_) Set Grammar = SR.CreateGrammar Grammar.CmdLoadFromFilex.xml, SLODynamic Grammar.CmdSetRuleIdState 0, 1 MsgBox 你好，主人