长沙电脑维修-长沙电脑上门维修-笔记本维修-上门修显示器
滚动新闻:
  网站首页     维修业界     网络安全     硬件故障     软件故障     系统故障     硬件维修     系统安装     驱动下载     维修信息  
欢迎来到长沙电脑维修网,一个电话上门维修电脑 13347311093 0731-82917806 您的满意是我们进步的动力! 请您留言|设为首页|加入收藏
长沙电脑上门维修
您当前位置:网站首页 >> 维修业界 >> 新品推荐 >> 正文阅读

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


来源:长沙电脑维修 发布时间:2010-03-16 21:10:08 查看次数:

长沙监控安装

如果你机器本身装了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\Microsoft Speech 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.CmdLoadFromFile "x.xml", SLODynamic
Grammar.CmdSetRuleIdState 0, 1
MsgBox "你好,主人,请吩咐。"
'等候你的语音命令(需要安装麦克风)
'当识别出"命令结束"命令时程序结束
Do
WScript.Sleep 1000
Loop Until ScriptComplete
MsgBox "欢迎再跟我说话,再见!"
'你的语音命令被识别
Sub RecoContext_Recognition(ByVal StreamNumber,ByVal StreamPosition,ByVal RecognitionType,ByVal Result )
Text = Result.PhraseInfo.GetText '获取语音识别引擎所识别的命令
If Text <> "命令结束" Then
WshShell.Run CommandDictionary.Item(Text) '由WshShell对象Run方法执行你的命令
Else
ScriptComplete = true '程序结束标志
End If
End Sub

==================================
x.xml源码
复制代码 代码如下:
<?xml version="1.0" encoding="gb2312" ?>
<GRAMMAR LANGID="804">
<RULE NAME="命令" TOPLEVEL="ACTIVE">
<L>
<P>上网</P>
<P>计算器</P>
<P>记事本</P>
<P>空当接龙</P>
<P>命令结束</P>
</L>
</RULE>
</GRAMMAR>

========在中文的机器上直接运行这个vbs,很有可能出现0x80045052错误,解决办法:
控制面板---语音-语音认别选项卡------------》改成Microsoft Simplified Chinese

·上一条:三星将在2010年下半年推出平板电脑
·下一条:让全球笔记本电脑都成地震预警器
相关文章
·超轻量级薄本索尼X116KC/B仅售8999元 2010-05-11 13:43:10
·iPhone5即将亮相 但创新难突然 2011-10-05 20:00:11
·联想ideapad U150轻薄笔记本电脑 2010-05-07 01:34:35
·优派多款新品到货 精品礼物等你拿! 2011-05-29 18:40:21
·超高频中国玩家版 铭鑫GTS250U-1GBD3TC仅售799元 2010-02-24 01:24:09
·英特尔Ivy Bridge移动处理器详细 2011-12-08 02:04:57
·台电FI U盘荣获中关村“推荐产品奖” 2010-02-22 23:27:20
·平板电脑屏幕贴膜如何选择 2011-11-28 01:28:39
文章评论
现在有0人对本文发表评论 查看所有评论
同行交流
电脑维修公司
  最新文章
·家有监控,天下无贼-长沙宇翔智能家装
·继续改进Bug 影驰Laser SSD固件更新
·2012款MacBook Pro全曝光 暑期上市
·高端电脑配置首选 翔升GTX580金刚版
·采用Barts核心 蓝宝HD6850毒药版显卡
·英特尔Ivy Bridge移动处理器详细
·日立索尼提供4英寸iOS设备显示屏
·平板电脑屏幕贴膜如何选择
·华硕P9X79WS主板的详细介绍
·2011年显卡轻度盘点
·英特尔(Intel)发布新款CPU Core i7 2700K 主
·戴尔计划在2012年CES上发布超级笔记本
·iPhone5即将亮相 但创新难突然
·i3 i5 区别:酷睿i3 i5 i7的区别大全!
·优派多款新品到货 精品礼物等你拿!
苹果双系统安装
  热门文章
·几款在校学生比较喜欢的笔记本
·i3 i5 区别:酷睿i3 i5 i7的区别大全!
·经典外观实用至上 联想G455超值本图赏
·过年要看大片 高清大屏笔记本电脑推荐
·vbs 调用中文语音让你电脑听你的命令的实现
·CPU销量王!AMD X2 245该配啥内存?
·让全球笔记本电脑都成地震预警器
·苹果一体式电脑15200元
·三星将在2010年下半年推出平板电脑
·“慈星”电脑
·家有监控,天下无贼-长沙宇翔智能家装
·苹果今日推出了平板电脑iPad
·超高频中国玩家版 铭鑫GTS250U-1GBD3TC仅售
·联想Y460今抵杭 三月第三周本本报价
·混合“视”动力 联想G555 M320仅4999
关于我们 | 公司介绍 | 维修报价 | 免责声明 | 阅读须知 | 内容目录 | 湘ICP备16016646号-1
联系邮箱:270024428@qq.com 联系QQ:270024428
Copyright 2017, 长沙电脑维修网版权所有.