UC知道VBS格式文件编程，菜鸟高手都来帮帮忙！
来源：百度知道 编辑：UC知道 时间：2024/05/08 16:24:50
电脑爱好者上的一篇文章，说可以用语音识别命令电脑做事，程序如下
'==========================================================================
' Name : CommmandPC.VBS
' AUTHOR : Knight K
' DATE : 2006-1-14
'==========================================================================
Dim CommandDictionary '命令字典对象
Dim WshShell 'WshShell对象提供对本地Windows程序的访问。
Dim ScriptComplete '程序结束标志
Dim SR '语音识别(Speech Recognition)对象
Dim Grammar '语音识别的命令语法对象
'初始化命令字典对象,可根据自己的需要添加命令
Set CommandDictionary = CreateObject("Scripting.Dictionary")
CommandDictionary.Add "上网", """F:\gridgame.swf""" '注意双引号的数目
CommandDictionary.Add "计算器", "calc"
CommandDictionary.Add "记事本", "notepad"
CommandDictionary.Add "圣诞祝福", """F:\我的文档\Christmas wishing.doc"""
Set
'==========================================================================
' Name : CommmandPC.VBS
' AUTHOR : Knight K
' DATE : 2006-1-14
'==========================================================================
Dim CommandDictionary '命令字典对象
Dim WshShell 'WshShell对象提供对本地Windows程序的访问。
Dim ScriptComplete '程序结束标志
Dim SR '语音识别(Speech Recognition)对象
Dim Grammar '语音识别的命令语法对象
'初始化命令字典对象,可根据自己的需要添加命令
Set CommandDictionary = CreateObject("Scripting.Dictionary")
CommandDictionary.Add "上网", """F:\gridgame.swf""" '注意双引号的数目
CommandDictionary.Add "计算器", "calc"
CommandDictionary.Add "记事本", "notepad"
CommandDictionary.Add "圣诞祝福", """F:\我的文档\Christmas wishing.doc"""
Set
CommandDictionary.Add "记事本", "notepad"
CommandDictionary.Add "圣诞祝福", """F:\我的文档\Christmas wishing.doc"""
...
CommandDictionary.Add "你想添加的语音命令","该语音命令所执行的命令"
'语音命令按这种格式添加
<?xml version="1.0" encoding="gb2312" ?>
<GRAMMAR LANGID="804">
<RULE NAME="命令" TOPLEVEL="ACTIVE">
<L>
<P>上网</P>
<P>计算器</P>
<P>记事本</P>
<P>空当接龙</P>
<P>命令结束</P>
<P>你想添加的命令</P>
</L>
</RULE>
</GRAMMAR>
这里也要加