hta+html+js+mediaplay写的支持lrc显示的歌曲播放器

最新推荐文章于 2021-06-26 09:05:02 发布

qidizi

最新推荐文章于 2021-06-26 09:05:02 发布

阅读量2.8k

点赞数

文章标签： html function button input null object

本文链接：https://blog.csdn.net/qidizi/article/details/4741776

版权

<html>
<head>
<title>QPlayer1.01.080107</title>
<HTA:APPLICATION ID="QPlayer"
APPLICATIONNAME="QPlayer"
border="thin"
ICON = ""
MAXIMIZEBUTTON ="no"
WINDOWSTATE = ""
SINGLEINSTANCE = "yes"
SELECTION = "yes"
INNERBORDER = "no"
VERSION = "1.0" />
<style>
li{
    cursor:hand;
}

#selectedPath {
    background:green;
}

input{
     height:17px;
     vertical-align:middle;
     border:1px solid black;
}

body {
scrollbar-face-color: black;
scrollbar-highlight-color: black;
scrollbar-shadow-color: white;
scrollbar-darkshadow-color: black;
scrollbar-3dlight-color: white;
scrollbar-arrow-color: green;
scrollbar-track-color: black;
scrollbar-base-color: black;
}
</style>
</head>
<body scroll=no topmargin=0 leftmargin=0 rightmargin=0 bottommargin=0 style="background:black; color:white;" onselectstart="return false;" οncοntextmenu="return false;">

<span id=settingSpan style="top:68px; left:0px; width:100%; height:373px; position:absolute; display:none;background:black;"><p><input type=button value="关闭设置窗口" οnclick="showSettingSpan()" style="width:100%;"></p><span
style="height:330px; border:1px solid orange; overflow:auto; white-space:nowrap; padding:5px; color:orange;">
<li>歌词文件夹<input value="lrc" id=lrcFolder οnclick="showDrivers('lrcFolder.value = folderSpan.path');" style="width:186px;" CONTENTEDITABLE = false>
<li>删除歌曲后删除歌词<input id=delLrc type=button value="立刻删除" οnclick="changeDelLrcValue()" style="width:124px;" hidefocus>
<li>删除歌曲或歌词成功后<input id=alertDel type=button value="不提示" οnclick="this.value = (this.value == '提示'?'不提示':'提示');" style="width:108px;" hidefocus>
<li>单曲试听x秒(小于10禁用)<input id=testListen type=button value="0" οnclick="setTestTime()" style="width:83px;" hidefocus>
<li>歌曲在列表中显示方式<input id=musicTitle type=button value="文件名.格式" οnclick="changeMusicTitle()" style="width:108px;" hidefocus>
<li>普通歌词颜色<input id=lrcTopColor type=button value="orange" οnclick="showColorBar('setLrcTopColor')" style="width:172px;" hidefocus>
<li>高亮歌词颜色<input id=lrcBottomColor type=button value="black" οnclick="showColorBar('setLrcBottomColor')" style="width:172px;" hidefocus>
<li>列表字体颜色<input id=listFontColor type=button value="green" οnclick="showColorBar('setListFontColor')" style="width:172px;" hidefocus>
<li>列表背景颜色<input id=listBackColor type=button value="black" οnclick="showColorBar('setListBackColor')" style="width:172px;" hidefocus>
<li>列表高亮颜色<input id=listPlayColor type=button value="RGB(0, 250, 0)" οnclick="showColorBar('setListPlayColor')" style="width:172px;" hidefocus>
<li>置顶播放条目<input id=showPlaying type=button value="0" οnclick="this.value = (this.value == '1') ? 0 : 1;" style="width:172px;" hidefocus>
</span></span>

