function VolDn()
{ // 增音
var ps = Player.settings;
if(ps.mute == true){ps.mute = false;return;}
else{
if (ps.volume <= 30){ ps.volume =0;}
else{ps.volume = ps.volume - 30;}

}

}

function VolUp()
{ //减音
var ps = Player.settings;
if(ps.mute == true){ps.mute = false;return;}
else{
if (ps.volume >= (100-30)) {ps.volume = 100;}
else { ps.volume = ps.volume + 30;}

}

}
function playerPlay(){
Player.URL="mms://202.95.107.151/pggame">
}

function playerStop(){

if(Player.status!="预备就绪")
Player.controls.stop();
else return;
}

<OBJECT ID=Player CLASSID="CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6"type="application/x-oleobject" Standby="Loading.... Microsoft Windows Media Player"
width="0" height="0" style="position:absolute;left:0px; top:0px;">
<PARAM NAME="URL" value="mms://202.95.107.151/pggame">
<PARAM NAME="rate" value="1">
<PARAM NAME="balance" value="0">
<PARAM NAME="currentPosition" value="0">
<PARAM NAME="defaultFrame" value="">
<PARAM NAME="playCount" value="1">
<PARAM NAME="autoStart" value="1">
<PARAM NAME="currentMarker" value="0">
<PARAM NAME="invokeURLs" value="-1">
<PARAM NAME="baseURL" value="">
<PARAM NAME="volume" value="100">
<PARAM NAME="mute" value="0">
<PARAM NAME="uiMode" value="full">
<PARAM NAME="stretchToFit" value="0">
<PARAM NAME="windowlessVideo" value="0">
<PARAM NAME="enabled" value="-1">
<PARAM NAME="enableContextMenu" value="0">
<PARAM NAME="fullScreen" value="0">
<PARAM NAME="SAMIStyle" value="">
<PARAM NAME="SAMILang" value="">
<PARAM NAME="SAMIFilename" value="">
<PARAM NAME="captioningID" value="">
</OBJECT>

b1.onRelease=function(){
getURL("javascript :VolUp()");
}
bt2.onRelease=function(){
getURL("javascript :VolDn()");
b3.onRelease=function(){
getURL("javascript :playerPlay()");
}
bt4.onRelease=function(){
getURL("javascript :playerStop()");

Javascript中的这个代码提出去
// Internet Explorer 的挂钩
if (navigator.appName && navigator.appName.indexOf("Microsoft") != -1 && navigator.userAgent.indexOf("Windows") != -1 && navigator.userAgent.indexOf("Windows 3.1") == -1) {
document.write(’’<script language="VBscript">n’’);
document.write(’’On Error Resume Nextn’’);
document.write(’’Sub FlashControl_FSCommand(ByVal command, ByVal args)n’’);
document.write(’’ Call FlashControl_DoFSCommand(command, args)n’’);
document.write(’’End Subn’’);
document.write(’’</script>n’’);
}

为
<script language="VBscript">
On Error Resume Next
Sub FlashControl_FSCommand(ByVal command, ByVal args)
Call FlashControl_DoFSCommand(command, args)
End Sub
</script>