MyHTML Player release v1.1

更新时间：2006年11月14日 00:00:00 作者：

把下面的代码copy到本地，另存为hta文件使用

特点：自动获取baidu歌曲top500并link

使用ajax技术，自动分页

注意：代码中使用了ADODB.Stream对象，可能被杀毒软件判断为恶意。

<html> <head> <title>My HTML Player - By Hutia</title> <hta:application id="app1" singleinstance="yes" contextmenu="yes"  sysmenu="yes" windowstate="normal" maximizeButton="no" minimizeButton="yes"  applicationName="MyHTMLPlayer" version="1.1" innerBorder="no"  caption="yes" showintaskbar="yes" border="thin" /> <meta http-equiv="content-type" content="text/html; charset="gb2312"> <style> body {     overflow:auto;     font-size:12px;     cursor:default;     padding:3px;     margin:0px;     border-width:0px; } #f1 {     display:none; } #table01 {     font-size:12px;     background-Color:black;     color:white;     text-align:center;     float:left;     height:300px; } #table01 td{     vertical-align:top; } #MediaPlayer1 {     width:300px;     height:300px; } #playListTitle {     background-Color:#001122;     color:white;     font-size:12px;     font-weight:bold;     width:100%;     height:16px;     padding:2px; } #playList {     width:150px;     height:280;     margin:0px;     font-size:12px;     background-Color:black;     color:white; } #musicList {     width:260px;     border:buttonface 4px groove;     height:200px;     float:right; } #musicListTitle {     font-size:13px;     width:100%;     height:20px;     background-Color:#C5FFC5;     padding:3px;     font-weight:bold; } #musicListContent {     height:200px; } #musicList .item {     width:100%;     height:20px;     line-height:12px;     padding:0px;     margin:0px;     overflow-y:hidden; } #musicList .item a {     color:#773;     text-decoration:none;     width:180px;     height:20px;     line-height:12px;     padding-top:5px;     padding-left:10px;     margin:0px;     position:relative;     overflow:hidden;     text-overflow:ellipsis; } #musicListNav {     height:18px; } #processBar {     position:absolute;     width:99%;     height:30px;     border:buttonface 2px inset;     z-Index:99;     background-Color:#FFF;     bottom:5px;     left:5px;     padding:5px; } .add2ListBtn {     width:18px;     line-height:14px;     text-align:center;     cursor:hand;     font-size:14px;     font-family:Webdings; } .add2ListBtn2 {     width:18px;     line-height:14px;     text-align:center;     cursor:hand;     font-size:14px; } </style> <script> //****全局变量定义区************ taskState="loadList"; url="http://list.mp3.baidu.com/topso/mp3topsong.html"; taskURLs=new Array(); taskNames=new Array(); pageSize=10; pageNo=0; currentTask=pageNo*pageSize; maxTask=currentTask+pageSize; windowWidth=740; windowHeight=400; //****初始化组件*************** try{     var xmlHttp=new ActiveXObject("Microsoft.XMLHTTP"); }catch(e){     document.write("<h3>加载失败，组件被禁止</h3>"); } try{     top.moveTo((screen.availWidth-windowWidth)/2,(screen.availHeight-windowHeight)/2);     top.resizeTo(windowWidth,windowHeight); }catch(e){} //****过程函数区*************** //---初始化------- function init(){     MediaPlayer1.AutoRewind=false;     MediaPlayer1.AutoStart=true;     MediaPlayer1.SendPlayStateChangeEvents=true;     MediaPlayer1.attachEvent("PlayStateChange",checkPlayStatus);     initLoadMusic(); } //####关于baidu音乐获取的代码###### //---初始化下载----- function initLoadMusic(){     currentTask=pageNo*pageSize-1;     maxTask=currentTask+pageSize;     musicListContent.innerHTML="";     processBar.style.display="";     loadBaiduMusic(); } //---开始从baidu下载音乐----- function loadBaiduMusic(){     //如果状态是loadMusic那么从url列表取下载地址     if(taskState=="loadMusic"){         currentTask++;         if(currentTask>maxTask||currentTask>taskURLs.length-1){             //下载完成             try{clearTimeout(vbTimer);}catch(e){}             processBar.style.display="none";             createNavigate();             return(false);         }         if(currentTask>taskURLs.length-1){             currentTask--;             setTimeout(loadBaiduMusic,1000);             return(false);         }         url=taskURLs[currentTask];     }     xmlHttp.open("GET",url,true);     xmlHttp.send();     xmlHttp.onreadystatechange=checkXMLHttpState;     checkXMLHttpState(); } //----处理下载----- function checkXMLHttpState(){     if (xmlHttp.readyState==4){         if (xmlHttp.status==200){             if(taskState=="loadList"){                 taskState="loadMusic";                 //分析下载内容生成歌曲地址列表                 analyBaiduList();                 currentTask=-1;             }else{                 //获得mp3的真实地址                 analyBaiduMusic();             }         }         loadBaiduMusic();     } } //----分析下载内容生成歌曲地址列表---- function analyBaiduList(){     var strHTML=b2s(xmlHttp.responseBody);     var iStart=strHTML.search(/<body/i);     var iEnd=strHTML.toLowerCase().indexOf("<\/script",iStart+5);     strHTML=strHTML.substring(iStart,iEnd);     var fff=document.createElement("Iframe");     fff.id="tempFrame";     fff.style.display="none";     document.body.insertBefore(fff);     theWin=eval("tempFrame");     theWin.document.open();     theWin.document.clear();     theWin.document.write(strHTML);     theWin.document.close();          for(var i=0;i<theWin.document.links.length;i++){         if(theWin.document.links[i].href.match(/mp3.baidu.com\/m\?tn=baidump3\&ct=/i)&&theWin.document.links[i].parentNode.firstChild==theWin.document.links[i]){             //将url存入taskURLs,歌曲名称存入taskNames             taskURLs[taskURLs.length]=theWin.document.links[i].href.replace(/lm=-1/,"lm=0");             taskNames[taskNames.length]=theWin.document.links[i].innerText;         }     }     fff.outerHTML=""; } //----获得mp3的真实地址,添加到music list----- function analyBaiduMusic(){     var strHTML=b2s(xmlHttp.responseBody);     var strTxt=taskNames[currentTask];     //匹配URL的正则     var aryURL=strHTML.match(/  http:\/\/[^ ]+  /gi);     if(!aryURL){return(false);}     var theC=document.createElement("DIV");     theC.className="item";     musicListContent.insertBefore(theC);     //获取10个地址以免链接失效     for(var i=0;i<10&&i<aryURL.length;i++){         //每个item的容器         var theD=document.createElement("DIV");         theD.onmouseover=musicList_mouseover;         theD.onmouseout=musicList_mouseout;         //link元素         var theLink=document.createElement("A");         var strURL=aryURL[i].substring(2,aryURL[i].length-2);         theLink.href=strURL;         theLink.title=strURL;         theLink.innerText=(currentTask+1)+"."+strTxt;         if(i>0){theLink.innerText+="."+(i+1);}         theLink.onclick=musicList_item_click;         theD.insertBefore(theLink);         //添加到列表按钮         theButton=document.createElement("Span");         theButton.className="add2ListBtn";         theButton.innerText="1";         theButton.title="添加到列表";         theButton.onclick=musicList_add2ListBtn_click;         theButton.onmouseover=musicList_item_mouseover;         theButton.onmouseout=musicList_item_mouseout;         theD.insertBefore(theButton);         //上卷按钮         theButton=document.createElement("Span");         theButton.className="add2ListBtn";         theButton.innerText="3";         theButton.title="上卷";         theButton.onclick=musicList_scrollUpBtn_click;         theButton.onmouseover=musicList_item_mouseover;         theButton.onmouseout=musicList_item_mouseout;         theD.insertBefore(theButton);         //下卷按钮         theButton=document.createElement("Span");         theButton.className="add2ListBtn";         theButton.innerText="4";         theButton.title="下卷";         theButton.onclick=musicList_scrollDownBtn_click;         theButton.onmouseover=musicList_item_mouseover;         theButton.onmouseout=musicList_item_mouseout;         theD.insertBefore(theButton);         //打开新窗口按钮         theButton=document.createElement("Span");         theButton.className="add2ListBtn";         theButton.innerText="2";         theButton.title="打开新窗口";         theButton.onclick=musicList_newWinBtn_click;         theButton.onmouseover=musicList_item_mouseover;         theButton.onmouseout=musicList_item_mouseout;         theD.insertBefore(theButton);                  theC.insertBefore(theD);     } } //####关于播放器播放音乐的代码###### //----检查播放器状态------- function checkPlayStatus(oldState,newState){     try{         if(MediaPlayer1.PlayState==0){             MediaPlayer1.detachEvent("PlayStateChange",checkPlayStatus);             MediaPlayer1.stop();             if(playList.options.selectedIndex<playList.options.length-1){                 playList.options[playList.options.selectedIndex+1].selected=true;             }else{                 playList.options[0].selected=true;             }             MediaPlayer1.fileName=playList.value;             MediaPlayer1.play();             setTimeout('MediaPlayer1.attachEvent("PlayStateChange",checkPlayStatus);',5000);         }     }catch(e){} } //**********Event Function Area*************** //----------Play List Event Start------------- function playList_dragOver(){     event.returnValue=false; } function playList_dragEnter(){     event.returnValue=false;     event.dataTransfer.dropEffect='link'; } function playList_drop(){     strTxt=unescape(event.dataTransfer.getData('Text').split(":")[0]).replace(/\[\+\]/,"");;     strURL=unescape(event.dataTransfer.getData('Text').split(":")[1]).replace(/\[\+\]/,"");;     playList.options[playList.options.length]=new Option(strTxt,strURL); } function playList_keyDown(){     if(event.keyCode==46){         try{             playList.options[playList.options.selectedIndex].outerHTML="";         }catch(e){}         return(false);     }     if(event.keyCode==13){         playList_dblClick();         return(false);     } } function playList_dblClick(){     MediaPlayer1.detachEvent("PlayStateChange",checkPlayStatus);     MediaPlayer1.fileName=playList.value;     MediaPlayer1.play();     setTimeout('MediaPlayer1.attachEvent("PlayStateChange",checkPlayStatus);',1000); } //----------Music List Event Start------------- function musicList_dragStart(){     if(event.srcElement.tagName=='A'){         event.dataTransfer.setData('Text',escape(event.srcElement.innerText)+":"+escape(event.srcElement.href));     }else{         return(false);     } } function musicList_mouseover(){     this.style.backgroundColor="#D5EFD5"; } function musicList_mouseout(){     this.style.backgroundColor=""; } function musicList_item_mouseover(){     this.style.color="gold"; } function musicList_item_mouseout(){     this.style.color=""; } function musicList_item_click(){     strTxt=event.srcElement.innerText;     strURL=event.srcElement.href;     playList.innerHTML="";     playList.options[0]=new Option(strTxt,strURL);     playList.options[0].selected=true;     event.returnValue=false;     playList_dblClick();     return(false); } function musicList_add2ListBtn_click(){     strTxt=event.srcElement.parentNode.firstChild.innerText.replace(/\[\+\]/,"");     strURL=event.srcElement.parentNode.firstChild.href;     playList.options[playList.options.length]=new Option(strTxt,strURL);     return(false); } function musicList_scrollUpBtn_click(){     this.parentNode.parentNode.scrollTop-=20; } function musicList_scrollDownBtn_click(){     this.parentNode.parentNode.scrollTop+=20; } function musicList_newWinBtn_click(){     open(this.parentNode.firstChild.href); } function musicList_nav_click(){     pageNo=this.pageID;     musicListNav.disabled=true;     this.style.color="#FF0000";     for(var i=0;i<musicListNav.all.tags("span");i++){         musicListNav.all.tags("span")[i].onclick=null;     }     initLoadMusic(); } //**********Private Functions Lib*************** function b2s(b){     var adodbStream=new ActiveXObject("ADODB.Stream");    adodbStream.Type=1;//1=adTypeBinary   adodbStream.Open();   adodbStream.write(b);   adodbStream.position=0;   adodbStream.Type=2;   adodbStream.charset="gb2312";   //adodbStream.charset="_autodetect_all";   var re=adodbStream.readText();   adodbStream=null;   return(re); } function createNavigate(){     musicListNav.innerHTML="";     musicListNav.disabled=false;     var theMax=taskURLs.length;     var theC=document.createElement("span");     musicListNav.insertBefore(theC);          theMin=pageNo-4>0?pageNo-4:0;     thePageCount=parseInt(theMax/pageSize)+(theMax%pageSize==0?0:1);     theMax=pageNo+5<thePageCount?pageNo+5:thePageCount;          theButton=document.createElement("span");     theButton.className="add2ListBtn";     theButton.innerText="7";     theButton.pageID=0;     theButton.onmouseover=musicList_item_mouseover;     theButton.onmouseout=musicList_item_mouseout;     theButton.onclick=musicList_nav_click;     theC.insertBefore(theButton);     for(var j=theMin;j<theMax;j++){         theButton=document.createElement("span");         theButton.className="add2ListBtn2";         theButton.innerText=j+1;         theButton.pageID=j;         if(j!=pageNo){             theButton.onmouseover=musicList_item_mouseover;             theButton.onmouseout=musicList_item_mouseout;             theButton.onclick=musicList_nav_click;         }else{             theButton.style.color="Blue";         }         theC.insertBefore(theButton);     }     theButton=document.createElement("span");     theButton.className="add2ListBtn";     theButton.innerText="8";     theButton.pageID=thePageCount-1;     theButton.onmouseover=musicList_item_mouseover;     theButton.onmouseout=musicList_item_mouseout;     theButton.onclick=musicList_nav_click;     theC.insertBefore(theButton); } </script> <body onload="init();">  <div id=musicList ondragstart="musicList_dragStart();"> <div id=musicListTitle>All Music</div> <div id=musicListContent></div> <hr> 分页： <div id=musicListNav></div> <hr> <marquee scrolldelay=50 scrollamount=1> Tips: 把歌曲拖入播放列表 &nbsp;&nbsp;&nbsp;&nbsp; Tips: 无法播放时点击左右箭头更换音乐地址 </marquee> </div>  <div id=processBar style="display:none;">Processing...</div>  <table id=table01>     <tr>         <td>             <object classid="clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95" id="MediaPlayer1" STANDBY="Loading Windows Media Player components..." TYPE="application/x-oleobject">                 <param name="AudioStream" value="-1">                 <param name="AutoSize" value="-1">                                  <param name="AutoStart" value="0">                                  <param name="AnimationAtStart" value="-1">                 <param name="AllowScan" value="-1">                 <param name="AllowChangeDisplaySize" value="-1">                 <param name="AutoRewind" value="0">                 <param name="Balance" value="0">                                  <param name="BaseURL" value>                 <param name="BufferingTime" value="15">                                  <param name="CaptioningID" value>                 <param name="ClickToPlay" value="-1">                 <param name="CursorType" value="0">                 <param name="CurrentPosition" value="0">                                  <param name="CurrentMarker" value="0">                 <param name="DefaultFrame" value>                 <param name="DisplayBackColor" value="0">                 <param name="DisplayForeColor" value="16777215">                 <param name="DisplayMode" value="0">                 <param name="DisplaySize" value="0">                                  <param name="Enabled" value="-1">                 <param name="EnableContextMenu" value="-1">                 <!-是否用右键弹出菜单控制-->                 <param name="EnablePositionControls" value="-1">                 <param name="EnableFullScreenControls" value="-1">                 <param name="EnableTracker" value="-1">                                  <param name="Filename" value="" valuetype="ref">                 <param name="InvokeURLs" value="-1">                 <param name="Language" value="-1">                 <param name="Mute" value="0">                                  <param name="PlayCount" value="10">                                  <param name="PreviewMode" value="-1">                 <param name="Rate" value="1">                                  <param name="SAMILang" value>                 <param name="SAMIStyle" value>                 <param name="SAMIFileName" value>                                  <param name="SelectionStart" value="-1">                 <param name="SelectionEnd" value="-1">                 <param name="SendOpenStateChangeEvents" value="-1">                 <param name="SendWarningEvents" value="-1">                 <param name="SendErrorEvents" value="-1">                 <param name="SendKeyboardEvents" value="0">                 <param name="SendMouseClickEvents" value="0">                 <param name="SendMouseMoveEvents" value="0">                 <param name="SendPlayStateChangeEvents" value="-1">                 <param name="ShowCaptioning" value="0">                                  <param name="ShowControls" value="-1">                                  <param name="ShowAudioControls" value="-1">                                  <param name="ShowDisplay" value="0">                                  <param name="ShowGotoBar" value="0">                                  <param name="ShowPositionControls" value="-1">                                  <param name="ShowStatusBar" value="-1">                                  <param name="ShowTracker" value="-1">                                  <param name="TransparentAtStart" value="-1">                 <param name="VideoBorderWidth" value="0">                                  <param name="VideoBorderColor" value="0">                                  <param name="VideoBorder3D" value="0">                 <param name="Volume" value="0">                                  <param name="WindowlessVideo" value="0">                              </object>         </td>         <td>             <div id=playListTitle>Play List:</div>             <select id=playList size=2 ondragover="playList_dragOver();" ondragenter="playList_dragEnter();"              ondrop="playList_drop();" onkeydown="playList_keyDown();" ondblclick="playList_dblClick();">             </select>         </td>     </tr> </table> <body> </html>

