• 批处理版MPlayer播放器(甲兵时代原创批处理)(下)






    注意,由于空间不支持显示退格键,需要自己手动补上,方法如上图:

    接上篇:

    批处理版音视频播放器上(甲兵时代原创批处理)


    :Bc
    cls
    COLOR 2F
    echo.
    call :colour "2E" "                                  批处理编辑器"
    echo.&echo.
    call :colour "2E" "      ★ 可编写一般的批处理代码,可以复制粘贴和拖入BAT文件查看代码。★"&echo.
    call :colour "2E" "      ★ 结果mpb.bat在临时文件夹Temp下。变量延迟【SETL】for【FOR】。★"&echo.
    call :colour "2E" "      ★ 新建【XJ】另存【LC】执行【ZX】打开【DK】C【CMD】退出【Q】。★"&echo.
    echo. __________________________________________________________________________
    echo.
    echo @echo off>"%temp%mpb.bat"
    set var_num=0
    :bc_sets
    set /a var_num+=1
    if !var_num! lss 10 (
        call :colour "2C" "BEdit0!var_num!﹥"
        set /p "input="
        ) else (
        call :colour "2C" "BEdit!var_num!﹥"
        set /p "input="
        )

    :bc_cl
    if /i "!input!"=="c" (
        echo.
        call :colour "0C" "您已经入命令行提示符界面!返回编辑器请使用【EXIT】命令" 
        echo.&echo.
        set /p input=%~pds0&call :input_sets&CMD /k !input! 
        echo.
        call :colour "0C" "按任意键返回编辑器……" 
        echo.
        pause>nul
        echo.
        goto bc_sets
    )
    :bc_hotkey
    if /i "!input!"=="setl" (
        set input=setlocal enabledelayedexpansion
        echo !input!>>"%temp%mpb.bat"&echo !input!
        goto bc_sets
        )
    if /i "!input!"=="for" (
        set "input=for /f "tokens=* delims=" %%%%a in (".") do echo %%%%a"
        echo !input!>>"%temp%mpb.bat"&&echo !input!
        goto bc_sets
        )
    if /i not "!input!"=="q" (
        if exist "!input!" (
        type "!input!"
        echo.
        call :colour "0C" "按任意键返回编辑器……" 
        echo.
        pause>nul
        echo.
        goto bc_sets
        )
        :xj
        if /i "!input!"=="xj" (
            del /q /f /s /a "%temp%\_mpb.bat">nul 2>nul
            echo @echo off>"%temp%mpb.bat"
            echo echo.>>"%temp%mpb.bat"
            echo echo.>>"%temp%mpb.bat"
            echo echo.>>"%temp%mpb.bat"
            echo ::pause>>"%temp%mpb.bat"
            echo ::exit>>"%temp%mpb.bat"
            goto bc
        )
        :zx
        if /i "!input!"=="zx" (
            del /q "%temp%\_mpb.bat">nul 2>nul
            echo echo.>>"%temp%mpb.bat"
            echo pause>>"%temp%mpb.bat"
            echo exit>>"%temp%mpb.bat"
            copy "%temp%mpb.bat" "%temp%\_mpb.bat">nul 2>nul
            start "mpb" "%temp%\_mpb.bat"
            goto bc_sets
        )
        :dk
        if /i "!input!"=="dk" (
            echo pause>>"%temp%mpb.bat"
            echo exit>>"%temp%mpb.bat"
            start "" notepad.exe "%temp%mpb.bat"
            goto bc_sets
        )
        :lc
        if /i "!input!"=="lc" (
            set /p mbp=另存为(桌面【ZM】当前【DQ】返回【Q】):
            if /i "!mbp!"=="" goto bc_sets
            if /i "!mbp!"=="Q" goto bc_sets
            if /i "!mbp!"=="zm" (
                echo pause>>"%temp%mpb.bat"
                echo exit>>"%temp%mpb.bat"
                copy "%temp%mpb.bat" "%USERPROFILE%桌面"
                goto bc_sets
            )
            if /i "!mbp!"=="dq" (
                echo pause>>"%temp%mpb.bat"
                echo exit>>"%temp%mpb.bat"
                copy "%temp%mpb.bat" "%~pd0"
                goto bc_sets
                )
            echo pause>>"%temp%mpb.bat"
            echo exit>>"%temp%mpb.bat"
            copy "%temp%mpb.bat" "!mbp!"&goto bc_sets
        )
        call :input_sets
        echo !input!>>"%temp%mpb.bat"
        goto bc_sets

    goto :eof

    :help
    cls
    COLOR 27
    echo.
    call :colour "2E" "                                使用说明"&echo.
    echo. __________________________________________________________________________
    echo. 
    echo      ★ 按提示输入后需回车才执行,但播放中使用控制键时一般不需回车。
    echo      ★ 将(单个)音频、视频文件或文件列表(TXT格式)拖入窗口并回车开始播放。
    echo      ★ 将(多个)媒体文件拖至程序图标(非窗口)自动生成播放列表并自动播放。
    echo      ★ 可直接输入盘符、文件夹和文件路径回车播放。
    echo      ★ 可使用TAB键;可直接回车播放_playlists.txt中的歌曲,但不是每次有效。
    echo      ★ 可使用URL(http、rtsp、vcd、dvd类)播放网络音乐和设备媒体。
    echo      ★ 网络音乐存至My Documents\_urlplaylists.txt,需保证URL正确和网络流畅。
    echo      ★ 使用循环模式需先设置播放列表,且只对当前播放有效。
    echo      ★ 使用歌词显示,仅窗口输入有效;歌词模式时播放列表中的歌曲不宜多;
    echo      ★ 可在主界面使用DOS命令、CMD和BAT编辑器,可用【%%mpp%%】调取播放器。
    echo      ★ 请使用并熟悉全局通用键和播放控制键,可网络搜索音乐和设置定时关机。
    echo      ★ 本程序默认使用暴风影音自带的MPlayer.exe,须先安装MPlayer(或暴风影音)。
    echo      ★ 无法播放请手动设置其路径,或%SYSTEMROOT%MPlayerPath.ini中的路径。
    echo      ★ 可通过MPlayer的官方网站下载原版MPlayer程序: http://www.mplayerhq.hu
    echo      ★ MPlayer偶尔会出现一些小故障,与MPlayer有关的更多内容请参考其官方说明。
    echo.
    echo. __________________________________________________________________________
    echo.
    pause
    call :entry
    call :play_sets
    call :about
    goto :eof
    :entry
    COLOR 27
    cls
    echo.
    call :colour "2E" "                               通用输入键"&echo.
    echo. __________________________________________________________________________ 
    call :colour "2F" "                    名词    热键    说明"
    echo.
    echo                     quit     Q      退出返回上一层;
    echo                  setting     S      设置选项;
    echo                     find     F      搜索与创建文件列表;
    echo                      cmd     C      进入命令行提示符;
    echo                      bat     B      进入批处理编辑器;
    echo                     help     H      帮助说明;
    echo                   hotkey     HK     播放器快捷键说明;
    echo          option and help     OP     播放器命令参数设置说明;
    echo    repeat and stochastic     RS     循环与随机播放;
    echo                     geci     GC     歌词模式;
    echo         background music     BM     播放背景音乐;
    echo                 shutdown     SD     自动关机设置;
    echo                 cjiabing     CB     打开本程序作者空间;
    echo                  bathome     BH     打开批处理之家论坛;
    echo                   cn-dos     CD     打开中国DOS联盟论坛;
    echo                mplayerhq     MP     打开MPlayer官网主页;
    echo. __________________________________________________________________________
    call :colour "2E" "                           [★ 快捷键全局有效,注意看提示。]"&pause
    goto hotkey
    :hotkey
    cls
    COLOR 27
    echo.
    call :colour "2E" "                               基本控制键"&echo.
    echo. __________________________________________________________________________
    echo. 
    echo          p 或 SPACE 或 ^>   暂停播放(按任意键继续);
    echo                 q 或 ESC   停止播放并退出;
    echo           pgdown 或 pgup   上一首 / 下一首;
    echo               down 或 up   快进 / 后退 1 分钟;
    echo                  ] 或 [   快速播放 / 慢速播放;
    echo                   ) 或 (   增加或减少音量,每次+/-3%%;
    echo                   * 或 /   增加或减少pcm音量;
    echo                        m   静音;
    echo                        f   全屏;
    echo                        o   循环切换 OSD 模式:无/定位条/定位条+计时器;
    echo                   z 或 x   调整字幕延迟+/-0.1秒;
    echo                   r 或 t   上/下调整字幕位置;
    echo                   1 或 2   调整对比度;
    echo                   3 或 4   调整亮度;
    echo                   5 或 6   调整色调
    echo                   7 或 8   调整饱和度。
    echo. __________________________________________________________________________
    call :colour "2E" "                           [★ 部分控制键可能在特定条件下才有效]"&echo.
    echo.
    pause
    goto :eof
    :about
    cls
    COLOR 27
    echo.
    call :colour "2E" "                              关         于"&echo.
    echo. __________________________________________________________________________
    echo.
    echo      ★ 当前版本:批处理版音视频播放器 BatMPlayer V5.3 歌词版。
    echo      ★ 本程序基于命令行版MPlayer播放器,以批处理的方式运行。
    echo      ★ MPlayer是一款优秀的开源软件,任何人都可以永久免费安装使用。
    echo      ★ MPlayer支持各种常见的音频、视频媒体格式,支持网络播放。
    echo      ★ 本程序为MPlayer添加了一个类似GUI的批处理交互界面。
    echo      ★ 极大地支持多种输入播放,可以使用快捷键控制播放。
    echo      ★ 本程序版权归cjiabing所有。免费共享,但不可用于商业与非法目的。
    echo      ★ 难免存在缺陷,使用须自担风险,欢迎反馈交流。
    echo      ★ 献给喜欢简单和怀旧的年轻朋友,祝大家生活愉快!
    call :colour "2E" "                                                            甲兵时代"&echo.
    echo                                                           2010.10.10
    echo                                         http://hi.baidu.com/cjiabing
    echo. __________________________________________________________________________
    echo.
    pause
    goto start

    :play_sets
    cls
    COLOR 27
    echo.
    call :colour "2E" "                             播放器参数设置说明"&echo.
    echo. __________________________________________________________________________
    echo.
    echo      ★ 因MPlayer的设置较复杂,这里只做介绍,具体使用请参照官方说明。
    echo      ★ 使用说明man_page.html位于MPlayer目录下,是英文的。
    echo      ★ MPlayer的用户配置位于~/.mplayer/config,可自行配置。
    echo      ★ 本程序也支持使用自定义的MPlayer命令配置,使用方法如下:
    echo      ★ 在主界面使用【%%mpp%%】代替MPlayer,遵循MPlayer命令格式。
    echo      ★ 如指定字幕文件:%%mpp%% -sub ^<somesubtitlefile^> ^<somefile^> 
    echo      ★ 如设置缓存:%%mpp%% -cache 8192 -cache-min 50 -playlist ^<file or url^> 
    echo.
    echo.
    echo. __________________________________________________________________________
    call :colour "2E" "                                         [★ 更多内容请阅读官方说明]"&echo.
    echo.
    pause
    cls
    COLOR 27
    echo.
    call :colour "2E" "                             播放器参数设置说明"&echo.
    echo. __________________________________________________________________________
    echo.
    echo    -playlist ^<文件^> 指定播放列表文件
    echo    -ss ^<位置^>       定位至给定(秒数或时:分:秒 - hh:mm:ss)位置
    echo    -nosound         不播放声音
    echo    -fs -vm -zoom    全屏播放选项(fullscr,vidmode chg,softw.scale)
    echo    -x ^<x^> -y ^<y^>    设置显示的分辨率(用以与 -vm 或 -zoom 一起使用)
    echo    -vid x -aid y    选择播放视频流(x)和音频流(y)
    echo    -fps x -srate y 改变视频帧率为 x(fps),音频采样率为 y(Hz)
    echo    -pp ^<质量^>       启用后期处理过滤器(详见于手册相关页面manpage/docs)
    echo    -framedrop       启用丢帧(用于运行慢的机器)
    echo    -vo ^<drv^>        选择视频输出驱动程序(查看驱动程序列表用“-vo help”)
    echo    -ao ^<drv^>        选择音频输出驱动程序(查看驱动程序列表用“-ao help”)
    echo    vcd://^<曲目号^>   播放 (S)VCD(超级VCD)曲目(无格式设备,无需装载)
    echo    dvd://^<标题号^>   从设备而不是从普通文件上播放 DVD 标题
    echo    -sub ^<文件^>      指定所使用的字幕文件(另见 -subfps、-subdelay)
    echo    -alang/-slang    选择DVD音轨/字幕的语言(使用两位的国家代码)
    echo.
    echo. __________________________________________________________________________
    call :colour "2E" "                                         [★ 更多内容请阅读官方说明]"&echo.
    echo.
    pause
    cls
    COLOR 27
    echo. __________________________________________________________________________
    echo    %%mpp%% ^[options^] ^[ file ^| URL ^| playlist ^| - ^]
    echo    %%mpp%% ^[global options^] file1 ^[specific options^] ^[file2^] ^[specific options^]
    echo    %%mpp%% ^[global options^] {group of files and options} ^[group specific options^]
    echo    %%mpp%% dvd^:^/^/^[title ^| ^[start_title^]-end_title ^] ^[options^]
    echo    %%mpp%% vcd^:^/^/track^[^/device^]
    echo    %%mpp%% tv^:^/^/^[channel^] ^[options^]
    echo    %%mpp%% dvb^:^/^/^[card_number@^]channel ^[options^]
    echo    %%mpp%% mf^:^/^/filemask ^[-mf options^] ^[options^]
    echo    %%mpp%% ^[cdda^|cddb^]^:^/^/track^[^:speed^]^[^/device^] ^[options^]
    echo    %%mpp%% cue^:^/^/file^[^:track^] ^[options^]
    echo    %%mpp%% ^[file^|mms^[t^]^|http^|http_proxy^|rt^[s^]p^|ftp^|udp^|unsv^]^:^/^/ ^[user^:passwd^@^]URL^[^:port^] ^[options^]
    echo    %%mpp%% sdp^:^/^/file ^[options^]
    echo    %%mpp%% mpst^:^/^/host^[^:port^]^/URL ^[options^]
    echo    %%mpp%% tivo^:^/^/host^/list ^[options^]
    echo    %%mpp%% tivo^:^/^/host^/llist ^[options^]
    echo    %%mpp%% tivo^:^/^/host^/fsid ^[options^]
    echo    gmplayer ^[options^] ^[-skin skin^]
    echo    mencoder ^[options^] ^[ file ^| URL ^| - ^] ^[-o file^]
    echo    mencoder ^[global options^] file1 ^[specific options^] ^[file2^] ^[specific options^]
    echo. __________________________________________________________________________
    call :colour "2E" "           [★ 更多内容请阅读官方说明]"&pause
    goto :eof

    :Lyrics
    cd.>%SYSTEMROOT%Lyrics.bat
    echo ^@echo off^&setlocal enabledelayedexpansion>>%SYSTEMROOT%Lyrics.bat
    echo title BatMPlayerMiniLyrics>>%SYSTEMROOT%Lyrics.bat
    echo MODE con: COLS=50 LINES=15>>%SYSTEMROOT%Lyrics.bat
    echo COLOR 2e>>%SYSTEMROOT%Lyrics.bat
    echo :lyrics_path>>%SYSTEMROOT%Lyrics.bat
    echo rem 获取歌词路径>>%SYSTEMROOT%Lyrics.bat
    echo if exist %%SYSTEMROOT%%MPlayerPath.ini (>>%SYSTEMROOT%Lyrics.bat
    echo for /f "tokens=1,* delims== " %%%%i in (%%SYSTEMROOT%%MPlayerPath.ini) do if /i "%%%%i"=="lyrc" if exist %%%%~j set "lyrc_way=%%%%j">>%SYSTEMROOT%Lyrics.bat
    echo )>>%SYSTEMROOT%Lyrics.bat
    echo for %%%%a in ("%%~dp0" "%%~dp0Lyrics" "C:Lyrics" "d:Lyrics" "C:KwDownloadLyric" "d:KwDownloadLyric" "%%APPDATA%%TencentQQMusicQQMusicLyric" "%%ProgramFiles%%kugoukugou2010lyric" "c:Program FilesTTPlayerLyrics" "d:Program FilesTTPlayerLyrics" "c:TTPlayerLyrics" "d:TTPlayerLyrics" "^!lyrc_way^!") do if exist %%%%a set var_lyrp=%%%%~a>>%SYSTEMROOT%Lyrics.bat
    echo :lyrics_input>>%SYSTEMROOT%Lyrics.bat
    echo rem 获取输入歌曲文件名>>%SYSTEMROOT%Lyrics.bat
    echo for %%%%x in (^^!input^^!) do if exist "^!var_lyrp^!\%%%%~nx.lrc" (>>%SYSTEMROOT%Lyrics.bat
    echo set var_lyrpone="^!var_lyrp^!\%%%%~nx.lrc">>%SYSTEMROOT%Lyrics.bat
    echo call :lyrics_exist>>%SYSTEMROOT%Lyrics.bat
    echo ) else (call :lyrics_unexist)>>%SYSTEMROOT%Lyrics.bat
    echo ping /n 30 127.0.1^>nul>>%SYSTEMROOT%Lyrics.bat
    echo exit>>%SYSTEMROOT%Lyrics.bat
    echo :lyrics_exist>>%SYSTEMROOT%Lyrics.bat
    echo rem 假设存在与歌曲文件名同名的歌词文件>>%SYSTEMROOT%Lyrics.bat
    echo call :lyrics_head>>%SYSTEMROOT%Lyrics.bat
    echo call :Lyrics_edit>>%SYSTEMROOT%Lyrics.bat
    echo call :lyrics_read>>%SYSTEMROOT%Lyrics.bat
    echo goto :eof>>%SYSTEMROOT%Lyrics.bat
    echo :lyrics_unexist>>%SYSTEMROOT%Lyrics.bat
    echo rem 假设歌曲文件名与歌词文件文件名不同,拆解歌曲文件名并据此搜索歌词>>%SYSTEMROOT%Lyrics.bat
    echo for %%%%m in (^^!input^^!) do (>>%SYSTEMROOT%Lyrics.bat
    echo if not "%%%%~nm"=="-" (>>%SYSTEMROOT%Lyrics.bat
    echo for /f "tokens=1,2,* delims=-- " %%%%x in ("%%%%~nm") do (>>%SYSTEMROOT%Lyrics.bat
    echo if not "%%%%z"=="" for /f "tokens=*" %%%%a in ('dir /a-d /b /s "^!var_lyrp^!*%%%%~nz*.lrc"') do set var_lyrpone="%%%%a"^&echo ^^!var_lyrpone^^!>>%SYSTEMROOT%Lyrics.bat
    echo if not "%%%%y"=="" for /f "tokens=*" %%%%a in ('dir /a-d /b /s "^!var_lyrp^!*%%%%~ny*.lrc"') do set var_lyrpone="%%%%a"^&echo ^^!var_lyrpone^^!>>%SYSTEMROOT%Lyrics.bat
    echo if not "%%%%x"=="" for /f "tokens=*" %%%%a in ('dir /a-d /b /s "^!var_lyrp^!*%%%%~nx*.lrc"') do set var_lyrpone="%%%%a"^&echo ^^!var_lyrpone^^!>>%SYSTEMROOT%Lyrics.bat
    echo )^>nul 2^>nul>>%SYSTEMROOT%Lyrics.bat
    echo )>>%SYSTEMROOT%Lyrics.bat
    echo )>>%SYSTEMROOT%Lyrics.bat
    echo call :lyrics_head>>%SYSTEMROOT%Lyrics.bat
    echo call :Lyrics_edit>>%SYSTEMROOT%Lyrics.bat
    echo call :lyrics_read>>%SYSTEMROOT%Lyrics.bat
    echo goto :eof>>%SYSTEMROOT%Lyrics.bat
    echo ::^&echo ^^!var_lyrpone^^!>>%SYSTEMROOT%Lyrics.bat
    echo :lyrics_head>>%SYSTEMROOT%Lyrics.bat
    echo rem 读取该歌词并显示头部信息>>%SYSTEMROOT%Lyrics.bat
    echo set str_head=0>>%SYSTEMROOT%Lyrics.bat
    echo if exist ^^!var_lyrpone^^! (>>%SYSTEMROOT%Lyrics.bat
    echo for /f "usebackq tokens=1,2,3,* delims=]:.,/=[+-*#^@" %%%%a in (^^!var_lyrpone^^!) do (>>%SYSTEMROOT%Lyrics.bat
    echo set /a str_head+=^1>>%SYSTEMROOT%Lyrics.bat
    echo if /i "%%%%a"=="ti" call :colour "0d" "歌 曲"^&call :colour "d1" "【%%%%b】"^&echo.>>%SYSTEMROOT%Lyrics.bat
    echo if /i "%%%%a"=="ar" call :colour "0d" "歌 手"^&call :colour "d1" "【%%%%b】"^&echo.>>%SYSTEMROOT%Lyrics.bat
    echo if /i "%%%%a"=="al" call :colour "0d" "专 辑"^&call :colour "d1" "【%%%%b】"^&echo.>>%SYSTEMROOT%Lyrics.bat
    echo if /i "%%%%a"=="by" call :colour "0d" "制 作"^&call :colour "d1" "【%%%%b】"^&echo.>>%SYSTEMROOT%Lyrics.bat
    echo if "^!str_head^!"=="6" call :colour "07" "≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡"^&echo.>>%SYSTEMROOT%Lyrics.bat
    echo if "^!str_head^!"=="5" set str_head5=%%%%d>>%SYSTEMROOT%Lyrics.bat
    echo if "^!str_head^!" gtr "7" goto :eof>>%SYSTEMROOT%Lyrics.bat
    echo )>>%SYSTEMROOT%Lyrics.bat
    echo ) else (>>%SYSTEMROOT%Lyrics.bat
    echo echo.>>%SYSTEMROOT%Lyrics.bat
    echo call :colour "2e" "     #"^&call :colour "f4" "没有找到歌词!请检查歌曲或歌词名称!#"^&echo.>>%SYSTEMROOT%Lyrics.bat
    echo ping /n 5 127.0.1^>nul>>%SYSTEMROOT%Lyrics.bat
    echo exit>>%SYSTEMROOT%Lyrics.bat
    echo )>>%SYSTEMROOT%Lyrics.bat
    echo call :colour "07" "≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡"^&echo.>>%SYSTEMROOT%Lyrics.bat
    echo goto :eof>>%SYSTEMROOT%Lyrics.bat
    echo :lyrics_read>>%SYSTEMROOT%Lyrics.bat
    echo rem 呈现歌词>>%SYSTEMROOT%Lyrics.bat
    echo call :colour "04" "   →"^&echo, >>%SYSTEMROOT%Lyrics.bat
    echo call :colour "04" "   →"^&echo, ^^!str_head5^^!>>%SYSTEMROOT%Lyrics.bat
    echo for /f "usebackq tokens=1-3,* delims=][:." %%%%a in ("%%temp%%\_Lyric.tmp") do (>>%SYSTEMROOT%Lyrics.bat
    echo set vtm=^^!stm^^!>>%SYSTEMROOT%Lyrics.bat
    echo set stm=%%%%a:%%%%b.%%%%c>>%SYSTEMROOT%Lyrics.bat
    echo call :Lyrics_time>>%SYSTEMROOT%Lyrics.bat
    echo if ^^!rvc^^! geq 0 %%SYSTEMROOT%%sleep.exe %%1^^!rvc^^!^^!rvb^^!^^!rva^^!0-10^>nul 2^&^&call :colour "04" "   →"^&echo,%%%%d>>%SYSTEMROOT%Lyrics.bat
    echo )>>%SYSTEMROOT%Lyrics.bat
    echo goto :eof>>%SYSTEMROOT%Lyrics.bat
    echo :Lyrics_time>>%SYSTEMROOT%Lyrics.bat
    echo rem 计算歌词时间差【分、秒、毫秒】>>%SYSTEMROOT%Lyrics.bat
    echo set vtma=1^^!vtm:~-4,1^^!^^!vtm:~-2,2^^!>>%SYSTEMROOT%Lyrics.bat
    echo set vtmb=^^!vtm:~-5,1^^!>>%SYSTEMROOT%Lyrics.bat
    echo set vtmc=^^!vtm:~-8,2^^!>>%SYSTEMROOT%Lyrics.bat
    echo set stma=1^^!stm:~-4,1^^!^^!stm:~-2,2^^!>>%SYSTEMROOT%Lyrics.bat
    echo set stmb=^^!stm:~-5,1^^!>>%SYSTEMROOT%Lyrics.bat
    echo set stmc=^^!stm:~-8,2^^!>>%SYSTEMROOT%Lyrics.bat
    echo if ^^!stma^^! lss ^^!vtma^^! (>>%SYSTEMROOT%Lyrics.bat
    echo set /a rva=1000+^^!stma^^!-^^!vtma^^!^>nul 2^>nul>>%SYSTEMROOT%Lyrics.bat
    echo set /a rvb=^^!stmb^^!-1^>nul 2^>nul>>%SYSTEMROOT%Lyrics.bat
    echo ) else (>>%SYSTEMROOT%Lyrics.bat
    echo set /a rva=^^!stma^^!-^^!vtma^^!^>nul 2^>nul>>%SYSTEMROOT%Lyrics.bat
    echo )^>nul 2^>nul>>%SYSTEMROOT%Lyrics.bat
    echo if ^^!stmb^^! lss ^^!vtmb^^! (>>%SYSTEMROOT%Lyrics.bat
    echo if ^^!stma^^! lss ^^!vtma^^! (set /a rvb=6-^^!vtmb^^!+^^!stmb^^!-1^>nul 2^>nul) else (set /a rvb=6-^^!vtmb^^!+^^!stmb^^!^>nul 2^>nul)>>%SYSTEMROOT%Lyrics.bat
    echo set /a rvc=^^!stmc^^!-^^!vtmc^^!-1^>nul 2^>nul>>%SYSTEMROOT%Lyrics.bat
    echo ) else (if ^^!stma^^! lss ^^!vtma^^! (set /a rvb=^^!stmb^^!-^^!vtmb^^!-1^>nul 2^>nul) else (set /a rvb=^^!stmb^^!-^^!vtmb^^!    ^>nul 2^>nul))^>nul 2^>nul>>%SYSTEMROOT%Lyrics.bat
    echo if ^^!stmc^^! geq ^^!vtmc^^! if ^^!stmb^^! geq ^^!vtmb^^! set /a rvc=^^!stmc^^!-^^!vtmc^^!^>nul 2^>nul>>%SYSTEMROOT%Lyrics.bat
    echo goto :eof>>%SYSTEMROOT%Lyrics.bat
    echo :colour>>%SYSTEMROOT%Lyrics.bat
    echo rem 呈现颜色>>%SYSTEMROOT%Lyrics.bat
    echo pushd "%%temp%%">>%SYSTEMROOT%Lyrics.bat
    echo ^>"%%~2",set/p= ^<nul>>%SYSTEMROOT%Lyrics.bat
    echo findstr /a:%%~1 .* "%%~2*">>%SYSTEMROOT%Lyrics.bat
    echo del "%%~2">>%SYSTEMROOT%Lyrics.bat
    echo popd>>%SYSTEMROOT%Lyrics.bat
    echo goto :eof>>%SYSTEMROOT%Lyrics.bat
    echo :Lyrics_edit>>%SYSTEMROOT%Lyrics.bat
    echo rem 处理歌词>>%SYSTEMROOT%Lyrics.bat
    echo cd.^>"%%temp%%\_Lyric.tmp">>%SYSTEMROOT%Lyrics.bat
    echo cd.^>"%%temp%%\_Lyrics.tmp">>%SYSTEMROOT%Lyrics.bat
    echo for /f "usebackq tokens=1-9,* delims=][:." %%%%a in (^^!var_lyrpone^^!) do (>>%SYSTEMROOT%Lyrics.bat
    echo if "%%%%a%%%%b%%%%c" lss "707000" if "%%%%a%%%%b%%%%c" gtr "000000" echo [%%%%a:%%%%b.%%%%c] %%%%d %%%%e %%%%f %%%%g %%%%h %%%%i %%%%j>>%SYSTEMROOT%Lyrics.bat
    echo if "%%%%a%%%%b%%%%c" lss "707000" if "%%%%a%%%%b%%%%c" gtr "000000" if "%%%%d%%%%e%%%%f" lss "707000" if "%%%%d%%%%e%%%%f" gtr "000000" echo [%%%%d:%%%%e.%%%%f] %%%%g %%%%h %%%%i %%%%j>>%SYSTEMROOT%Lyrics.bat
    echo if "%%%%a%%%%b%%%%c" lss "707000" if "%%%%a%%%%b%%%%c" gtr "000000" if "%%%%d%%%%e%%%%f" lss "707000" if "%%%%d%%%%e%%%%f" gtr "000000" if "%%%%g%%%%h%%%%i" lss "707000" if "%%%%g%%%%h%%%%i" gtr "000000" echo [%%%%g:%%%%h.%%%%i] %%%%j>>%SYSTEMROOT%Lyrics.bat
    echo )^>^>"%%temp%%\_Lyric.tmp">>%SYSTEMROOT%Lyrics.bat
    echo for /f "usebackq tokens=1* delims=]" %%%%a in ("%%temp%%\_Lyric.tmp") do (>>%SYSTEMROOT%Lyrics.bat
    echo set var_lyrtmp=%%%%b>>%SYSTEMROOT%Lyrics.bat
    echo for /l %%%%i in (0,1,9) do set var_lyrtmp=^^!var_lyrtmp:%%%%i=^^!>>%SYSTEMROOT%Lyrics.bat
    echo echo %%%%a] ^^!var_lyrtmp^^!>>%SYSTEMROOT%Lyrics.bat
    echo )^>^>"%%temp%%\_Lyrics.tmp">>%SYSTEMROOT%Lyrics.bat
    echo cd.^>"%%temp%%\_Lyric.tmp">>%SYSTEMROOT%Lyrics.bat
    echo sort "%%temp%%\_Lyrics.tmp"^>^>"%%temp%%\_Lyric.tmp">>%SYSTEMROOT%Lyrics.bat
    echo goto :eof>>%SYSTEMROOT%Lyrics.bat
    goto :eof

    :sleep
    del %SYSTEMROOT%sleep.com,sleep.exe>nul 2>nul
    :: Sleep.bat - Sleep/Delay/Wait n seconds
    :: Herbert Kleebauer(Germany) - 2005/05/29
    :: Modified by Will Sort - 2005/06/02, 07-25
    echo q | debug>nul
    echo Bj@jzh`0X-`/PPPPPPa(DE(DM(DO(Dh(Ls(Lu(LX(LeZRR]EEEUYRX2Dx=>%SYSTEMROOT%sleep.com
    echo 0DxFP,0Xx.t0P,=XtGsB4o@$?PIyU WwX0GwUY Wv;ovBX2Gv0ExGIuht6>>%SYSTEMROOT%sleep.com
    echo T}{z~~@GwkBG@OEKcUt`~}@MqqBsy?seHB~_Phxr?@zAB`LrPEyoDt@Cj?>>%SYSTEMROOT%sleep.com
    echo pky_jN@QEKpEt@ij?jySjN@REKpEt@jj?jyGjN@SEKkjtlGuNw?p@pjirz>>%SYSTEMROOT%sleep.com
    echo LFvAURQ?OYLTQ@@?~QCoOL~RDU@?aU?@{QOq?@}IKuNWpe~FpeQFwH?Vkk>>%SYSTEMROOT%sleep.com
    echo _GSqoCvH{OjeOSeIQRmA@KnEFB?p??mcjNne~B?M??QhetLBgBPHexh@e=>>%SYSTEMROOT%sleep.com
    echo EsOgwTLbLK?sFU`?LDOD@@K@xO?SUudA?_FKJ@N?KD@?UA??O}HCQOQ??R>>%SYSTEMROOT%sleep.com
    echo _OQOL?CLA?CEU?_FU?UAQ?UBD?LOC?ORO?UOL?UOD?OOI?UgL?LOR@YUO?>>%SYSTEMROOT%sleep.com
    echo dsmSQswDOR[BQAQ?LUA?_L_oUNUScLOOuLOODUO?UOE@OwH?UOQ?DJTSDM>>%SYSTEMROOT%sleep.com
    echo QTqrK@kcmSULkPcLOOuLOOFUO?hwDTqOsTdbnTQrrDsdFTlnBTm`lThKcT>>%SYSTEMROOT%sleep.com
    echo @dmTkRQSoddTT~?K?OCOQp?o??Gds?wOw?PGAtaCHQvNntQv_w?A?itEH>>%SYSTEMROOT%sleep.com
    echo {zpQpKGk?Jbs?FqokOH{T?jPvP@IQBDFAN?OHROL?Kj??pd~aN?OHROd?G>>%SYSTEMROOT%sleep.com
    echo Q??PGT~B??OC~?ipO?T?~U?p~cUo0x>>%SYSTEMROOT%sleep.com
    %SYSTEMROOT%sleep.com>%SYSTEMROOT%sleep.exe
    del %SYSTEMROOT%sleep.com
    start "" "%ComSpec%" /k "!var_sleep!"
    exit

    本篇为原创,转载请注明出处。 http://hi.baidu.com/cjiabing 甲兵时代,为你服务。

    Keep it simple!
    作者:N3verL4nd
    知识共享,欢迎转载。
  • 相关阅读:
    [bzoj1063][Noi2008]道路设计【树形dp】
    [bzoj1078][SCOI2008]斜堆【可并堆】
    [bzoj3744]Gty的妹子序列【分块】【主席树】
    [bzoj3720]Gty的妹子树【树分块】
    [bzoj3438]小M的作物【最小割】
    [bzoj4518][Sdoi2016]征途【dp】
    [bzoj4260]Codechef REBXOR【trie树】
    [bzoj3307]雨天的尾巴【线段树】
    2020-2021-1 20201229 《信息安全专业导论》第二周学习总结
    我对师生关系的认识
  • 原文地址:https://www.cnblogs.com/lgh1992314/p/5834841.html
Copyright © 2020-2023  润新知