| 标题 | 自动切换能播放音乐列表 vbs |
| 范文 | <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> |
| 随便看 |
|
在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。