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

<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=\”#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>