@echo off&setlocal enabledelayedexpansion
::By Cjiabing;:&Date 2011-08-19
set cc=84&color !cc!&set cc0=44e&set cc1=00c
::要在文件开头设置以上内容

:FaceSetting
cls&echo;&echo;&call :Colour "!cc:~0,1!!cc1:~0,1!" " ◇"&call :Colour "!cc0:~0,1!!cc1:~2,1!" "设 置"&echo;◇&echo;
echo; ------------------------------------------------------------------------
echo 调整屏幕大小：SZ1【常规】SZ2【中等】SZ3【较大】。
echo 自定义输入如：MODE con: COLS=85 LINES=25
echo 调整屏幕颜色：CC0【默认】CC1【白绿】CC2【白蓝】CC3【黄土】。
echo 自定义输入如：Color 84
echo 可以直接输入命令进入CMD界面，如：Color/?
call :Colour "4f" " BatMPlayer皮肤颜色选择器" &echo →【Color = 主体色块 + 标题色块 + 增强色块】
echo →【主体色块】背景色和字体色，用于程序整体皮肤颜色；
echo →【标题色块】标题底色和字体色；
echo →【增强色块】用于警告和图案等。
echo →每个色块由两个颜色代码组成背景色和前景色，默认：Color = 27 44e 00c 
echo →当前颜色：Color = %cc% %cc0% %cc1% 
call :Colour "!cc:~0,1!0" " →黑白色：0=黑色"&call :Colour "!cc:~0,1!8" "、8=灰色"&call :Colour "!cc:~0,1!7" "、7=白色"&call :Colour "!cc:~0,1!f" "、f=亮白色"&echo;；
call :Colour "!cc:~0,1!1" " →冷色调：1=蓝色"&call :Colour "!cc:~0,1!9" "、9=淡蓝色"&call :Colour "!cc:~0,1!3" "、3=湖蓝色"&call :Colour "!cc:~0,1!b" "、b=浅淡绿色"&call :Colour "!cc:~0,1!2" "、2=绿色"&call :Colour "!cc:~0,1!a" "、a=淡绿色"&echo;；
call :Colour "!cc:~0,1!4" " →暖色调：4=红色"&call :Colour "!cc:~0,1!c" "、c=淡红色"&call :Colour "!cc:~0,1!5" "、5=紫色"&call :Colour "!cc:~0,1!d" "、d=淡紫色"&call :Colour "!cc:~0,1!6" "、6=黄色"&call :Colour "!cc:~0,1!e" "、e=淡黄色"&echo;。
echo →当前色与背景色相同时无法显示。
echo; ------------------------------------------------------------------------
echo; 
set /p Inport= 请输入（返回【Q】）：
if "%Inport%"=="" goto Menu
if /I "%Inport:~0,4%"=="MODE" cmd /c %Inport%&goto setting
if /I "%Inport:~0,5%"=="COLOR" cmd /c %Inport%&goto setting
if /I %Inport%==Q goto Menu
if /I %Inport%==H goto About
if /I %Inport%==S goto Setting
call :ScreenZoom %Inport%
call :ChangeColor %Inport%
cmd /c %Inport%&pause
goto setting
:ScreenZoom
if /i %1==SZ1 MODE con: COLS=85 LINES=25&goto :eof
if /i %1==SZ2 MODE con: COLS=105 LINES=57&goto :eof
if /i %1==SZ3 MODE con: COLS=125 LINES=90&goto :eof
goto :eof
:ChangeColor
if /i %~1==CC0 color 84&goto :eof
if /i %~1==CC1 color 27&goto :eof
if /i %~1==CC2 color 3f&goto :eof
if /i %~1==CC3 color 6e&goto :eof
goto :eof
:Colour
pushd "%temp%"
>"%~2",set/p=   <nul
findstr /a:%~1 .* "%~2*"
del "%~2"
popd
goto :eof
复制代码