재생 가능 한 음악 목록 자동 전환 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

좋은 웹페이지 즐겨찾기