<span id=menu οnblur="hideListMenu()" οnclick="hideListMenu()" style="padding:4px; color:orange; border:1px dashed white; height:200px; width:200px; white-space:nowrap; overflow:auto; position:absolute; display:none; background:green;" type="disc">
<li οnclick="if (typeof(currentPlaying) == 'object'){currentPlaying.scrollIntoView(1)}">显示播放歌曲
<li οnclick="delList(listMenuSrc);">删除选中歌曲
<li οnclick="delList(currentPlaying);">删除播放中歌曲
<li οnclick="getfile(getFilePath());">添加单首歌曲
<li οnclick="showDrivers('getallfolder(folderSpan.path)');">添加歌曲文件夹
<li οnclick="openWeb(prompt('输入音乐网址(不是音乐文件下载地址)',''));">添加网络歌曲
<li οnclick="clearList()">清空播放列表
<li οnclick="delDeadList()">删除本地不存在列表
<li οnclick="saveList()">保存播放列表
<li οnclick="loadList(getFilePath())">载入播放列表
<li οnclick="showDrivers('downMusic(folderSpan.path)');">下载正播放中的文件
<li οnclick="showRenameBar(listMenuSrc);">重命名选中歌曲
<li οnclick="showFolder(listMenuSrc.filePath)">浏览选中文件
<li οnclick="showDrivers('sendTo(listMenuSrc.filePath,folderSpan.path)');">发送到...
<li οnclick="showSearch()">查找
<li οnclick="showSettingSpan()">播放器设置
<li οnclick="showFolder(lrcFolder.value)">打开歌词目录
<li οnclick="showFolder(htaPath)">打开程序目录
<li οnclick="viewSource()">查看源代码
<li οnclick="showTestWin()">打开测试窗口
</span>

</div>

</body>
</html>
<script>

function reportError(msg,url,line)
{
alert("当前页的脚本发生错误: /n/n信息: " + msg + "/n/n行：" + line);
return true;
}
window.onerror = reportError;

function show(html)
{
alertSpan.style.display = "";
alertSpan.innerHTML = '<input type=button value=隐藏提示信息 οnclick="alertSpan.style.display = /'none/';"><br>' + html;
}

</script>

var fso = new ActiveXObject("Scripting.FileSystemObject");
var runtime = 100;
var foldersarray;
var fsotime;
var fp = null;
var currentFolder;//文件夹数组的下标
var playTimer;
var htaPath = fso.getparentfoldername(unescape(location.pathname).match(/[a-z]/:[^/:/.]+/.hta$/gi)) + "//";//根目录
var defaultList = htaPath + "QplayerList";//默认播放列表
var lrcTimer;//定时显示歌词
var webTimer;//测试网页载入状态
var listMenuSrc = undefined;//列表点左键对象
var showList = 0; //显示当前歌曲列表
var scrollTimer;//定时滚动句柄
var showLrcTimer;//换歌词句柄
var lrcLeft;
var positioner; //position 定时句柄
var moveObj = null;//移动对象
var winWidth = 0;//窗口横向边框宽度
var winHeight = 0; //窗口坚向边框宽度
var thisLrcWidth = 0;//当前lrc

function getFilePath()
{
filePath.click();
return filePath.value;
}

function showDrivers(functionH)
{
    folderSpan.evalText = functionH;
    folderSpan.style.display = "";

    var drvs = new Enumerator(fso.Drives);
    var drvsText = '<input type=button value="取消" οnclick="folderSpan.style.display =/'none/'; folderSpan.evalText = /'/'; folderSpan.path = /'/';">';
    drvsText += '<input type=button value="确定" οnclick="folderSpan.style.display =/'none/'; eval(folderSpan.evalText);">';
    drvsText += '<dir id=myDrivers οndblclick="showFolders(event.srcElement, 0)" οnclick="showFolders(event.srcElement, 1)" style="width:255px; height:310px; overflow:auto;">';
    var drv;
    var liType;
    var disabled;
    var typeText;
    var folderL;

         for (; !drvs.atEnd(); drvs.moveNext())
         {
            drv = drvs.item();
            liType = "circle";
            disabled = " disabled";
            typeText = "本地磁盘";

            if (drv.IsReady)
            {//可用
               disabled = "";


               try
               {
                    folderL = fso.getfolder(drv.rootfolder).SubFolders.count;
               }catch(e)
                {
                        folderL = 0;
                }

               if (folderL)
               {//有文件夹
                 liType = "disc";
               }

               drvsText += '<li type="' + liType + '" path="' + drv.rootfolder + '"' + disabled + '>' + typeText + drv.VolumeName + "(" + drv.DriveLetter + ")";
            }else
             {
                   switch (drv.DriveType)
                  {
                     case 0: typeText = "未知设置"; break;
                     case 1: typeText = "移动磁盘"; break;
                     case 2: typeText = "软盘"; break;
                     case 3: typeText = "网络磁盘"; break;
                     case 4: typeText = "光驱"; break;
                     case 5: typeText = "闪存磁盘"; break;
                  }

                   drvsText += '<li type="' + liType + '" path="' + drv + '"' + disabled + '>' + typeText + "(" + drv.DriveLetter + ")";
             }
         }

   drvsText += '</dir>';

   folderSpan.innerHTML = drvsText;
}

