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

时间:2015-11-24 15:33:04

标签: audio vbscript windows-7 internet-explorer-8 wav

如何在 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

我找到了此链接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。

1 个答案:

答案 0 :(得分:0)

最后,我可以找到正确的方法来做我需要的描述here

基本上这个想法是

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