在线媒体播放器全新揭密

作者： unknow

@#最近发现老有人问及在线播放器的问题
@#在下做了一个利用MS Media Player的组件的在线播放器，
@#并且可以随时下载MS最新有播放组件
@#这是一个在线媒体播放器的代码
<html>
<head>
在线Media Player
</head>

<body>
<script language="VBScript">
sub setFullScreen(x)
    MediaPlayer.DisplaySize = x
end sub

sub Player_Click( Button, ShiftState, x, y )
    if MediaPlayer.DisplaySize=3 then
       MediaPlayer.DisplaySize = 4
    end if
end sub
</script>
<p align="center">
<OBJECT ID="MediaPlayer" width=160 height=182    align=absmiddle   border=0
    classid="CLSID:22D6F312-B0F6-11D0-94AB-0080C74C7E95"
    codebase=
    "http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701"
        standby="正在下载播放控件..."
        type="application/x-oleobject">
  <PARAM NAME="FileName" VALUE="ftp://ftp.pcvr2000.net/pub/game/movie/WorldSoccer.mpg">
  <PARAM NAME="ShowStatusBar" VALUE="True">
  <PARAM NAME="ShowCaptioning" VALUE="True">
  <PARAM NAME="ShowPositionControls" VALUE="True">
  <EMBED type="application/x-mplayer2"
    pluginspage = "http://www.microsoft.com/Windows/MediaPlayer/"
    SRC="demo.asx"
    name="MediaPlayer"
    width=160
    height=182
    ShowStatusBar=-1
    ShowPositionControls=0
    ShowCaptioning=-1>
  </EMBED>
</OBJECT>
<br>
<input type="button" value="全屏播放"
onclick="setfullscreen(@#3@#)"> <input type="button"
value="100%播放" onclick="setfullscreen(@#2@#)"> <input
type="button" value="50%播放" onclick="setfullscreen(@#1@#)">
<br>
<A HREF="demo.asx">打开外部播放器</A>
</p>
</body>
</html>

@#下面是外挂播放器的信息文件(demo.asx)
<ASX version = "3.0">
<TITLE>External Captioning Demo</TITLE>

    <Entry>
    <TITLE>Media Player Demo</TITLE>
    <AUTHOR>Netnerd(歪书生)</AUTHOR>
    <COPYRIGHT>2001 B6212.net</COPYRIGHT>
        <Ref href = "mms://netshow.microsoft.com/ms/sbnasfs/wmt/shamu_28.asf" />
    </Entry>
</ASX>

返回顶部

下一篇：使用WSH读取注册表 >>