function getfile(path)
{
    　if ( fso.fileExists(path))
　　 {
        addlist(path);
      }else if (path != "")
　　     {
            show("出错啦！/n[" + path + "] 文件不存在!");
          }
}

function mygetfolder(path){//自己递归时没参数

      if(path != undefined)
      {
         clearTimeout(fsotime);
         fp = null;
         currentFolder = 0;
         foldersarray = new Array(fso.getFolder(path).path);
      }

      try
      {
         if(fp == null)
         {
           var folderObj = fso.getFolder(foldersarray[currentFolder++]);
           //show('正在获取后面文件夹下的文件夹...<br>' + folderObj);
           fp = new Enumerator(folderObj.subFolders);
         }

      }catch(e)
       {
         //show("已把所有文件夹读取完成");
         fp = null;
         clearTimeout(fsotime);
         return doallfile();
       }

      if(!fp.atEnd())
      {
         foldersarray[foldersarray.length] = fp.item().path;
         fp.moveNext();
      }
       else
       {
           fp = null;
       }

       clearTimeout(fsotime);

       if (fsotime == "abort")
       {
          show("文件夹读取的操作已被取消");
       }else
        {
           fsotime = setTimeout("mygetfolder()",runtime);
        }

}

function doallfile(start){

         try
         {
            foldersarray.length < 1;
         }catch(e)
          {
　　　　　　return show("请先点[获取全部文件夹]获取要处理的文件夹对象");
          }

         if(fp == null)
         {
            try
            {
               fp = new Enumerator(fso.getfolder(foldersarray.shift()).files);
            }catch(e)
             {
                show("已完成音乐文件添加");
                theno = fp = nowi = null;
                return clearTimeout(fsotime);
             }
         }

         if(!fp.atEnd())
         {
           try
           {
                addlist( fp.item().path );
           }catch(E)
            {
               show("执行自定义处理文件方法时出错：" + E.description);
            }
           fp.moveNext();
         }
          else
         {
           fp = null;
         }

       clearTimeout(fsotime);

       if (fsotime == "abort")
       {
          show("文件读取的操作已被取消");
       }else
        {
           fsotime = setTimeout("doallfile(1)",runtime);
        }

}

function addlist(filePath, fileName)
{
        if ( (filePath.indexOf(":") == 1)
           && (/^[a-z]:[][^:]+/.(?:mp3)|(?:mid)|(?:midi)|(?:wma)|(?:asf)|(?:wmv)|(?:avi)|(?:wav)|(?:au)|(?:ape)$/gi.test(filePath) == false) )
        {//非以上格式文件不加
           return 0;
        }

        if (fileName == undefined)
        {
            fileName = filePath;
        }

        //show('添加:<br>' + filePath);

        switch (musicTitle.value)
        {
             case "文件名.格式":
                fileName = fso.getfile(fileName).name;
                break;
             case "文件名":
                fileName = fso.getbasename(fileName);
                break;
             case "完整路径":
                ;
                break;
        }

        list.insertAdjacentHTML("beforeEnd",'<li filePath="' + filePath + '">' + fileName );
}

function changePlayMode()
{
        switch(playMode.innerText)
        {
           case "`"://顺序
              playMode.alt = "随机选择";
              playMode.innerText = "-";//随机
              break;
           case "-":
              playMode.innerText = "q";//单曲连播
              playMode.alt = "单曲循环";
              break;
           case "q":
              playMode.innerText = "`";
              playMode.alt = "顺序和循环";
              break;
        }
}

