vbs语音（VBS speech）.doc

vbs语音（VBS speech） VBS voice program computer enthusiasts , Monday, December 17, 22007, 15:32, control program Here is the implementation code, very simple, and use Notepad to enter and save it into CommandPC.VBS: ========================================================================== Name: CommandPC.VBS AUTHOR: HUAYING DATE: 2005-1-31 ========================================================================== Dim CommandDictionary command dictionary object The Dim WshShellWshShell object provides access to the local Windows program. Dim ScriptComplete program end flag Dim SR Recognition (Speech) object Dim Grammar command syntax object for speech recognition Initialization command dictionary object, you can add commands according to your own needs Set CommandDictionary = CreateObject (Scripting.Dictionary) CommandDictionary.Add Internet, C:\Program, Files\Mozilla, Firefox\firefox.exe , pay attention to the number of double quotes CommandDictionary.Add calculator, calc CommandDictionary.Add NOTEPAD, Notepad CommandDictionary.Add Solitaire, freecell Set WshShell = CreateObject (WScript.Shell) creates a WshShell object ScriptComplete = False initializes the end of program flag Create a speech recognition object, call the syntax defined by Command.XML , and start the voice recognition engine Set SR = WScript.CreateObject (SAPI.SpSharedRecoContext, RecoContext_) Set Grammar = SR.CreateGrammar Grammar.CmdLoadFromFile COMMAND.XML, SLODynamic Grammar.CmdSetRuleIdState 0, 1 MsgBox Hello, master, please tell me.. Wait for your voice command (you need to install the microphone). When the command is declared end , the program is finished Do WScript.Sleep 1000 Loop Until ScriptComplete MsgBox welcome to talk to me again, bye.! your voice command is recognized Sub, RecoContext_Recognition (ByVal, StreamNumber, ByVal, StreamPosition, ByVal, RecognitionType, ByVal, Result) Text = Result.PhraseInfo.GetText gets the command identified by the voice recognition engine If Text