批处理播放器 【 BatMPlayer  V12.0  圣诞测试版  】
                2011年12月23日，上传测试版到附件，请下载附件测试！有意见请留言！
                   前几个月一直在对其大修，终于修成正果了，(*^__^*) 嘻嘻……

 
部分代码在页面无法显示，请下载附件！————附件在图片底下
复制代码

歌词版更新历史：
v6.6 2010.11.26 修改了歌词部分，变成：BatMPlayerMiniLyrics  星空版，尽量把花俏的界面变成主题突出的界面。郁闷，搞乱了一个变量，不懂在搜索MPLayer时是否会出错。歌词模式可以正常使用了，不会出错。
v6.5 2010.11.25 修正了一些小问题，如录入程序部分，歌词播放部分等。颜色部分仍然无法修正。
v6.3 2010.11.05 修正了一些小bug。完善动态歌词显示，但效率有待提高。修正歌词搜索，能够实现“歌曲名 - 歌手名.mp3”模式的匹配，但歌曲名含有部分英文括号时可能会发生意外退出。
v6.1 2010.11.02 采用新的歌词显示办法，除了汇编sleep.exe延时外，不采用其它第三方。
复制代码

优点：
1、实时显示播放进度；
2、可以使用快捷键控制；
3、支持播放的格式多，可以播放视频；
4、支持自定义字幕；
5、播放快捷方便；
6、支持歌词播放；
缺点：
1、容易出现一些小故障；
2、需额外安装MPlayer程序（本程序使用暴风影音自带的MPlayer.exe）。
复制代码

更新历史：
      2010.11.02
      v5.4   修正歌词匹配，使得歌词查找更加准确。
      2010.10.31
      v5.3   修正输入和全盘搜索问题，完善歌词显示。
      v5.2   完善歌词功能，因搜索问题，有些歌词匹配不上。 
      2010.10.29
      v5.1   简化了网络搜索功能；添加了歌词功能，但只能是测试用，还未能达到netbenton写的那种效果。继续期待netbenton的歌词显示。
      2010.10.25
      v4.4   修正找不到播放器以及播放背景音乐时发生的错误；修正自动关机。期待netbenton的歌词。
      2010.10.20
      v4.3   修正找不到播放器时显示错误；修正文件搜索上的错误；添加网络音乐搜索；修正一些细节错误；没人帮忙测试和反馈，郁闷。
      2010.10.20
      v4.1 去掉多余代码，进行全局代码优化，代码更精简高效；进行初步测试，改进可能无法找到播放器的BUG；
      v4.2 建立播放器参数设置项，尝试歌词显示项，但没有解决。 
      2010.10.17
       v3.5   添加CMD和BAT模块，可以编写批处理；修改一些细节，如快捷键。
      2010.10.16    
       v3.4   进一步优化，使得界面支持编写CMD和BAT；改善背景音乐播放部分。
      2010.10.15
       v3.2   采用当前流行的色彩设置，美化界面；进一步进行测试，解决各种bug，美化代码。
       v3.1   全面更新代码，优化功能，添加注释。但尚未经过广泛测试。
      2010.10.11 
       v2.1   1、美化界面，添加背景音乐；2、添加播放循环模式；3、完善说明。
      2010.10.10
      1、改善界面；2、完善mplayer路径设置和自动搜索；3、修正帮助说明；4、考虑能否使用老板键；
      2010.10.09
      1、修正一些代码问题；2、增加方便各种快捷播放的输入部分；3、建立通用播放器模板，以便能支持MPlayer以外的播放器；4、尝试写歌词显示器。
复制代码

wget -ftp://username: password@ftpserver/directory/movie.rmvb -O - | mplayer -cache 8192 -
复制代码

:PLAY_FILE
CALL :PLAY
!MPP! !INPUT!
GOTO MAIN
复制代码

@echo off 
setlocal ENABLEDELAYEDEXPANSION
color 2b

:main %1
if "%1" == "" echo 歌词不存在! & goto :暂停
for /f "tokens=1,2 delims=:[]" %%a in ('findstr "ti:" %1') do set _ti=%%b
title=%_ti%
for /f "tokens=1,2 delims=[]" %%a in ('findstr "[0-9][0-9]:[0-5][0-9]." %1') do set "#%%a=%%b"
set 初始时间=%time%
set /a 初始分=%初始时间:~3,2%
set /a 初始秒=%初始时间:~6,2%

:loop
set 临时时间=%time%
call :临时时间 %临时时间:~3,2% %临时时间:~6,2% %临时时间:~9,2%
at |findstr "@" >nul && call :cmdd
at |findstr "$" >nul && call :contrl
for /f "tokens=1,2 delims==" %%a in ('set # ^|findstr "%ktime%"') do call :显示歌词 %%b
goto :loop
goto :eof


:临时时间
set varm=%1 & set vars=%2 & set varms=%3
if %varm% LSS %初始分% (set /a varm=varm+60)  2>nul
if %vars% LSS %初始秒% (set /a varm=varm-1 & set /a vars=vars+60)  2>nul
set /a 临时分=varm-初始分  2>nul
set /a 临时秒=vars-初始秒  2>nul
IF %临时分% LEQ 9 set 临时分=0%临时分%
IF %临时秒% LEQ 9 set 临时秒=0%临时秒%
set ktime=%临时分%:%临时秒%
goto :eof

:显示歌词
if NOT "%*" == "" cls
echo.%*
goto :eof

:cmdd 插入命令行语句
for /f "tokens=1* delims=@" %%a in ('at ^|findstr "[0-9]"') do at /del /y & %%b
goto :eof

:contrl 控制歌词,比如暂停,停止,下一首等。
for /f "tokens=2,3 delims=$" %%a in ('at ^|findstr "[0-9]"') do (
        at /del /y
        echo %%b | findstr /i "pause" && goto :暂停
        echo %%b | findstr /i "next" && call :main %%c
        echo %%b | findstr /i "stop" && call :stop
        echo %%b | findstr /i "goto" && call :gt %%c
)
goto :eof

:暂停
title=%_ti% -- 暂停
for /f "tokens=2,3 delims=$" %%a in ('at ^|findstr "[0-9]"') do (
        at /del /y
        echo %%b | findstr /i "pause" && call :暂停
        echo %%b | findstr /i "next" && call :main %%c
        echo %%b | findstr /i "stop" && call :stop
        echo %%b | findstr /i "goto" && call :gt %%c
        echo %%b | findstr /i "start" && goto :loop
)
goto :暂停

:stop
title=%_ti% -- 停止
for /f "tokens=2,3 delims=$" %%a in ('at ^|findstr "[0-9]"') do (
        at /del /y
        echo %%b | findstr /i "pause" && call :暂停
        echo %%b | findstr /i "next" && call :main %%c
        echo %%b | findstr /i "stop" && goto :stop
        echo %%b | findstr /i "goto" && call :gt %%c
        echo %%b | findstr /i "start" && call :main %%c
)
goto :stop


:gt mm:ss 参数为歌曲播放时间
set ktime=%*
goto :eof
复制代码

 
`i`lrcpath= "c:\Drivers\Camera\UsbCam\321\" "d:\Program Files\TTPlayer\Lyrics\" "f:\geci\" "f:\批处理之家论坛下载 _cmdlrc\"
`i`mp=D:\mplayer\mplayer.exe
复制代码