设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 其他脚本区 › VBS求助&讨论 › JS / JScript / JavaScript › [HTA 源码] 豆瓣FM网页播放器
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发新帖
查看: 31662|回复: 6

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

[复制链接]
yu2n
发表于 2013-4-17 23:50:32 | 显示全部楼层 |阅读模式
[HTA 源码] 豆瓣FM网页播放器，写给喜欢这个网页播放器的人 by yu2n

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

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;} }

  15.   // 屏蔽错误
  16.   window.onerror=function(){return true;}

  18.   // 在标题栏显示载入中
  19.   var strTitle = document.title;
  20.   document.title = strTitle + " - 载入中 ... ";

  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.   };

  28.   // 载入框架后执行
  29.   function douban_loading()
  30.   {
  31.     win_resize(420,186);
  32.     document.title = strTitle;
  33.   }

  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;

  48.       //获取窗口高度
  49.       if (window.innerHeight)
  50.         winHeight = window.innerHeight;
  51.       else if ((document.body) && (document.body.clientHeight))
  52.         winHeight = document.body.clientHeight;

  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.   }

  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>
复制代码

评分

参与人数 2PB +18 技术 +2 收起 理由
523066680 + 18 + 1 好用，收藏了
Spring + 1 用着感觉不错！

查看全部评分

回复

举报

BAT-VBS
发表于 2013-4-18 08:48:55 | 显示全部楼层
感谢分享！
回复

举报

ShadowFiend
发表于 2013-4-18 11:25:10 | 显示全部楼层
多谢分享！
回复

举报

Spring
发表于 2013-7-27 14:06:42 | 显示全部楼层
小东西还是做成hta好啊，去页面始终麻烦
回复

举报

yu2n
 楼主| 发表于 2014-5-19 21:06:44 | 显示全部楼层
多米音乐在线播放-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;

  40.                 //获取窗口高度
  41.                 if (window.innerHeight)
  42.                     winHeight = window.innerHeight;
  43.                 else if ((document.body) && (document.body.clientHeight))
  44.                     winHeight = document.body.clientHeight;

  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>
复制代码
回复

举报

yu2n
 楼主| 发表于 2014-12-9 19:45:26 | 显示全部楼层
在MSN（123.msn.com）上看到另一个版本
http://douban.fm/partner/msnav
回复

举报

klamer
发表于 2015-12-7 14:10:19 | 显示全部楼层
感谢楼主！我很喜欢用豆瓣的啦~
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 05:27 , Processed in 0.021437 second(s), 9 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表