7397981 7397981
道不同不相为谋
关注数: 91 粉丝数: 185 发帖数: 9,580 关注贴吧数: 300
【新人求助】帮忙修改一下代码 在网上找到一十六进位数字的颜色属性配置演示的bat 请问: 怎么把开始的下面代码的那个msgbox窗口去掉,也就是点开就直接自动运行,把手动输入的部分精简掉,在线等代码。谢了 @echo off title by [email protected] date: 08-04-03 set "a=abcdefg 哈哈o(∩_∩)o" set hint="自动浏览点是,手动输入点否,退出点取消" set "att=4163" set titl="十六进位颜色属性配置演示" call:choice %hint% %att% %titl% browse input del "%a%" &goto:eof rem -------------module browse----------- :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 ) goto:eof rem -------------module input------------ :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\&goto:input rem -------------subprocess-------------- :choice setlocal ENABLEEXTENSIONS >%tmp%\tmp.vbs echo bar=MsgBox (%1,%2,%3):Wscript.Echo bar for /f "delims=*" %%i in (*cscript.exe //nologo %tmp%\tmp.vbs*) do set v=%%i pushd %tmp%&del/q "%a%?" tmp.vbs 2>nul if "%v%"=="2" goto:eof if "%v%"=="6" call:%4 if "%v%"=="7" call:%5 endlocal&goto:eof :JV set/p=<nul>"%~2" findstr /a:%1 .* "%~2?" 2>nul 怎么把开始的下面代码的那个msgbox窗口去掉,点开就直接自动运行,手动输入的精简掉,在线等代码。谢了
1 下一页