MyHTML Player release v1.1

(编辑：jimmy 日期: 2025/5/4 浏览：3 次 )

把下面的代码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();">   All Music  <hr> 分页：  <hr> <marquee scrolldelay=50 scrollamount=1> Tips: 把歌曲拖入播放列表 &nbsp;&nbsp;&nbsp;&nbsp; Tips: 无法播放时点击左右箭头更换音乐地址 </marquee>   Processing...                             <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>                               Play List:             <select id=playList size=2 ondragover="playList_dragOver();" ondragenter="playList_dragEnter();"              ondrop="playList_drop();" onkeydown="playList_keyDown();" ondblclick="playList_dblClick();">             </select>                <body> </html>

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

上一篇：鼠标放上去超链接的文字逐个加色效果
下一篇：HTML Component(HTC) 小应用