自动切换能播放音乐列表 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=baidump3lyric&word=%D0%C4%CC%AB%C8%ED&ct=150994944&lm=-1&lf=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>
相关推荐
-
自动切换能播放音乐列表 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> <bod
-
jQuery实现自动切换播放的经典滑动门效果
本文实例讲述了jQuery实现自动切换播放的经典滑动门效果.分享给大家供大家参考.具体如下: 这是一个滑动门代码,从外观上看,简洁经典,似乎与平时见到的滑动门没什么区别,不过它有一个重要的功能与众不同,那就是会自动切换[播放]滑动门的内容,像腾讯QQ登录后弹出的每日要闻一样,如果你再加以美化,那么就更完美无暇了. 运行效果截图如下: 在线演示地址如下: http://demo.jb51.net/js/2015/jquery-auto-cha-tab-style-codes/ 具体代码如下: <!
-
JavaScript实现音乐自动切换和轮播
前言:前两天有个同学问我音乐自动切换,并在所有歌曲都播放完成以后实现循环播放的效果.自己折腾了一下做了出来,今天整理桌面的时候突然看见,在拖到回收站的一瞬间想着还是写一篇博客分享一下.实现的方法有很多种,我这里简单的实现. 通过修改video的src(这种应该是最好节省资源的) <!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8"> <titl
-
基于jQuery实现音乐播放试听列表
本文为大家分享了jQuery实现的音乐播放试听列表,可以实现播放,暂停,自动获取音频路径功能,具体内容如下 1.html文件 <!DOCTYPE html> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"> <title>音乐播放试听列表</title> </head>
-
js实现列表自动滚动循环播放
本文实例为大家分享了js实现列表自动滚动循环播放的具体代码,供大家参考,具体内容如下 1.实现效果图 鼠标移入,暂停滚动: 鼠标移出,继续滚动: 2.原理 要实现无缝衔接,在原有ul后面还要有一个一样内容的ul: 最外层div为可视区域,设overflow:hidden: 2个ul的高度 > 外层可视div高度,才能滚动: 3.实现代码 html: <!-- vue --> <div id="review_box" @mouseover="rollSt
-
微信小程序实现分类菜单激活状态随列表滚动而自动切换效果详解
目录 view结构 js部分 属性解释 说明 注意 这里主要用到微信小程序提供的SelectorQuery获取页面节点信息实现,组件用的是微信小程序的scroll-view 逻辑就是获取右侧盒子的节点信息,获取右侧子分类的节点信息,当子分类滑动到顶部的之后,则切换左侧分类状态,而且当右侧子分类的位置处于触顶以及包含顶部位置的状态下,同样激活左侧分类状态. view结构 左侧父级分类 <scroll-view class="left" scroll-y > <view
-
当达到输入长度时表单自动切换焦点
有时候会遇到和上面类似的表单字段.我们可以给每个字段限制输入长度,当达到输入长度时自动切换焦点,以增强表单的易用性 复制代码 代码如下: <form id="myForm"> <input type="text" name="tel1" id="txt1" maxlength="3">- <input type="text" name="tel2&
-
分步解析JavaScript实现tab选项卡自动切换功能
本文分享一个能够实现自动切换的选项卡功能,并给出它的具体实现过程. 关于选项卡大家一定不会陌生,应用非常的频繁,通常选项卡都是需要点击或者划过才能够实现切换. 代码实例如下: <html> <head> <meta charset=" utf-8"> <title>tab切换</title> <style type="text/css"> body,h2,p{ margin:0px; paddi
-
Jquery封装tab自动切换效果的具体实现
今天我这边网速真是太慢了,打开一个网页要等待很久,但是还是想写篇文章----tab自动切换 因为工作中经常会碰到这样的问题 所以写博客也是总结下 最重要的是能分享下 及以后碰到类似的可以参考下! 当然这是我用Jquery来封装的 页面可以调用多次 调用方式 new tabSlider(obj,count); obj指容器最外层ID,count指有多个li 当然要引用我这个js的话 一定要按照我结构来写!下面的是我的HTML一些结构如下: 复制代码 代码如下: <di
-
基于jQuery的淡入淡出可自动切换的幻灯插件
其实就是一个幻灯效果,考虑到使用方便,就封装成一个插件了. 插件特点 1. 参数高度自定义; 2. 可重复调用且与不影响; 3. 插件文件小,压缩后仅1.04k,开发版3.29k. 演示及下载 使用方法 1. 引入jQuery库文件及jQuery.iFadeSlide.pack.js插件文件(若页面有其他js文件,可与之合并以减小http请求),引入位置自定义; 复制代码 代码如下: <script src="http://ajax.googleapis.com/ajax/libs/jqu