我也发个 cn-dos 联盟的- @echo off
- title by [email=jvive@cn-dos.net]jvive@cn-dos.net[/email] date: 08-04-03
- set "a=abcdefg 哈哈o(∩_∩)o"
- >%tmp%\tmp.vbs echo MyVar=MsgBox ("直接浏览点是,手动输入点否,退出点取消", 4163, "十六进位颜色属性配置演示"):Wscript.Echo MyVar
- for /f "delims=*" %%i in ('cscript.exe //nologo %tmp%\tmp.vbs') do set MyVar=%%i
- pushd %tmp%&del/q "%a%?" tmp.vbs 2>nul
- if "%MyVar%"=="2" goto:eof
- if "%MyVar%"=="6" goto:browse
- if "%MyVar%"=="7" goto:input
- goto :eof
- :browse
- set col=0 1 2 3 4 5 6 7 8 9 a b c d e f
- title 点击右键暂停,左键继续
- for %%a in (%col%)do for %%b in (%col%)do for %%c in (%col%)do for %%d in (%col%)do (
- call:JV %%a%%b%%c%%d "%a%"
- echo ---- 配色属性:%%a%%b%%c%%d
- )
- pause>nul&exit/b
- :input
- set "color="
- title 请输入一个位16进制数(1-4位)[例如1EAf或2a]:
- set /p color=
- if not defined color goto:input
- echo 颜色属性: %color%
- set/p=颜色演示:<nul
- call:JV %color% "%a%"
- echo.
- title 按任意键继续...
- pause>nul
- goto:input
- :JV
- set/p=<nul>"%~2"
- findstr /a:%1 .* "%~2?" 2>nul
复制代码
|