VBScript不能識別Speak命令？

Question

我需要幫助。我正在嘗試使用批次來製作個人助理，爲了達到這個效果，我希望我的電腦能夠發言。我之前甚至在這臺計算機上都使用過演講代碼，但由於某種原因，現在我嘗試使用演講命令時，它似乎不起作用。下面是我通常使用的代碼：我不知道發生了什麼

Set objVoice=CreateObject("SAPI.SpVoice") 
objVoice.Speak("Insert Message Here") 

，但是當我運行該腳本，我得到這個錯誤：

行：2

字符：1

錯誤：句柄無效。

代碼89970006

源（空）

請幫我解決這個錯誤。提前致謝。 順便說一句，我確實有Speech API，並且我在控制面板中的語音轉換工作。它似乎是.vbs文件。

Answer 1

試試這個：

Set Speak = CreateObject("sapi.spvoice") 

Speak.Speak "Text Goes Here" 

，或者，如果你想擁有它說你輸入你可以做這個事情，

Dim Message, Speak 
Set Speak=CreateObject("sapi.spvoice") 

Message=InputBox("Enter text","Speak") 
Speak.Speak Message