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

页面导航:首页 > 网络编程 > 网页播放器 > 自动切换能播放音乐列表 vbs

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

来源:互联网 作者:脚本宝典 时间:2015-06-21 12:18 【

styletype=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 bodybgcolor=#0066CCtext=#FFFFFFlink=#FFFFFFvlink=#FF0000a
<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>
Tags: VBS  

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <