HTA。如何fade-out嵌入音乐mp3（重载）

Question

我真的需要一些帮助，我发现淡出效果依赖于“音频 ID”元素的所有示例：

<audio id="myAudio">
    <source src="./LZ.mp3" type='audio/mp3'>
</audio>

在所有情况下，我的 HTA 都不会播放任何声音看来我只能使用“嵌入”甚至“bgsound”方法
但后来我迷失了应用所需的淡出功能

以下代码是我用来与 mp3 音乐文件一起启动启动的简化 Hta 脚本。

<html>
<head> 
<script language="vbscript">
winWidth=350
winHeight=90
window.resizeto winWidth,winHeight
centerX=(screen.width-winWidth)/2
centerY=(screen.height-winHeight)/2
</script>
</head>
<head> 
<HTA:APPLICATION
  ID="start"
  VERSION="2.0"/>
<body>
<button style=" title="">Starting </button> <p>
</body>
</head>
 
<script type="text/javascript">
function countdown() {
var i = document.getElementById('start');
{
window.close();
}
}
setInterval(function(){ countdown(); },30000);
</script>
 <body>
 <embed audio src="./LZ.mp3"></audio >
 </body>
 </html>

飞溅将持续 30 秒。关闭时会切断声音我想在 25 秒后（结束前 5 秒）添加淡出效果

（我不能将淡出效果直接应用到 mp3 文件，因为很快使用另一个脚本我可以选择使用任何其他 mp3）

音乐会 auto-start 并且淡出效果应该是自动的（我的意思是没有手动按钮）

编辑：多亏了 LesFerch，我现在正在播放简化的 hta + 音乐正在以目标淡出效果结束。我只是想再次添加“开始”标题和颜色效果：

<body>
<button style= title="">Starting Firefox</button> <p>
   <script language="VBScript">
 Dim Intrval, direction
 Dim c   'Used to increment
Function Color(i) : Color = "#" & Hex(i) & Hex(ii) & Hex(i) : end function
Sub Window_Onload
  c = &hff
  direction = -2
  Intrval = setInterval("changeColor", 20)
end sub
sub changeColor
  document.body.bgColor = Color(c)
  c = (c + direction)
  if c > (&hff - Abs(direction)) or c < Abs(direction) then direction = -direction
end sub
</script>

Answer 1

使用副本 link 中的答案，我做了一些调整以消除 IndexSizeError，不使用按钮播放 mp3，并使淡入淡出持续合理的时间。由于您的示例代码以 VBScript 开始，我假设这是您的首选语言。如果没有，我也可以 post JScript 版本。

注意：这也许不是重复的原因是，对于 HTA，必须声明文档模式并将其设置为 IE=9 或更高版本。

注意：文档模式 IE=9 和更高版本区分大小写。例如，screen.availWidth 会起作用，screen.AvailWidth 会抛出错误。

<!DOCTYPE html>
<html>
<head>
<title>Fade Test</title>
<meta charset="UTF-8" http-equiv="X-UA-Compatible" content="IE=9">
<hta:application
  id=oHTA
  icon=SndVol.exe
>
<script language="vbscript">
Set oWSH = CreateObject("Wscript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")

w = 350
h = 90
window.resizeTo w, h
window.moveTo (screen.availWidth - w)/2, (screen.availHeight - h)/2

MyPath  = Mid(document.URL,8)
MyFolder = oFSO.GetParentFolderName(MyPath)
oWSH.CurrentDirectory = MyFolder

Sub window_onLoad
  mp3.play
  FadeOut
End Sub

Sub FadeOut
  If mp3.volume >= 0.1 Then
    mp3.volume = mp3.volume - 0.1
    window.setTimeout "FadeOut()", 2000
  Else
    self.close
    Exit Sub
  End If
End Sub

</script>
<style>
</style>
</head>
<body>
<audio id="mp3">
  <source src="./LZ.mp3" type='audio/mp4'>
</audio>
</body>
</html>

HTA。如何fade-out嵌入音乐mp3（重载）

HTA. how to fade-out the embedded music mp3 (reload)

audio

hta

fadeout