MyHTML Player release v1.1

2005年11月30日

把下面的代码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> 
 
<body onload="init();"> 
 
<div id=musicList ondragstart="musicList_dragStart();"> 
<div id=musicListTitle>All Music</pre> 
<div id=musicListContent></pre> 
<hr> 
分页：
 
<div id=musicListNav></pre> 
<hr> 
<marquee scrolldelay=50 scrollamount=1> 
Tips: 把歌曲拖入播放列表 
     
Tips: 无法播放时点击左右箭头更换音乐地址 
</marquee> 
</pre>

<div id=processBar style="display:none;">Processing...</pre>

<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:</pre> 
            <select id=playList size=2 ondragover="playList_dragOver();" ondragenter="playList_dragEnter();" 
             ondrop="playList_drop();" onkeydown="playList_keyDown();" ondblclick="playList_dblClick();"> 
            </select> 
        </td> 
    </tr> 
</table>