做了一个FLASH按钮来控制mediaplay。 以下是网页部分代码
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;
} mediaplay 代码
<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> －－－－－－－－－－－－－－－－－－－
以上代码用HTML按钮控制都无问题。 flash用简单的命令控制。
如
b1.onRelease=function(){
getURL("javascript :VolUp()");
}
bt2.onRelease=function(){
getURL("javascript :VolDn()");
b3.onRelease=function(){
getURL("javascript :playerPlay()");
}
bt4.onRelease=function(){
getURL("javascript :playerStop()"); -------------
播放和停止都能用，但一用增音和减音，播放器就会停止。百思不得其解， 烦有空高手给解决一下，高分送上。 怎么现实增声减音。
---------------------------------------------------------------
使用fscommand传递命令，不要用javascript。 即在Flash中，
b1.onRelease=function(){
fscommand("VolUp");
}
在HTML中，在你现有的Javascript基础上添加
var isInternetExplorer = navigator.appName.indexOf("Microsoft") != -1;
// 处理 Flash 影片中的所有 FSCommand 消息
function FlashControl_DoFSCommand(command, args) {
var FlashControl = isInternetExplorer ? document.all.FlashControl : document.FlashControl;
// 代码放在此处。
eval(command)();
}
// 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 Next\n’’);
document.write(’’Sub FlashControl_FSCommand(ByVal command, ByVal args)\n’’);
document.write(’’ Call FlashControl_DoFSCommand(command, args)\n’’);
document.write(’’End Sub\n’’);
document.write(’’</script\>\n’’);
} 以上FlashControl为嵌入HTML中的Flash Object id
---------------------------------------------------------------
简单看了看，帮你修改了一下。VBscript的问题。帮你把Javascript中的一段代码拿出来，就好使了。
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 Next\n’’);
document.write(’’Sub FlashControl_FSCommand(ByVal command, ByVal args)\n’’);
document.write(’’ Call FlashControl_DoFSCommand(command, args)\n’’);
document.write(’’End Sub\n’’);
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>
就好用了，试试吧，有问题再给我留言。
