|
'===========音乐地址自动抓取系统=========== '=========== 侦错自动换地址模式 =========== 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=""+Aurl(i)+"" End Sub Private Sub UUpdate() Randomize i=Int(rnd * 29) qtdj_player.SetSource Aurl(i) qtdj_player.DoPlay document.all.urldown.innerHTML=""+Aurl(i)+"" End Sub Private Sub DownU() 'window.open(Aurl(i)) document.all.urldown.innerHTML=""+Aurl(i)+"" End Sub |
||
| [有效链接地址有:30个] | ||
| 你正在试听的歌曲是:心太软 | (鼠标放在这里显示当前播放歌曲地址) | 查看歌词 |
|
|
||
更多信息请查看IT技术专栏