2014-01-28 47 views
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运行脚本显示

文本文件打开

音频播放

但程序不会做什么它应该后做的。 我的文本到语音功能中断。

回答

0

我想通了 我确实有使用

Const NORMAL_WINDOW = 1 
Set objShell = CreateObject("Shell.Application") 
objShell.ShellExecute "notepad.exe", "test.txt", , , NORMAL_WINDOW 

得到它的工作

相关问题