调试易

IE下面可以new一个real的activex对象,如果成功了就说明装过,不成功就没有装,FF下就不知了,猜想可以用类似的方法

<script language=javaScript>
var ERR_NonePlayer="提示:您的系统中没有安装Real Player播放器，请在主页上下载。\n\nMovie播放器将关闭。";
var ERR_FileNotFind="提示:在线用户过多，服务器限制，请抢线或稍后观看！\n\nWww.cctv258.Com－全球华艺网";
var ERR_NotLocateServer="提示:在线用户过多，服务器限制，请抢线或稍后观看！\n\nWww.cctv258.Com－全球华艺网";
var ERR_UnkownError="提示:在线用户过多，服务器限制，请抢线或稍后观看！\n\nWww.cctv258.Com－全球华艺网";
</script>
<script language=VBScript>                                    
RealPlayerG2 = (NOT IsNull(CreateObject("rmocx.RealPlayer G2 Control"))) 
RealPlayer5 = (NOT IsNull(CreateObject("RealPlayer.RealPlayer(tm) ActiveX Control (32-bit)")))
RealPlayer4 = (NOT IsNull(CreateObject("RealVideo.RealVideo(tm) ActiveX Control (32-bit)")))
if not RealPlayerG2 or RealPlayer5 or RealPlayer4 then
 if MsgBox("您的浏览器无法自动下载最新的浏览器插件，是否要下载播放器来播放？", vbYesNo) = vbYes then
  window.location = "download/real.exe"
 end if
end if
Sub player_OnBuffering(lFlags,lPercentage)
if (lPercentage=100) then
StartPlay=false
if (FirstPlay) then
FirstPlay=false
end if
exit sub
end if
End Sub
Sub player_OnErrorMessage(uSeverity, uRMACode, uUserCode, pUserString, pMoreInfoURL, pErrorString)
select case player.GetLastErrorRMACode()
case -2147221496
window.alert(ERR_FileNotFind)
case -2147221433,-2147221428,-2147221417,-2147217468
window.alert(ERR_NotLocateServer)
case else
window.alert(ERR_UnkownError)
end select
End Sub
</script>

<div   id="realDiv"></div>   
  <div   id="snsDiv"></div>   
  <SCRIPT   language=javascript>   
  function   CreateRealControl(DivID){   
          var   d   =   document.getElementById(DivID);   
      d.innerHTML   =   '<object   id="player"   classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA"   height="100%"   width="100%">'+   
      '<param   name="AUTOSTART"   value="0">'+   
      '<param   name="CONTROLS"   value="ImageWindow">'+   
      '</object>'           
  }   
  function   CreateSNSControl(DivID){   
  var   d   =   document.getElementById(DivID);   
      d.innerHTML   =   '<OBJECT   ID="snscontrol"   CLASSID="clsid:4B9C068E-F188-4952-B609-853D7080E395"   width="10"   height="1"></OBJECT>';   
  }   
    
  CreateRealControl("realDiv");   
  CreateSNSControl("snsDiv");   
  //检查是否安装了realplayer和是否安装了SNS播放器   
  function   hasPlayer(){   
  var   errorMessage   =   "";   
  try{   
  player.SetWantMouseEvents(true);   
          player.SetImageStatus(false);   
  }   
  catch(e)   
  {   
  try{   
  CreateRealControl("realDiv");   
  player.SetWantMouseEvents(true);   
          player.SetImageStatus(false);   
  }catch(ex){   
  errorMessage   +=     "Realplayer播放器";   
  }   
  }   
    
  
    
  if(errorMessage!=""){   
  errorMessage   =   "提示：您现在不能观看本站电影的可能原因\n\n"   +     
        "★您还没有安装"   +   errorMessage   +   "。\n★可能是您的IE安全权限设置太高,请把你的IE安全权限设为默认。\n\n注：如果您没有安装"   +   errorMessage   + "，请先下载并安装，是否转到下载页面？";   
  if(confirm(errorMessage))   
  {   
  window.location   =   "download.htm";   
  }   
  return   false;   
  }   
  return   true;   
  }   
  hasPlayer()   
  </SCRIPT>