如何在 HTML 中使用 VBScript 播放 WAV 文件

Question

如何在HTML中使用VBScript播放WAV文件?

我有以下代码，但它不起作用。

<script type="text/vbscript" language="VBScript"> 
   Dim strSoundFile, strCommand  
   strSoundFile = "C:\Sounds\Sound1.wav"
   Set objShell = CreateObject("Wscript.Shell")
   strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34)
   objShell.Run strCommand, 0, True
</script>

我找到了另一个代码，但如果我在 HTML 页面中使用它，效果不佳，但它在 *.VBS 中运行良好。

  Sub Play(SoundFile)
            Dim Sound
            Set Sound = CreateObject("WMPlayer.OCX")
            Sound.URL = SoundFile
            Sound.settings.volume = 100
            Sound.Controls.play
            do while Sound.currentmedia.duration = 0
                wscript.sleep 100
            loop
            wscript.sleep(int(Sound.currentmedia.duration)+1)*1000
            End Sub

我找到了这个 link https://support.microsoft.com/es-es/kb/279022 但我不确定这是不是正确的方法...

通过在 BODY 标签中的方式工作正常

<object classid="clsid:6BF52A52-394A-11D3-B153-00C04F79FAA6" id="WindowsMediaPlayer" 
width="242" height="202" style="position:absolute; left:1;top:1;">
  <param name="URL" value="C:\Sound1.wav">
  <param name="autoStart" value="1">
</object>

用这个可以吗？

<script type="text/vbscript" language="VBScript"> HERE </script>

我在 MS Windows 7 Pro 下使用 IE8。

Answer 1

我终于找到了正确的方法来完成我所需要的描述

基本上思路如下

我们不能在 HTML 中使用上面的代码，而必须使用嵌入式 Windows Media Player 对象。
我们可以创建在 VBScript 中操作该对象所需的任何方法。

如何在 HTML 中使用 VBScript 播放 WAV 文件

How to play WAV file using VBScript in HTML

audio

vbscript

wav

internet-explorer-8

windows-7