通过VBScript嵌入Windows Media Player的启动/停止方法 [英] Start/Stop methods for embeded Windows Media Player via VBScript

问题描述

我有以下代码正常工作。

I have following code working fine.

<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:\HTML\Sounds\oos.wav">
  <param name="autoStart" value="0">
</object>

我想在VBScript中为此对象创建启动/停止方法。

I would like to crearte Start/Stop methods in VBScript for this object.

所以我喜欢

 Sub Start
            Dim oElm 
            Set oElm = document.getElementById("WindowsMediaPlayer")
            if oElm Is Nothing then
                MsgBox("element does not exist")
            else
               ' MsgBox("element exists")
                oElm.controls.play();
            end if

 End sub  

但它不起作用。

如何解决？

推荐答案

它应该像这个

<object   classid="clsid:6BF52A52-394A-11D3-B153-00C04F79FAA6" id="WindowsMediaPlayer" width="0" height="0">
</object>


Sub Start
            Dim oElm 
            Set oElm = document.getElementById("WindowsMediaPlayer")
            if oElm Is Nothing then
                MsgBox("element does not exist")
            else
                oElm.controls.stop()
                oElm.URL = "C:\HTML\Sounds\oos.wav"
            end if

 End sub  

这篇关于通过VBScript嵌入Windows Media Player的启动/停止方法的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！