vbs 調用中文語音讓你電腦聽你的命令的實現代碼

2019-10-26 18:03:22

字體：大中小

來源：轉載

供稿：網友

如果你機器本身裝了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

上一篇：vbs 合并多個excel文件的腳本

下一篇：獲取主機名的vbs（cmdlib.wsc）

發表評論

共有條評論