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

Rank: 1

帖子
11 
积分
18 
技术
0  
捐助
0  
注册时间
2011-1-14 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2011-2-26 21:28 | 只看该作者

[已解决]批处理怎样实现颜色的变换设置？

  1. @echo off

  2. set num=0

  3. set a=123456789abcde

  4. :loop

  5. set /a d=%random%%%15

  6. color 1%a:~%d%,1%

  7. set /a num+=1

  8. if %num% gtr 30000 goto x

  9. for /l %%i in (1,1,20) do (set /p=●<nul)

  10. for /l %%i in (1,1,40) do (set /p=<nul)

  11. ping -n 2 127.0.0.1>nul

  12. for /l %%i in (1,1,40) do (set /p=★<nul)

  13. pause

  14. cls

  15. goto loop

  16. :x

  17. echo 程序结束！

  18. pause>nul

  19. exit
复制代码
为什么这段代码运行错误啊？

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

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2
收藏 分享

wc726842270

Rank: 7Rank: 7Rank: 7

帖子
1107 
积分
4218 
技术
37  
捐助
0  
注册时间
2010-6-8 
2楼
发表于 2011-2-27 07:51 | 只看该作者 
  1. @echo off

  2. setlocal enabledelayedexpansion

  3. set num=0

  4. set a=123456789abcde

  5. :loop

  6. set /a d=%random%%%15

  7. color 1!a:~%d%,1!

  8. set /a num+=1

  9. if %num% gtr 30000 goto x

  10. for /l %%i in (1,1,20) do (set /p=●<nul)

  11. for /l %%i in (1,1,40) do (set /p=<nul)

  12. ping -n 2 127.0.0.1>nul

  13. for /l %%i in (1,1,40) do (set /p=★<nul)

  14. pause

  15. cls

  16. goto loop

  17. :x

  18. echo 程序结束！

  19. pause>nul

  20. exit
复制代码
1

评分人数

枫中残雪：风停了，我的心却在动，让我心中的寒意走向远方

TOP

psxch

Rank: 1

帖子
11 
积分
18 
技术
0  
捐助
0  
注册时间
2011-1-14 
3楼
发表于 2011-2-27 18:27 | 只看该作者

回复 2楼 的帖子

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

TOP

返回列表