如果你機(jī)器本身裝了office的話，可能不需要裝以下軟件，我機(jī)器由于裝的是openoffice，所以我提前裝了
speechsdk51.exe
CNSpeechPackage.msi
這兩個(gè)軟件。如果讓電腦朗讀，參考下面的代碼
復(fù)制代碼 代碼如下:
ReadAllTextFile=CreateObject("Scripting.FileSystemObject").OpenTextFile(Wscript.Arguments(0), 1).ReadAll
Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches ' 建立變量。
Set regEx = New RegExp ' 建立正則表達(dá)式。
regEx.Pattern = patrn ' 設(shè)置模式。
regEx.IgnoreCase = True ' 設(shè)置是否區(qū)分大小寫。
regEx.Global = True ' 設(shè)置全程可用性。
Set Matches = regEx.Execute(strng) ' 執(zhí)行搜索。
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這個(gè)文件。
如果讓電腦聽你的命令，下邊是vbs代碼
復(fù)制代碼 代碼如下:
'==========================================================================
' Name : CommandPC.VBS
' AUTHOR : HUAYING
' DATE : 2005-1-31
'==========================================================================
Dim CommandDictionary '命令字典對(duì)象
Dim WshShell 'WshShell對(duì)象提供對(duì)本地Windows程序的訪問。
Dim ScriptComplete '程序結(jié)束標(biāo)志
Dim SR '語(yǔ)音識(shí)別(Speech Recognition)對(duì)象
Dim Grammar '語(yǔ)音識(shí)別的命令語(yǔ)法對(duì)象
'初始化命令字典對(duì)象，可根據(jù)自己的需要添加命令
Set CommandDictionary = CreateObject("Scripting.Dictionary")
CommandDictionary.Add "上網(wǎng)","""C:\Program Files\Internet Explorer\iexplore.exe""" '注意雙引號(hào)的數(shù)目
CommandDictionary.Add "計(jì)算器", "calc"
CommandDictionary.Add "記事本", "notepad"
CommandDictionary.Add "空當(dāng)接龍", "freecell"
Set WshShell = CreateObject("WScript.Shell") '創(chuàng)建WshShell對(duì)象
ScriptComplete = False '初始化程序結(jié)束標(biāo)志
'創(chuàng)建語(yǔ)音識(shí)別對(duì)象，調(diào)用由"Command.XML"所定義的語(yǔ)法，并啟動(dòng)語(yǔ)音識(shí)別引擎
Set SR = WScript.CreateObject("SAPI.SpSharedRecoContext", "RecoContext_")
Set Grammar = SR.CreateGrammar
Grammar.CmdLoadFromFile "x.xml", SLODynamic
Grammar.CmdSetRuleIdState 0, 1
MsgBox "你好，主人，請(qǐng)吩咐。"
'等候你的語(yǔ)音命令(需要安裝麥克風(fēng))
'當(dāng)識(shí)別出"命令結(jié)束"命令時(shí)程序結(jié)束
Do
WScript.Sleep 1000
Loop Until ScriptComplete
MsgBox "歡迎再跟我說(shuō)話，再見！"
'你的語(yǔ)音命令被識(shí)別
Sub RecoContext_Recognition(ByVal StreamNumber,ByVal StreamPosition,ByVal RecognitionType,ByVal Result )
Text = Result.PhraseInfo.GetText '獲取語(yǔ)音識(shí)別引擎所識(shí)別的命令
If Text > "命令結(jié)束" Then
WshShell.Run CommandDictionary.Item(Text) '由WshShell對(duì)象Run方法執(zhí)行你的命令
Else
ScriptComplete = true '程序結(jié)束標(biāo)志
End If
End Sub
==================================
x.xml源碼
復(fù)制代碼 代碼如下:
?xml version="1.0" encoding="gb2312" ?>
GRAMMAR LANGID="804">
RULE NAME="命令" TOPLEVEL="ACTIVE">
L>
P>上網(wǎng)/P>
P>計(jì)算器/P>
P>記事本/P>
P>空當(dāng)接龍/P>
P>命令結(jié)束/P>
/L>
/RULE>
/GRAMMAR>
========在中文的機(jī)器上直接運(yùn)行這個(gè)vbs，很有可能出現(xiàn)0x80045052錯(cuò)誤，解決辦法：
控制面板---語(yǔ)音-語(yǔ)音認(rèn)別選項(xiàng)卡------------》改成Microsoft Simplified Chinese
您可能感興趣的文章:- 48個(gè)英語(yǔ)音標(biāo)表-附一個(gè)flash實(shí)現(xiàn)的音標(biāo)的讀音
- Lingoes 靈格斯詞霸+真人語(yǔ)音補(bǔ)丁 下載
- 語(yǔ)音讀單詞或句子的批處理
- C# 語(yǔ)音功能的實(shí)現(xiàn)方法
- 如何應(yīng)用C#實(shí)現(xiàn)UDP的分包組包
- android預(yù)置默認(rèn)的語(yǔ)音信箱號(hào)碼具體實(shí)現(xiàn)
- python在命令行下使用google翻譯(帶語(yǔ)音)
- 用Python編程實(shí)現(xiàn)語(yǔ)音控制電腦
- C#中使用UDP通信實(shí)例
- C#基于UDP進(jìn)行異步通信的方法
- C#中調(diào)用SAPI實(shí)現(xiàn)語(yǔ)音識(shí)別的2種方法
- C#中調(diào)用SAPI實(shí)現(xiàn)語(yǔ)音合成的2種方法
- Android實(shí)現(xiàn)語(yǔ)音識(shí)別代碼
- IOS開發(fā)第三方語(yǔ)音-微信語(yǔ)音
- C#實(shí)現(xiàn)語(yǔ)音視頻錄制-附demo源碼
- C#基于UDP實(shí)現(xiàn)的P2P語(yǔ)音聊天工具
