使用VBS将文字变成语音.doc

使用VBS将文字变成语音以下的方法是我转载的，如果SE也支持VBS或JS也能实现这个功能，而且还可以实现在SE中对Excel文件进行读写。希望老董让我们在SE上也能实现。在最后实现的语音中，VBS可以读你输入的英语和汉字。quote按鍵精靈發出聲音的第6種方法：讓您的腳本開口講英文和中文使用按鍵精靈讓電腦發出聲音的方法有很多種方法1：使用按鍵精靈內建指令引用:Beep方法2：透過 Win32 API 設定 Beep 頻率和聲調。引用:參考我這篇文章：控制PC Speaker唱小蜜蜂註：透過調用API方式其實也可以播放聲音檔，設定上比較麻煩，在此不另外介紹。方法3：使用檔案關聯，直接播放一個聲音檔引用:VBSCall RunApp(C:WINDOWSMediaringin.wav)方法4：透過Shell的方式，使用特定的播放程式播放聲音引用:VBS strSoundFile = C:WindowsMediaNotify.wavVBS Set objShell = CreateObject(Wscript.Shell)VBS strCommand = sndrec32 /play /close & chr(34) & strSoundFile & chr(34)VBS objShell.Run strCommand, 0, True參考這篇文章：在脚本中播放声音的方法（详解）方法5：自己寫個播放聲音插件引用:參考這篇文章：QMBoost插件发布：增加 播放声音、获取键盘鼠标按键状态、剪贴板文本等功能上面幾種方式其實就已經含概了大部份播放聲音的部份，如果想換個口味想讓電腦播放語音，也就是運行腳本時，想讓腳本說話提示您遇到某種狀況該怎麼做?目前語音其實在電腦應用上還蠻廣的，比較知名的有幾家公司的語音技術。Microsoft TTSIBM ViaVoiceNEC SmartVoice我以微軟公司的 TTS (Text-to-Speech Engine)來做一個範例。(不是我偏愛 M$ 技術，實在是有些比較通用的技術，微軟都會用內建、免費這種策略 .，等羊長大了再來宰)Windows本身就是個大寶庫，其中文字轉語音這部份，Windows其實就已經有內建，我們只要把他調出用就可以。方法6：調用 Microsoft Speech Object Library 讓腳本講話。引用:/Create Objectset voice = createobject(SAPI.SpVoice)/主程式Rem Main Gosub FindLover Delay 2000 Gosub FindGM Delay 2000 Gosub FindMonster Delay 2000 Gosub AttackEndScript/副程式/發現男女朋友Sub FindLover voice.Speak I Love youReturn FindLover/發現GMSub FindGM voice.Speak Warring WarringReturn FindGM/找到怪物Sub FindMonster voice.Speak Find MonsterReturn FindMonster/攻擊Sub Attack voice.Speak fireReturn Attack很簡單吧!Windows 內建的TTS是英文版的套件，另外微軟有提供德語及法語版的語音套件，有興趣的可以去瞧瞧。(用腳本講法文有比較帥嗎? )Microsoft Text-to-Speech Package Downloadurl/reader/developers/downloads/tts.asp/url微軟語音技術大本營url/reader/default.asp/url我知道上面一定不能滿足充滿好奇心的您，想講中文或是其它的語音庫怎麼辦.其實語音這部份技術還蠻深的，我也並不是研究這個領域的專家，但還是有一些現成的方法可以學習。Microsoft Speech Object Library 其中物件庫、屬性或方多達上百個，以上例可以設定語音速率(rate)或是調整語音輸出的聲音大小(Volume)，我並不希望把範例寫的很複雜，使您在第一次接觸時就覺得艱澀難懂。進階的用戶可以參考完整的 SDK 說明Microsoft Speech SDK 5.1若想在按鍵精靈中可以說中文，必須先下載 SDK 提供的其它語音庫套件。SpeechSDK51.exe (先安裝)SpeechSDK51LangPack.exe (再安裝)看一下按精腳本(必須先安裝上面二個語音庫套件)引用:/Create Objectset voice = createobject(SAPI.SpVoice)Set voice.voice = voice.GetVoices.Item(3)/主程式Rem Main Gosub FindLover Delay 2000 Gosub FindGM Delay 2000 Gosub FindMonster Delay 2000 Gosub AttackEndScript/副程式/發現男女朋友Sub FindLover voice.Speak 我愛你Return FindLover/發現GMSub FindGM voice.Speak 警告 有管理員Return FindGM/找到怪物Sub FindMonster voice.Speak 找到怪物Return FindMonster/攻擊Sub Attack voice.Speak 上啊 兄弟們Return Attack哈哈 字正腔圓的北京調附註說明：引用:Set voice.voice = voice.GetVoices.Item(3)3 是 Microsoft Simplified Chinese，只能讀取簡體中文按鍵精靈的編輯器不能同時顯示簡體字和繁體字，而語音庫也只認得簡體字形，若輸入繁體中文，voice.Speak 輸出時不認得的中文字就不會發出語音，可能要自己寫個繁體字串轉簡體字串的副程式再輸出給 voice.Speak 發音，這部份我有比較好的方法我再補上來。另外語音庫還可以設 0 (英文 Sam 男音)， 1 (英文 Mike 男音)， 2 (英文 Mary 女音)， 3 (中文 男音)其它進階設定，想深入研究，請下載完整 SDK 說明/quotei 本帖最后由 playgon 于 2008-1-10 20:30 编辑 /i魔法苹果发表于 2008-1-10 22:37好矛盾啊！SE强大了吧大家用着舒服，但是过于强大了会遭屏蔽的:Qloo000ool发表于 2008-1-10 22:39其实，上面整个引用的核心就是增加一个控件，可以直接调用color=Blue Win API/color不一定需要 VBSi 本帖最后由 loo000ool 于 2008-1-10 22:40 编辑 /idxqsoft发表于 2008-1-10 23:11正在考虑怎么加VBS支持loo000ool发表于 2008-1-10 23:13还是不要增加太多额外东西的好:Lloo000ool发表于 2008-1-10 23:13东西多了，不利于自身的发展。playgon发表于 2008-1-11 08:47不明白loo000ool为什么说东西多了，不利于自身的发展。请讲个理由，是怕屏蔽？如果是为了防止被游戏屏蔽，增加VBS支持与这有什么直接关系？这个例子我举的只是其中之一，利用VBS可以实现比这还要有用的功能。Windows Api 对，这东西我也会用，你不举得使用不方便吗？你每天能把2个小时以上用到电脑编程上固然没问题，关键是大多数人做不到。像你这种编程高手，自己都能编个外挂，可大多数人不是。而且大多数人也没有那么多时间和精力来编复杂的程序。国内用户的情况，你先得搞清楚。据说95的人用VB编程，这我没调查过，不过，大多数人用VB是肯定的，就是不用VB编程，也有不少人会Vbscript戓VBA。xedcx发表于 2008-1-11 08:48楼上说的有道理，我们SE需要的是比较实在的，有用的插件对于语音，我感觉有点花俏了，实际意义不大。loo000ool发表于 2008-1-12 02:33非常抱歉playgon，我决无针对你的意思 :L首先声明一点，我不是编程高手:( ，我是一个金融部门工作的职员，所有这些都是业务爱好，因为喜欢，所以多涉猎了一些，但离高手还有很长的距离，也不打算成为高手:funk: （没时间啊）我喜欢SE，是因为她的结构更适合我的编程习惯，其实论功能的复杂性，按键更适合。如果有一定的编程经验，SE将是很好的选择。vbs功能非常强大，我是怕vbs掩盖了SE的光彩（老大别打我:D ），而且非se本身的功能太多，有喧宾夺主之嫌，也容易步入按键被封杀之后尘，我担心啊。再次抱歉，有机会一起探讨:handshake魔法苹果发表于 2008-1-12 14:35封杀是最痛苦的:lol就担心这点:( :( :(playgon发表于 2008-1-12 20:09没关系，loo000ool，咱们只是针对事。感觉你这个人很实在，以后我们一起多探讨。我以前用按键的，是按键的注册用户，当然也是SE的注册用户。我支持国产软件，希望他们做的更好，所以有什么想法也都提出来，倒不是挑刺，只是讨论。被游戏封杀是我们大家都担心的事，除非SE不要使功能强大，不让更多的人知道，不然一旦被大规模用于游戏上，还是会被封杀的。这一点也是我们无奈而忿忿的。不知老董有没有什么好办法。SE做大做强，让更多人认可，麻烦就会来。要么就开发个纯执行器，以一定的价格限量发售。不过话说回来，使用SE来玩游戏是对未用的人不公平:lol 。SE简洁高效，其实用于日常的应用就已经非常好了。dxqsoft发表于 2008-1-27 14:17刚刚发布