[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
yu2n

Rank: 5Rank: 5

帖子
715 
积分
1298 
技术
151  
捐助
0  
注册时间
2012-11-1 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2013-4-17 23:50 | 只看该作者

[原创代码] [HTA 源码] 豆瓣FM网页播放器

[HTA 源码] 豆瓣FM网页播放器，写给喜欢这个网页播放器的人 by yu2n

在线预览：http://douban.fm/radio
源码下载：[attach]8017[/attach]

2015.01.08 更新：网络不通时，自动尝试重新连接（如将播放器加入系统启动项运行时，ADSL可能还未准备好。）。
  1. <html>

  2. <html>

  3. <hta:Application ID="douban_fm" ApplicationName="douban_fm" Title="豆瓣FM"

  4.  border="thin" borderstyle="normal" caption="yes" icon="http://douban.fm/favicon.ico" 

  5.  maximizebutton="no" minimizebutton="yes" closebutton="yes" showintaskbar="yes" singleinstance="yes"

  6.  sysmenu="yes" version="1.0" windowstate="minmize"

  7. />

  8.   <head>

  9.   <title>豆瓣FM</title>

  10.   <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

  11.   <script language=JavaScript type="text/javascript">

  12.   // 在窗口显示前更改窗口大小

  13.   while (true) {try {var w=420,h=0; window.resizeTo(w, h); window.moveTo((window.screen.width - w) / 2, (window.screen.height - h) / 2); break; } catch (e) {continue;} }

  14. 

  15.   // 屏蔽错误

  16.   window.onerror=function(){return true;}

  17. 

  18.   // 在标题栏显示载入中

  19.   var strTitle = document.title;

  20.   document.title = strTitle + " - 载入中 ... ";

  21. 

  22.   // 判断网络连接

  23.   if (!ping("douban.fm")) {

  24.     document.title = strTitle + " - 网络故障，请检查网络连接 ...";

  25.     setInterval("document.execCommand('Refresh');douban_fm.icon='http://douban.fm/favicon.ico';", 3000); 

  26.   };

  27. 

  28.   // 载入框架后执行

  29.   function douban_loading()

  30.   {

  31.     win_resize(420,186);

  32.     document.title = strTitle;

  33.   }

  34. 

  35.   // 修改窗口内页面的大小(非窗口)

  36.   function win_resize(w,h)

  37.   {

  38.     var winWidth, winHeight;

  39.     var w2=w, h2=h;

  40.     for (var i = 0; i < window.screen.width; i++)

  41.     {

  42.       //获取窗口宽度

  43.       if (window.innerWidth)

  44.         winWidth = window.innerWidth;

  45.       else if ((document.body) && (document.body.clientWidth))

  46.         winWidth = document.body.clientWidth;

  47. 

  48.       //获取窗口高度

  49.       if (window.innerHeight)

  50.         winHeight = window.innerHeight;

  51.       else if ((document.body) && (document.body.clientHeight))

  52.         winHeight = document.body.clientHeight;

  53. 

  54.       //通过深入Document内部对body进行检测，获取窗口大小

  55.       if (document.documentElement && document.documentElement.clientHeight && document.documentElement.clientWidth)

  56.       {

  57.         winHeight = document.documentElement.clientHeight;

  58.         winWidth = document.documentElement.clientWidth;

  59.       }

  60.       

  61.       // 小于指定大小时，调大窗口

  62.       if (winWidth <= w)(w2 = w + i);

  63.       if (winHeight <= h)(h2 = h + i);

  64.       if ((winWidth >= w) && (winHeight >= h)){break;}

  65.       window.resizeTo(w2, h2); 

  66.       window.moveTo((window.screen.width - w2) / 2, (window.screen.height - h2) / 2);

  67.     }

  68.   }

  69. 

  70.   // Ping

  71.   function ping(host){

  72.     var oWmic = GetObject("winmgmts:{impersonationLevel=impersonate}"

  73.         ).ExecQuery("select * from Win32_PingStatus where address = '" + host + "'")

  74.     var oEnum = new Enumerator(oWmic); for (; !oEnum.atEnd(); oEnum.moveNext()) { 

  75.       if (oEnum.item().ResponseTime != null && oEnum.item().ResponseTime >= 0) return(true);

  76.     }; return(false);

  77.   }

  78.   </script>

  79.   <style type="text/css">

  80.   html, body { margin: 0px; padding: 0px; }

  81.   .douban_fm_iframe {

  82.     height: 100%; width: 100%;

  83.     margin: 0px; padding: 0px;

  84.     overflow: visible;

  85.   }

  86.   </style>

  87.   </head>

  88.   <body>

  89.     <iframe class="douban_fm_iframe" src="http://douban.fm/radio" scrolling="NO" onload="douban_loading();">

  90.   </body>

  91. </html>
复制代码
2

评分人数

    • 523066680: 好用，收藏了PB + 18 技术 + 1
    • Spring: 用着感觉不错！技术 + 1
收藏 分享
『千江有水千江月』千江有水，月映千江；万里无云，万里青天。    http://yu2n.qiniudn.com/

BAT-VBS

Rank: 8Rank: 8

帖子
888 
积分
6682 
技术
88  
捐助
0  
注册时间
2012-10-27 
2楼
发表于 2013-4-18 08:48 | 只看该作者
感谢分享！

TOP

ShadowFiend

Rank: 1

帖子
38 
积分
52 
技术
1  
捐助
0  
注册时间
2012-11-24 
3楼
发表于 2013-4-18 11:25 | 只看该作者
多谢分享！
nevermore

TOP

Spring

Rank: 6Rank: 6

帖子
168 
积分
1532 
技术
20  
捐助
0  
注册时间
2009-12-17 
4楼
发表于 2013-7-27 14:06 | 只看该作者
小东西还是做成hta好啊，去页面始终麻烦

TOP

yu2n

Rank: 5Rank: 5

帖子
715 
积分
1298 
技术
151  
捐助
0  
注册时间
2012-11-1 
5楼
发表于 2014-5-19 21:06 | 只看该作者
多米音乐在线播放-online music  (by yu2n)
  1. <html>

  2. <hta:Application ID="duomi.com" ApplicationName="duomi.com"

  3. border="thin" borderstyle="normal" caption="yes" icon="http://duomi.com/favicon.ico" 

  4. maximizebutton="no" minimizebutton="yes" closebutton="yes" showintaskbar="yes" singleinstance="yes"

  5. sysmenu="yes" version="1.0" windowstate="minmize" />

  6.   <head>

  7.     <title>多米音乐在线播放-online music</title>

  8.     <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

  9.         <script language=JavaScript type="text/javascript">

  10.         // 在窗口显示前更改窗口大小

  11.                 while (true) {try {var w=760,h=0; window.resizeTo(w, h); window.moveTo((window.screen.width - w) / 2, (window.screen.height - h) / 2); break; } catch (e) {continue;} }

  12.         

  13.         // 屏蔽错误

  14.         window.onerror=function(){return true;}

  15.         

  16.         // 在标题栏显示载入中

  17.         var strTitle = document.title;

  18.         document.title = strTitle + " - Loading ... ";

  19.         

  20.         // 载入框架后执行

  21.         function douban_loading()

  22.         {

  23.             win_resize(760,520);

  24.             document.title = strTitle;

  25.         }

  26.         

  27.         // 修改窗口内页面的大小(非窗口)

  28.         function win_resize(w,h)

  29.         {

  30.             var winWidth, winHeight;

  31.             var w2=w, h2=h;

  32.             for (var i = 0; i < window.screen.width; i++)

  33.             {

  34.                 //获取窗口宽度

  35.                 if (window.innerWidth)

  36.                     winWidth = window.innerWidth;

  37.                 else if ((document.body) && (document.body.clientWidth))

  38.                     winWidth = document.body.clientWidth;

  39. 

  40.                 //获取窗口高度

  41.                 if (window.innerHeight)

  42.                     winHeight = window.innerHeight;

  43.                 else if ((document.body) && (document.body.clientHeight))

  44.                     winHeight = document.body.clientHeight;

  45. 

  46.                 //通过深入Document内部对body进行检测，获取窗口大小

  47.                 if (document.documentElement && document.documentElement.clientHeight && document.documentElement.clientWidth)

  48.                 {

  49.                     winHeight = document.documentElement.clientHeight;

  50.                     winWidth = document.documentElement.clientWidth;

  51.                 }

  52.                 

  53.                 // 小于指定大小时，调大窗口

  54.                 if (winWidth <= w)(w2 = w + i);

  55.                 if (winHeight <= h)(h2 = h + i);

  56.                 if ((winWidth >= w) && (winHeight >= h)){break;}

  57.                 window.resizeTo(w2, h2); 

  58.                 window.moveTo((window.screen.width - w2) / 2, (window.screen.height - h2) / 2);

  59.             }

  60.                 }

  61.         </script>

  62.     <style type="text/css">

  63.     html, body { margin: 0px; padding: 0px; }

  64.     .douban_fm_iframe {

  65.         height: 100%; width: 100%;

  66.         margin: 0px; padding: 0px;

  67.         overflow: visible;

  68.     }

  69.     </style>

  70.   </head>

  71.     <body>

  72.         <iframe class="douban_fm_iframe" src="http://app.duomiyy.com/webradio/hao123/" scrolling="NO" onload="douban_loading();">

  73.     </body>

  74. </html>
复制代码
多米音乐在线播放-online music  (来自官方插件)
  1. <!doctype html>

  2. <html>

  3. <head>

  4. <meta charset="utf-8">

  5. <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

  6. <meta http-equiv="X-UA-Compatible" content="chrome=1">

  7. <meta name="keywords" content="" />

  8. <meta name="description" content="" />

  9. <title>在线音乐播放-online music</title>

  10. </head>

  11. <body style="text-align:center;background: #dbdbdb;color: #666666;overflow: hidden;">

  12. <iframe src="http://app.duomiyy.com/webradio/hao123/"  id="iframepage" name="iframepage" width=760 height=520 frameBorder=0 scrolling=no style=""></iframe>

  13. </body>

  14. </html>
复制代码
『千江有水千江月』千江有水，月映千江；万里无云，万里青天。    http://yu2n.qiniudn.com/

TOP

yu2n

Rank: 5Rank: 5

帖子
715 
积分
1298 
技术
151  
捐助
0  
注册时间
2012-11-1 
6楼
发表于 2014-12-9 19:45 | 只看该作者
在MSN（123.msn.com）上看到另一个版本
http://douban.fm/partner/msnav
『千江有水千江月』千江有水，月映千江；万里无云，万里青天。    http://yu2n.qiniudn.com/

TOP

klamer

Rank: 1

帖子
2 
积分
13 
技术
0  
捐助
0  
注册时间
2015-12-7 
7楼
发表于 2015-12-7 14:10 | 只看该作者
感谢楼主！我很喜欢用豆瓣的啦~

TOP

返回列表