[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[其他] 批处理自定义界面(大小和颜色)

可以调整界面大小,进行颜色设置。有现场的设置方法,也可以自定义设置。
还有个全屏的代码没有放进来,有空再补。
将以下代码放到你的程序代码中,并设置进入接口。
摘自 BatMPlayer,有修改。

颜色调用与指定文字颜色:call   :Colour   "!cc0:~0,1!!cc1:~2,1!"   "你的内容"&echo;
以上是一个完整的调用语句,可以设置独立的一句话的颜色。具体参考主代码。
颜色设置内容:"!cc0:~0,1!!cc1:~2,1!"
来自开头这一句:set cc=84&color !cc!&set cc0=44e&set cc1=00c

以下是代码:

  1. @echo off&setlocal enabledelayedexpansion
  2. ::By Cjiabing;:&Date 2011-08-19
  3. set cc=84&color !cc!&set cc0=44e&set cc1=00c
  4. ::要在文件开头设置以上内容
  5. :FaceSetting
  6. cls&echo;&echo;&call :Colour "!cc:~0,1!!cc1:~0,1!" " ◇"&call :Colour "!cc0:~0,1!!cc1:~2,1!" "设 置"&echo;◇&echo;
  7. echo; ------------------------------------------------------------------------
  8. echo 调整屏幕大小:SZ1【常规】SZ2【中等】SZ3【较大】。
  9. echo 自定义输入如:MODE con: COLS=85 LINES=25
  10. echo 调整屏幕颜色:CC0【默认】CC1【白绿】CC2【白蓝】CC3【黄土】。
  11. echo 自定义输入如:Color 84
  12. echo 可以直接输入命令进入CMD界面,如:Color/?
  13. call :Colour "4f" " BatMPlayer皮肤颜色选择器" &echo →【Color = 主体色块 + 标题色块 + 增强色块】
  14. echo →【主体色块】背景色和字体色,用于程序整体皮肤颜色;
  15. echo →【标题色块】标题底色和字体色;
  16. echo →【增强色块】用于警告和图案等。
  17. echo →每个色块由两个颜色代码组成背景色和前景色,默认:Color = 27 44e 00c
  18. echo →当前颜色:Color = %cc% %cc0% %cc1%
  19. 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;;
  20. 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;;
  21. 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;。
  22. echo →当前色与背景色相同时无法显示。
  23. echo; ------------------------------------------------------------------------
  24. echo;
  25. set /p Inport= 请输入(返回【Q】):
  26. if "%Inport%"=="" goto Menu
  27. if /I "%Inport:~0,4%"=="MODE" cmd /c %Inport%&goto setting
  28. if /I "%Inport:~0,5%"=="COLOR" cmd /c %Inport%&goto setting
  29. if /I %Inport%==Q goto Menu
  30. if /I %Inport%==H goto About
  31. if /I %Inport%==S goto Setting
  32. call :ScreenZoom %Inport%
  33. call :ChangeColor %Inport%
  34. cmd /c %Inport%&pause
  35. goto setting
  36. :ScreenZoom
  37. if /i %1==SZ1 MODE con: COLS=85 LINES=25&goto :eof
  38. if /i %1==SZ2 MODE con: COLS=105 LINES=57&goto :eof
  39. if /i %1==SZ3 MODE con: COLS=125 LINES=90&goto :eof
  40. goto :eof
  41. :ChangeColor
  42. if /i %~1==CC0 color 84&goto :eof
  43. if /i %~1==CC1 color 27&goto :eof
  44. if /i %~1==CC2 color 3f&goto :eof
  45. if /i %~1==CC3 color 6e&goto :eof
  46. goto :eof
  47. :Colour
  48. pushd "%temp%"
  49. >"%~2",set/p=   <nul
  50. findstr /a:%~1 .* "%~2*"
  51. del "%~2"
  52. popd
  53. goto :eof
复制代码
寂寞是黑白的,但黑白不是寂寞,是永恒。BAT 需要的不是可能,而是智慧。

有什么用????

TOP

正在学习中呢……

TOP

正来想找这方面的东西呢     谢谢

TOP

返回列表