MyHTML Player release v1.1

脚本专栏 2024/7/1 佚名

3 2 1

把下面的代码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需再刷新一下页面才能执行]

MyHTML,Player,release,v1.1

标签：

MyHTML,Player,release,v1.1

免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com

白云城资源网 Copyright www.dyhadc.com

评论“MyHTML Player release v1.1”

MyHTML Player release v1.1

暂无“MyHTML Player release v1.1”评论...

MyHTML Player release v1.1

MyHTML,Player,release,v1.1

鼠标放上去超链接的文字逐个加色效果

HTML Component(HTC) 小应用

评论“MyHTML Player release v1.1”

更新日志

友情链接