function playPause(obj)
{
      if (mplayer.controls.isAvailable('pause'))
      {
         mplayer.controls.pause();
      }else if (mplayer.controls.isAvailable('play'))
       {
         mplayer.controls.play();
       }
}

function stopPlayer()
{
mplayer.controls.stop();
}

function positionStart(obj)
{
    if (mplayer.controls.isAvailable("currentPosition"))
    {
      moveObj = obj;
      obj.setCapture(true);
      clearInterval(positioner);
      changePosition();
    }
}

function positionEnd()
{
   if (moveObj != null)
   {
       moveObj.releaseCapture();
       moveObj=null;
       mplayer.controls.currentPosition = parseInt(positionBar.style.width) * mplayer.currentMedia.duration / 100;
   }
}

function setPosition()
{
     try
     {
         positionNum.innerText = mplayer.controls.currentPositionString;
         positionBar.style.width = mplayer.controls.currentPosition * 100 / mplayer.currentMedia.duration;
     }catch(e){}
}

function clickPlay(obj)
{
if (obj.tagName != "LI")
{
return 0;
}

if(typeof(currentPlaying) != "object")
{
obj.id = "currentPlaying";
}
playthis(obj);
}

function showListMenu(obj)
{
      menu.style.display = '';
      menu.focus();
      menu.style.top = event.clientY;
      menu.style.left = event.clientX;
      listMenuSrc = obj;

      if (obj.tagName == "LI")
      {
         listMenuSrc.style.background = "yellow";
      }
}

function hideListMenu()
{
listMenuSrc.style.background = "";
menu.style.display = "none";
}

function showSearch()
{
         show('输入要查找文字后回车<br>'
            + '<input οnkeydοwn="searchStart(this);" style="width:100%;" index=0>'
            + '<BR><span id=found></span>');
}

function clearList()
{
   if (typeof(currentPlaying) == "object")
   {
         currentPlaying.removeAttribute("id");
   }

   list.innerHTML = "";
   currentFolder = undefined;
}

    fp.close();
    fp = null;

    if (lrcArray.length < 3)
    {
      return lrcArray = null;
    }

    lrcArray.sort(timeSort);
    lrcText = lrcArray.join("").replace(/,/g, " ");
    lrcArray = null;

    bottomLrc.innerHTML = topLrc.innerHTML = lrcText;

    showLrc1();
}

function lrcDisplay(i)
{
bottomLrc.children[i].children[0].style.display = topLrc.children[i].children[0].style.display = "inline";
bottomLrc.children[i].style.width = topLrc.children[i].style.width = topLrc.children[i].offsetWidth;
}

function lrcHidden(i)
{
try{
bottomLrc.children[i].children[0].style.display = topLrc.children[i].children[0].style.display = "none";
}catch(e){}
}

function setLrcLeft(px)
{
lrcLeft -= px;
topLrc.style.left = bottomLrc.style.left = lrcLeft;
}

function chanleLrc()
{
       clearTimeout(showLrcTimer);
       clearTimeout(lrcTimer);
       clearTimeout(scrollTimer);
}

function showLrc1()
{
       bottomLrc.style.left = "0px";
       topLrc.style.left = "0px";
       lrcLeft = 0;
       showLrc2(0);
}

function showLrcButton(yes)
{
      if (yes)
      {
         lrcButton.style.display = "";
      }else
       {
         lrcButton.style.display = "none";
       }
}

function closeSearchWin()
{
winSpan.style.display = 'none';
}

function downLrc(lrcName)
{
   var url = window.clipboardData.getData('Text');
   var lrcPath = lrcFolder.value + "//" + lrcName + ".lrc";

   if (url.match(/http:.+/gi))
   {
     downFile(url, lrcPath, 0);
   }
}

function reloadLrc()
{
chanleLrc();
getLrc(1);
}

function showFolder(path)
{
   var wshshell = new ActiveXObject("WScript.Shell");
   wshshell.run('Explorer /select,"' + path + '"');
   wshshell = null;
}

function sendTo(pathFrom, pathTo)
{
   try
   {
      fso.copyFile(pathFrom, pathTo, false);
      show("发送完成");
   }catch(e)
   {
     show("复制文件出错:" + e.description);
   }
}

