VBS calls the Chinese voice to let your computer listen to your commands implementation code(国外英文资料).docVIP

VBS calls the Chinese voice to let your computer listen to your commands implementation code(国外英文资料) VBS calls the Chinese voice to let your computer listen to your commands implementation code For the VBS to call the Chinese voice and let your computer listen to your commands, you need your friends to refer to it. If you have office installed, you may not need to install the following software. I installed it because of openoffice Exe speechsdk51. CNSpeechPackage. Msi These two pieces of software. If you let the computer read, refer to the code below ReadAllTextFile = CreateObject ( Scripting. FileSystemObject ).opentextfile (Wscript. Arguments (0), 1).readall The Function RegExpTest (patrn STRNG) Dim regEx, Match, Matches creates variables. Set regEx = New RegExp builds regular expressions. The regEx. Pattern = patrn setting mode. The regEx. IgnoreCase = True setting is case sensitive. The regex.global = True setting is all available. Set Matches = regEx. Execute (STRNG). For Each Match in Matches. RetStr = RetStr Match. RetStr = RetStr vbCRLF Next RegExpTest = RetStr End the Function Set objVoice = CreateObject ( SAPI. SpVoice ) Set objVoice. Voice = objVoice. GetVoices ( Name = Microsoft Simplified Chinese ).item (0) ObjVoice. Rate = 3 speed: -10, 10, 0 Objvoice.volume = 100 voice: 0, 100, 100 ObjVoice. Speak RegExpTest ( [\ u4e00 - \ u9fa5] , ReadAllTextFile) You can refer to it after you have finished loading your paper C: \ Program Files \ MicrosoftSpeech SDK 5.1 \ Samples \ Scripts \ SimpleTTS \ SimpleTTS.html file. If you let the computer listen to your commands, heres the VBS code = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = Name: commandpc-vbs the AUTHOR: HUAYING DATE: 2005-1-31 = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = Dim CommandDictionary comma