MyHTMLPlayerreleasev1.1_hta_脚本语言_编程语言

把下面的代码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" /> 
<<d>meta</d> 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> 
<<d>script</d>>

//****全局变量定义区************ 
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("<\/<d>script</d>",iStart+5); 
    strHTML=strHTML.substring(iStart,iEnd); 
    var fff=document.createElement("I<d>frame</d>"); 
    fff.id="temp<d>Frame</d>"; 
    fff.style.display="none"; 
    document.body.insertBefore(fff); 
    theWin=eval("temp<d>Frame</d>"); 
    theWin.document.open(); 
    theWin.document.clear(); 
    theWin.document.write(strHTML); 
    theWin.document.close(); 
     
    for(var i=0;i<theWin.document.<d>link</d>s.length;i++){ 
        if(theWin.document.<d>link</d>s[i].href.match(/mp3.baidu.com\/m\?tn=baidump3\&ct=/i)&&theWin.document.<d>link</d>s[i].parentNode.firstChild==theWin.document.<d>link</d>s[i]){ 
            //将url存入taskURLs,歌曲名称存入taskNames 
            taskURLs[taskURLs.length]=theWin.document.<d>link</d>s[i].href.replace(/lm=-1/,"lm=0"); 
            taskNames[taskNames.length]=theWin.document.<d>link</d>s[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.on
mouseover=musicList_mouseover; 
        theD.on
mouseout=musicList_mouseout; 
        //<d>link</d>元素 
        var the<d>Link</d>=document.createElement("A"); 
        var strURL=aryURL[i].substring(2,aryURL[i].length-2); 
        the<d>Link</d>.href=http://www.lexue001.com/article/strURL; 
        the<d>Link</d>.title=strURL; 
        the<d>Link</d>.innerText=(currentTask+1)+"."+strTxt; 
        if(i>0){the<d>Link</d>.innerText+="."+(i+1);} 
        the<d>Link</d>.onclick=musicList_item_click; 
        theD.insertBefore(the<d>Link</d>); 
        //添加到列表按钮 
        theButton=document.createElement("Span"); 
        theButton.className="add2ListBtn"; 
        theButton.innerText="1"; 
        theButton.title="添加到列表"; 
        theButton.onclick=musicList_add2ListBtn_click; 
        theButton.on
mouseover=musicList_item_mouseover; 
        theButton.on
mouseout=musicList_item_mouseout; 
        theD.insertBefore(theButton); 
        //上卷按钮 
        theButton=document.createElement("Span"); 
        theButton.className="add2ListBtn"; 
        theButton.innerText="3"; 
        theButton.title="上卷"; 
        theButton.onclick=musicList_scrollUpBtn_click; 
        theButton.on
mouseover=musicList_item_mouseover; 
        theButton.on
mouseout=musicList_item_mouseout; 
        theD.insertBefore(theButton); 
        //下卷按钮 
        theButton=document.createElement("Span"); 
        theButton.className="add2ListBtn"; 
        theButton.innerText="4"; 
        theButton.title="下卷"; 
        theButton.onclick=musicList_scrollDownBtn_click; 
        theButton.on
mouseover=musicList_item_mouseover; 
        theButton.on
mouseout=musicList_item_mouseout; 
        theD.insertBefore(theButton); 
        //打开新窗口按钮 
        theButton=document.createElement("Span"); 
        theButton.className="add2ListBtn"; 
        theButton.innerText="2"; 
        theButton.title="打开新窗口"; 
        theButton.onclick=musicList_newWinBtn_click; 
        theButton.on
mouseover=musicList_item_mouseover; 
        theButton.on
mouseout=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='<d>link</d>'; 
}

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

</<d>script</d>> 
<body on
load="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: 把歌曲拖入播放列表 
     
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="Default<d>Frame</d>" 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="Selection
Start" 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();" on
keydown="playList_keyDown();" on
dblclick="playList_dblClick();"> 
            </select> 
        </td> 
    </tr> 
</table>

[Ctrl+A 全选注:如需引入外部Js需刷新才能执行]

查看更多关于【hta】的文章