如何在hta中导出文件并保存到磁盘

Question

我正在研究HTA应用程序，所以我已经制作了应用程序，你可以输入文本，语音插件正在读取，但现在我想要的代码可以将声音导出并保存到磁盘全部

Answer 1

Set objVoice = CreateObject("SAPI.SpVoice")
Set objStream = CreateObject("SAPI.SpFileStream")
Line="hello there"
ObjStream.Open "c:\users\HelloThere.wav", 3, vbFalse
set objVoice.AudioOutputStream = objStream
objVoice.Speak Line

Answer 2

试试这个[HTA] create an MP3 sound file of typed text