完美世界小说下载,盗墓笔记小说txt下载

主頁 > 知識庫 > 自動切換能播放音樂列表 vbs

自動切換能播放音樂列表 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>
'===========音樂地址自動抓取系統(tǒng)===========
'=========== 偵錯自動換地址模式 ===========
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=點(diǎn)右鍵另存為>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=點(diǎn)右鍵另存為>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=點(diǎn)右鍵另存為>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>(鼠標(biāo)放在這里顯示當(dāng)前播放歌曲地址)/td>
td width="35%">a >查看歌詞/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>

標(biāo)簽：忻州無錫河源阜陽青海紅河哈密沈陽

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《自動切換能播放音樂列表 vbs》，本文關(guān)鍵詞自動,切換,能,播放,音樂,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。

濮阳杆衣贸易有限公司

自動切換能播放音樂列表 vbs