0
我在我的hta应用程序</head>
和<body>
之间有这个脚本。我如何使用window_onload从一个html应用程序打开一个文件
它确实有效:它调整大小并打开wav文件。但是在它打开wav文件之前,我希望它加载一个类似于广告弹出窗口的文件,如果你将它打开为另一个hta窗口。在播放.wav文件之前,如何添加必要的代码行以使其显示为ad.hta?
<script language="VBScript">
Sub Window_OnLoad
Dim width,height
width=470
height=400
self.ResizeTo width,height
Set objVoice = CreateObject("SAPI.SpVoice")
Set objFile = CreateObject("SAPI.SpFileStream.1")
objFile.Open "111(2).wav"
objVoice.Speakstream objFile
Set objVoice = CreateObject("SAPI.SpVoice")
Set objFile = CreateObject("SAPI.SpFileStream.1")
objFile.Open "11537.wav"
objVoice.Speakstream objFile
End Sub
</script>
我已经试过这样:
Const NORMAL_WINDOW = 1
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "notepad.exe", "test.txt", , , NORMAL_WINDOW
把刚后
self.ResizeTo width,height
产生的作用是按以下顺序:
程序打开,
错误con tinue运行脚本显示
文本文件打开
音频播放
但程序不会做什么它应该后做的。 我的文本到语音功能中断。