网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索

 
 
 
日一二三四五六
       
       
       
       
       
       

签到排名:今日本吧第个签到,

本吧因你更精彩,明天继续来努力!

本吧签到人数:0

一键签到
成为超级会员,使用一键签到
一键签到
本月漏签0次!
0
成为超级会员,赠送8张补签卡
如何使用?
点击日历上漏签日期,即可进行补签。
连续签到:天  累计签到:天
0
超级会员单次开通12个月以上,赠送连续签到卡3张
使用连续签到卡
01月03日漏签0天
bat吧 关注:16,741贴子:231,805
  • 看贴

  • 图片

  • 吧主推荐

  • 视频

  • 游戏

  • 1回复贴,共1页
<<返回bat吧
>0< 加载中...

【新人求助】帮忙修改一下代码

  • 只看楼主
  • 收藏

  • 回复
  • 7397981
  • Taskkill
    9
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
在网上找到一十六进位数字的颜色属性配置演示的bat
请问:
怎么把开始的下面代码的那个msgbox窗口去掉,也就是点开就直接自动运行,把手动输入的部分精简掉,在线等代码。谢了
@echo off
title by jvive@cn-dos.net 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窗口去掉,点开就直接自动运行,手动输入的精简掉,在线等代码。谢了


  • IDbzd
  • Rem
    1
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
@echo off
title by jvive@cn-dos.net date: 08-04-03
set "a=abcdefg 哈哈o(∩_∩)o"
set hint="自动浏览点是,手动输入点否,退出点取消"
set "att=4163"
set titl="十六进位颜色属性配置演示"
call:browse
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


登录百度账号

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频!
  • 贴吧页面意见反馈
  • 违规贴吧举报反馈通道
  • 贴吧违规信息处理公示
  • 1回复贴,共1页
<<返回bat吧
分享到:
©2026 Baidu贴吧协议|隐私政策|吧主制度|意见反馈|网络谣言警示