Vbscript 如何在hta中导出文件并保存到磁盘
我正在开发HTA应用程序，所以我制作了一个应用程序，你可以输入文本，语音插件正在读取，但现在我希望能够发出声音的代码被导出并保存到磁盘上，这就是我的全部试试这个这是我的代码：子窗口加载暗宽，高宽=470高=400自调整到宽，高度结束子功能Listen Dim message message=tamsg.value如果（message=null），则X=MsgBox（“输入您的消息”，48，“错误消息”），否则设置sapi=CreateObject（“sapi.spvoice”）sapi。如果结束功能可能重复，则说出消息结束Vbscript 如何在hta中导出文件并保存到磁盘,vbscript,hta,Vbscript,Hta,我正在开发HTA应用程序，所以我制作了一个应用程序，你可以输入文本，语音插件正在读取，但现在我希望能够发出声音的代码被导出并保存到磁盘上，这就是我的全部试试这个这是我的代码：子窗口加载暗宽，高宽=470高=400自调整到宽，高度结束子功能Listen Dim message message=tamsg.value如果（message=null），则X=MsgBox（“输入您的消息”，48，“错误消息”），否则设置sapi=CreateObject（“sapi.spvoice”）sapi。如果结束
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