• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    自动切换能播放音乐列表 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>
    '===========音乐地址自动抓取系统===========
    '=========== 侦错自动换地址模式 ===========
    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=点右键另存为>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=点右键另存为>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=点右键另存为>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>(鼠标放在这里显示当前播放歌曲地址)/td>
    td width="35%">a href="http://mp3.baidu.com/m?tn=baidump3lyricword=%D0%C4%CC%AB%C8%EDct=150994944lm=-1lf=3" target="_blank">查看歌词/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>
    上一篇:网页播放器的参数含义 Windows Media Player 网页播放器 参数含义
    下一篇:Vscode编辑器的巧妙用法(快速格式化代码的方法)
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

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