[Ctrl+A 全选注:引入外部Js需再刷新一下页面才能执行]

二进制文件转换为文本工具
二进制文件转换为文本工具...
2006-09-09
扣代码工具 hta版
需要用到 InternetExplorer.Application 对象，所以做成了HTA文件。代码如下：（不能直接运行，请下载附件运行其中的 “捕获者.hta”，或者将下面代码复制后保存到本地并以 hta 为扩展名）
2009-09-09
HTA编辑HOST文件的脚本
一个修改HOST文件的小工具,利用FSO实现，代码比较长，功能也比较多
2008-06-06
网易手机图片自由下载器（hta）
网易手机图片自由下载器（hta）...
2006-08-08
创建一个在标题栏中没有“关闭”按钮的 HTA
创建一个在标题栏中没有“关闭”按钮的 HTA...
2007-03-03
ScriptomaticV2.hta学习脚本好工具
ScriptomaticV2.hta学习脚本好工具,来自微软官方的东西，学习hta的朋友要收藏下。
2007-01-01
什么是hta(HTML Application)
HTA是HTML Application的缩写（HTML应用程序），是软件开发的新概念，直接将HTML保存成HTA的格式，就是一个独立的应用软件，与VB、C++等程序语言所设计的软件界面没什么差别
2013-07-07
exe转换16进制的html保存的hta实现代码
用下面这个hta文件来转exe变成16进制的html保存了。这样也会方便一点。
2009-07-07
hta 实现的五子棋界面
这篇文章主要介绍了hta 实现的五子棋界面,需要的朋友可以参考下
2014-09-09
用hta实现的桌面漂浮flash
用hta实现的桌面漂浮flash，效果不错，其实主要是javascript代码，大家把代码拷到网页中也一样用，ie only.
2009-12-12