function showLrcFile()
{
   if (typeof(currentPlaying) != "object")
   {
         return 0;
   }

   var lrcName = fso.getbasename(currentPlaying.outerText);
   var lrcPath = lrcFolder.value + "//" + lrcName + ".lrc";
   var wshshell = new ActiveXObject("WScript.Shell");
   wshshell.run('Notepad.exe "' + lrcPath);
   wshshell = null;
}

function typeTime()
{
         var position = mplayer.controls.currentPositionString;

         if ( enableType.checked
          && (editText.document.selection.type == "Text")
          && (position != "")
            )
         {
            editText.document.selection.createRange().text = "[" + position + "]";
         }
}

function changeDelLrcValue()
{
    switch (delLrc.value)
    {
        case "不删除":
           delLrc.value = "提示删除";
           break;
        case "提示删除":
           delLrc.value = "立刻删除";
           break;
        case "立刻删除":
           delLrc.value = "不删除";
           break;
    }
}

function viewSource()
{
   var wshshell = new ActiveXObject("WScript.Shell");
   wshshell.run('Notepad.exe "' + location.pathname + '"');
   wshshell = null;
}

function showTestWin()
{
   show('输入代码按CTRL+ENTER键运行<br>'
      + '<textarea style="width:100%;" rows=21 '
      + ' οnkeypress="if (event.keyCode == 10){eval(this.value);}">'
      + '</textarea>');
}

function changeMusicTitle()
{
    switch (musicTitle.value)
    {
        case "文件名.格式":
           musicTitle.value = "文件名";
           break;
        case "文件名":
           musicTitle.value = "完整路径";
           break;
        case "完整路径":
           musicTitle.value = "文件名.格式";
           break;
    }
}

function setLrcTopColor(theRGB)
{
topLrc.style.color = theRGB;
lrcTopColor.value = theRGB;
}

function setLrcBottomColor(theRGB)
{
bottomLrc.style.color = theRGB;
lrcBottomColor.value = theRGB;
}

function setListFontColor(theRGB)
{
list.style.color = theRGB;
listFontColor.value = theRGB;
}

function setListBackColor(theRGB)
{
list.style.background = theRGB;
listBackColor.value = theRGB;
}

function setListPlayColor(theRGB)
{
list.style.background = theRGB;
listBackColor.value = theRGB;
}

function showColorBar(funName)
{
         show(
               '请在三色条中点下左键后不放,然后拉动调配颜色<br>'
             + '<input id=redColor value=0 on=0 οnmοusedοwn="this.on=1;" '
             + 'onmousemove ="changeColorName(this, /''+ funName + '/');" οnmοuseup="this.on=0;" '
             + 'οnmοuseοut="this.on=0;" '
             + 'style="cursor:default; width:260px; background: red; text-align:center; " '
             + 'contenteditable=false UNSELECTABLE=on><BR>'
             + '<input id=blueColor value=0 on=0 οnmοusedοwn="this.on=1;" '
             + 'onmousemove ="changeColorName(this, /''+ funName + '/');" οnmοuseup="this.on=0;" '
             + 'οnmοuseοut="this.on=0;" '
             + 'style="cursor:default; width:260px; background: blue; text-align:center;" '
             + 'contenteditable=false UNSELECTABLE=on><br>'
             + '<input id=greenColor value=0 on=0 οnmοusedοwn="this.on=1;" '
             + 'onmousemove ="changeColorName(this, /''+ funName + '/');" οnmοuseup="this.on=0;" '
             + 'οnmοuseοut="this.on=0;" '
             + 'style="cursor:default; width:260px; background: green; text-align:center;" '
             + 'contenteditable=false UNSELECTABLE=on><br>'
             );
}

function changeColorName(obj, funName)
{
   var colorNumber = event.x - obj.offsetLeft - 2;

if (
      (obj.on == "1")
   && (colorNumber > -1)
   && (colorNumber < 251)
     )
{
   obj.value = colorNumber;
   var theRGB = "RGB(" + redColor.value + ", " + blueColor.value + ", " + greenColor.value + ")";
   eval(funName + "(theRGB)");
}

}

function showSettingSpan()
{
         switch (settingSpan.style.display)
         {
                case "":
                    settingSpan.style.display = "none";
                    break;
                default:
                    settingSpan.style.display = "";
         }
}

