您现在的位置是：网站首页> 编程资料编程资料

自动切换能播放音乐列表 vbs_网页播放器_

2023-05-27 114人已围观

简介自动切换能播放音乐列表 vbs_网页播放器_

//window.resizeTo(350 ,350);

'===========音乐地址自动抓取系统===========
'=========== 侦错自动换地址模式 ===========
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个]

你正在试听的歌曲是：心太软(鼠标放在这里显示当前播放歌曲地址)
查看歌词

输入歌曲:

全部音乐
mp3
rm
wma

上一篇：网页播放器的参数含义 Windows Media Player 网页播放器参数含义_网页播放器_

下一篇：谷歌Sky语言怎么样？什么是Dart编程语言？_Dart_

您现在的位置是：网站首页> 编程资料编程资料

自动切换能播放音乐列表 vbs_网页播放器_

相关内容

点击排行

本栏推荐

猜你喜欢