批处理之家 - Powered by Discuz! Board

标题: [已解决]批处理怎样实现颜色的变换设置？ [打印本页]

作者: psxch 时间: 2011-2-26 21:28 标题: [已解决]批处理怎样实现颜色的变换设置？

@echo off
set num=0
set a=123456789abcde
:loop
set /a d=%random%%%15
color 1%a:~%d%,1%
set /a num+=1
if %num% gtr 30000 goto x
for /l %%i in (1,1,20) do (set /p=●<nul)
for /l %%i in (1,1,40) do (set /p=<nul)
ping -n 2 127.0.0.1>nul
for /l %%i in (1,1,40) do (set /p=★<nul)
pause
cls
goto loop
:x
echo 程序结束！
pause>nul
exit
复制代码

为什么这段代码运行错误啊？

[ 本帖最后由 psxch 于 2011-2-27 18:32 编辑 ]

作者: wc726842270 时间: 2011-2-27 07:51

@echo off
setlocal enabledelayedexpansion
set num=0
set a=123456789abcde
:loop
set /a d=%random%%%15
color 1!a:~%d%,1!
set /a num+=1
if %num% gtr 30000 goto x
for /l %%i in (1,1,20) do (set /p=●<nul)
for /l %%i in (1,1,40) do (set /p=<nul)
ping -n 2 127.0.0.1>nul
for /l %%i in (1,1,40) do (set /p=★<nul)
pause
cls
goto loop
:x
echo 程序结束！
pause>nul
exit
复制代码

作者: psxch 时间: 2011-2-27 18:27 标题: 回复 2楼的帖子

致谢！
呵呵，感谢楼上的回复！

欢迎光临批处理之家 (http://www.bathome.net/)