function SaveSetting()
{
       var settingJs = "function loadSetting()"
                    + '{'
                    + 'showPlaying.value = ' + showPlaying.value + ';'
                    + 'volNumber.innerText = "音量" + (mplayer.settings.volume = ' + mplayer.settings.volume + ') + "%";'
                    + 'volBar.style.width = mplayer.settings.volume / 2;'
                    + 'playMode.innerText = "' + playMode.innerText + '";'
                    + 'lrcFolder.value = "' + lrcFolder.value.replace("//", "

") + '";'
                    + 'if (!fso.folderExists(lrcFolder.value))'
                    + '{'
                    + 'lrcFolder.value = htaPath + "lrc";'
                    + 'fso.CreateFolder(lrcFolder.value);'
                    + '}';

                    if (typeof(currentPlaying) == "object")
                    {
                       settingJs += 'playthis(currentPlaying, 1, ' + mplayer.controls.currentPosition + ');';
                    }

                    if (mplayer.playState == 3)
                    {
                       settingJs += 'mplayer.controls.play();';
                    }

                     settingJs += 'delLrc.value = "' + delLrc.value + '";';
                     settingJs += 'alertDel.value = "' + alertDel.value + '";';
                     settingJs += 'testListen.value = "' + testListen.value + '";';
                     settingJs += 'musicTitle.value = "' + musicTitle.value + '";';
                     settingJs += 'topLrc.style.color = lrcTopColor.value = "' + lrcTopColor.value + '";';
                     settingJs += 'bottomLrc.style.color = lrcBottomColor.value = "' + lrcBottomColor.value + '";';
                     settingJs += 'list.style.color = listFontColor.value = "' + listFontColor.value + '";';
                     settingJs += 'list.style.background = listBackColor.value = "' + listBackColor.value + '";';
                     settingJs += 'listPlayColor.value = "' + listPlayColor.value + '";';
                    settingJs += '}';

       var settingFile = fso.CreateTextFile(htaPath + "setting.js", true, true);
       settingFile.write(settingJs);
       settingFile.close();
       settingFile = null;
}

function update(ver)
{

}

function getWinBorder()
{
moveTo(0,0);
winWidth = window.screenLeft * 2;
winHeight = window.screenTop + window.screenLeft;
showListWin();
}

function window.onload()
{
     getWinBorder();
     update(document.title);
     loadList(defaultList);
     try{ loadSetting(); }catch(e){show("自定义播放器的设置文件丢失,还原播放器为默认状态!");}
}

function window.onbeforeunload()
{

       var listFile = fso.CreateTextFile(defaultList, true, true);
       listFile.write(list.innerHTML);
       listFile.close();
       listFile = null;

       SaveSetting();
}

</script>

<SCRIPT LANGUAGE = "JScript" FOR = mplayer EVENT = PositionChange(oldPosition, newPosition)>
         chanleLrc();
         getLrc();
         clearInterval(positioner);
         positioner = setInterval("setPosition();", 1000);
</SCRIPT>

switch (NewState){
    case 1://stop
         playPauseB.innerText = "4";
         clearInterval(positioner);
         setPosition();
         chanleLrc();
         break;
    case 2://pause
         chanleLrc();
         clearInterval(positioner);
         playPauseB.innerText = "4";
         break;
    case 3://playing
         clearInterval(positioner);
         positioner = setInterval("setPosition();", 1000);
       playPauseB.innerText = ";";
       if (parseInt(testListen.value))
       {
         chanleLrc();
         bottomLrc.innerText = "";
         topLrc.innerText = "试听模式";
         clearTimeout(playTimer);
         playTimer = setTimeout("playNewMusic(1);", parseInt(testListen.value) * 1000);
       }else
        {
          getLrc();
        }
        break;
    case 8://MediaEnded Media item has completed playback.
         clearInterval(positioner);
         clearTimeout(playTimer);
         playTimer = setTimeout("playNewMusic(1);", 800);
         break;
    default:
         playPauseB.innerText = 4;
         clearInterval(positioner);
         chanleLrc();
         setPosition();
}
</SCRIPT>