<styletype="text/css">
<>
</style>
</head>
<bodybgcolor="#0066CC"text="#FFFFFF"link="#FFFFFF"vlink="#FF0000"alink="#FFFFFF">
<br><br>
<divalign="center">
<SCRIPTLANGUAGE="JavaScript">//window.resizeTo(350,350);</script>
<tableborder="0"width="100%"id="table1"cellspacing="0"cellpadding="0">
<tr>
<tdalign="center"colspan="3">
<objectclassid="clsid:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA"id="qtdj_player"width="300"height="60">
<paramname="AUTOSTART"value="1">
<paramname="SHUFFLE"value="0">
<paramname="PREFETCH"value="0">
<paramname="NOLABELS"value="0">
<paramname="LOOP"value="1">
<paramname="NUMLOOP"value="0">
<paramname="CENTER"value="0">
<paramname="MAINTAINASPECT"value="0">
<paramname="BACKGROUNDCOLOR"value="#000000">
<paramname="CONTROLS"value="StatusBar,,controlpanel">
</object>
<scriptlanguage=vbscript>
'===========音乐地址自动抓取系统===========
'===========侦错自动换地址模式===========
DimAurl
Aurl=Array("http://bbs.qn168.com","http://vn.chinabroadcast.cn","http://www.ezwl.cn","http://www.21ling.com:3678","http://m3.music.hytongda.cn","http://face.15150.com","http://www.tzcs.gov.cn","http://ktv.voline.net","http://user.hao3gp.com:818","http://m4.music.hytongda.cn","http://www.ezwl.cn","http://www.bll.com.cn","http://ktv.voline.net","http://m10.music.hytongda.cn","http://second.china57.com","http://bmw.duoduo.biz","http://fs8.139.com","http://1000jq.5music.org","http://61.156.33.18","http://m1.music.hytongda.cn","http://www.youngtree.net","http://pa2.astrodown.net","http://down.sjz27.net","http://www.hnbgy.net","http://www.gz61.com","http://yyrings.com","http://m6.music.hytongda.cn","http://m2.music.hytongda.cn","http://www.ezwl.cn","http://www.essesx.net")
Dimi
i=0
qtdj_player.SetWantErrorsTrue
qtdj_player.SetAutoStartTrue
qtdj_player.Source=Aurl(i)
PrivateSubqtdj_player_OnErrorMessage(uSeverity,uRMACode,uUserCode,pUserString,pMoreInfoURL,pErrorString)
Randomize
i=Int(rnd*29)
qtdj_player.SetSourceAurl(i)
qtdj_player.DoPlay
document.all.urldown.innerHTML="<Ahref='"+Aurl(i)+"'title=点右键另存为><Fontcolor=#FFFFFF>"+Aurl(i)+"</Font></A>"
EndSub
PrivateSubUUpdate()
Randomize
i=Int(rnd*29)
qtdj_player.SetSourceAurl(i)
qtdj_player.DoPlay
document.all.urldown.innerHTML="<Ahref='"+Aurl(i)+"'title=点右键另存为><Fontcolor=#FFFFFF>"+Aurl(i)+"</Font></A>"
EndSub
PrivateSubDownU()
'window.open(Aurl(i))
document.all.urldown.innerHTML="<Ahref='"+Aurl(i)+"'title=点右键另存为><Fontcolor=#FFFFFF>"+Aurl(i)+"</Font></A>"
EndSub
</script>
</td>
</tr>
<tr>
<tdheight="49"colspan="3"onclick=vbscript:UUpdate()>[有效链接地址有:<fontcolor=red>30</font>个]<inputtype="button"value="更换链接地址"></td>
</tr>
<tr>
<tdonmouseover="vbscript:downU()">你正在试听的歌曲是：<B>心太软</B></td><tdonmouseover="vbscript:downU()"id=urldown>(鼠标放在这里显示当前播放歌曲地址)</td>
<tdwidth="35%"><ahref="http://mp3.baidu.com/m?tn=baidump3lyric&word=%D0%C4%CC%AB%C8%ED&ct=150994944&lm=-1&lf=3"target="_blank">查看歌词</a></td>
</tr>
<tr>
<tdcolspan=3>
<br>
<formaction=""method="get">
输入歌曲:<inputtype="text"name="key"size="20"value="心太软">
<inputtype="submit"value="开始听歌">
<divalign="center">
<labelfor="aM"><inputname=lmtype=radioid="aM"value=-1checked>全部音乐</label>
<labelfor="Mp3"><inputname=lmtype=radioid="Mp3"value=0>mp3</label>
<labelfor="RM"><inputname=lmtype=radioid="RM"value=1>rm</label>
<labelfor="WMA"><inputname=lmtype=radioid="WMA"value=2>wma</label>
</div>
</form>
</td>
</tr>
</table>
【自动切换能播放音乐列表 vbs】相关文章：
★ ASP电影播放器
★ [翻译] JW Media Player 中文文档第1/4页
★ 网页播放器 windowsmediaplay中控制从wmv的指定时间开始播放，指定时间停止播放