IT编程 > 网页制作 > HTML

自动切换能播放音乐列表 vbs

564人参与2017-12-01

<style type="text/css">
<!--
body,td,th {
    font-size: 14px;
}
input {
    border-top-width: 1px; border-left-width: 1px; font-size: 12px; border-bottom-width: 1px; border-right-width: 1px
}
-->
</style>
</head>
<body bgcolor="#0066cc" text="#ffffff" link="#ffffff" vlink="#ff0000" alink="#ffffff">
<br><br>
<div align="center">
<script language="javascript">//window.resizeto(350 ,350);</script>
<table border="0" width="100%" id="table1" cellspacing="0" cellpadding="0">
<tr>
<td align="center" colspan="3">
<object classid="clsid:cfcdaa03-8be4-11cf-b84b-0020afbbccfa" id="qtdj_player" width="300" height="60">
    <param name="autostart" value="1">
    <param name="shuffle" value="0">
    <param name="prefetch" value="0">
    <param name="nolabels" value="0">
    <param name="loop" value="1">
    <param name="numloop" value="0">
    <param name="center" value="0">
    <param name="maintainaspect" value="0">
    <param name="backgroundcolor" value="#000000">
    <param name="controls" value="statusbar,,controlpanel">
</object>
<script language=vbscript>
'===========音乐地址自动抓取系统===========
'=========== 侦错自动换地址模式 ===========
dim aurl
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")
dim i
i=0
qtdj_player.setwanterrors true
qtdj_player.setautostart true
qtdj_player.source = aurl(i)
private sub qtdj_player_onerrormessage(useverity,urmacode,uusercode,puserstring,pmoreinfourl,perrorstring)
randomize
i=int(rnd * 29)
qtdj_player.setsource aurl(i)
qtdj_player.doplay
document.all.urldown.innerhtml="<a href='"+aurl(i)+"' title=点右键另存为><font color=#ffffff>"+aurl(i)+"</font></a>"
end sub

private sub uupdate()
randomize
i=int(rnd * 29)
qtdj_player.setsource aurl(i)
qtdj_player.doplay
document.all.urldown.innerhtml="<a href='"+aurl(i)+"' title=点右键另存为><font color=#ffffff>"+aurl(i)+"</font></a>"
end sub

private sub downu()
'window.open(aurl(i))
document.all.urldown.innerhtml="<a href='"+aurl(i)+"' title=点右键另存为><font color=#ffffff>"+aurl(i)+"</font></a>"
end sub
</script>
</td>
</tr>
<tr>
<td height="49" colspan="3" onclick=vbscript:uupdate()>[有效链接地址有:<font color=red>30</font>个]<input type="button" value="更换链接地址"></td>
</tr> 
<tr>
<td onmouseover="vbscript:downu()">你正在试听的歌曲是:<b>心太软</b></td><td onmouseover="vbscript:downu()" id=urldown>(鼠标放在这里显示当前播放歌曲地址)</td>
<td width="35%"><a href="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>
<td colspan=3>
<br>
<form action="" method="get">
输入歌曲:<input type="text" name="key" size="20" value="心太软">
<input type="submit" value="开始听歌">
<div align="center">
<label for="am"><input name=lm type=radio id="am" value=-1 checked>全部音乐</label>
<label for="mp3"><input name=lm type=radio id="mp3" value=0 >mp3</label>
<label for="rm"><input name=lm type=radio id="rm" value=1 >rm</label>
<label for="wma"><input name=lm type=radio id="wma" value=2 >wma</label>
</div>
</form>
</td>
</tr>
</table>

您对本文有任何疑问!!点此进行留言回复

推荐阅读

猜你喜欢

自动切换能播放音乐列表 vbs

12-01

ASP电影播放器

12-01

一款不错的flash Mp3播放器

12-01

Window Media Player 播放器

12-01

获取音乐文件的播放时间及当前进度

12-01

javascript控制realplayer对象使用

12-01

拓展阅读

大家都在看

前端页面点击图片放大功能(viewerjs插件的简单而强大)

08-20

京训钉自动播放,京训钉自动续播,京训钉刷课时,京训钉自动关弹窗,京训钉自动下一课

08-12

WVP+ZLMediaKit+MediaServerUI实现摄像头GB28181推流播放录制

08-12

R2S搭配即插即用的4G Cat4实现4G转有线以太网的应用演示

11-17

R2S搭配即插即用的4G Cat4实现4G转有线以太网的应用演示

11-17

7-2 交换最小值和最大值 (15分)

10-26

解决uniapp小程序打包体积超过2M,提示包体积超过2M,“main packagexxx”,不给上传和预览的解决办法,绝对有效!

08-14

Solr 8-7的安装、配置

11-13

热门评论