代碼中發生錯誤800A0401說文字

Question

我收到錯誤800A0401。

Dim message.Sapi 
message=InputBox("enter the text to b 

spoken!","#speakup!") 
set Sapi = Create Object("SAPI.Spvoice") 
Sapi.speak message 

我用這段代碼給我講了一些文字。

Answer 1

Dim message, sapi 
message=InputBox("enter the text to be spoken!","Speak to Me") 
Set sapi=CreateObject("sapi.spvoice") 
sapi.Speak message 

嘗試使用此並保存在.vbs文件