MyHTML Player release v1.1

所属分类：脚本专栏 / hta 阅读数： 2087

收藏 0赞 0分享

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

更多精彩内容其他人还在看

MyHTML Player release v1.1

从 HTA 中启动应用程序

ASP 辅助工具(hta版)

hta编写的软件管理工具0.1(IE7.0测试通过)

exe转换16进制的html保存的hta实现代码

VBS脚本的GUI界面 HTA简明教程（网络搜集整理）

winXP下用VBS写的代码编辑器

扣代码工具 hta版

用hta实现的桌面漂浮flash

hta编写的消费记录程序

hta编写的常用工具箱(常用工具快捷方式等)

网络赚钱

站长故事