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

TOP

我也无聊:

与随风的区别在于,我的不是固定轨迹:
  1. @echo off&mode con cols=60 lines=20
  2. setlocal enabledelayedexpansion
  3. title 调皮的汉字-zw19750516
  4. set code=23456789abcdef我是调皮的汉字&set "b= "
  5. set code1=%code:~14%&set d=-1
  6. :begin
  7. set n=0&set m=0&set x=+
  8. set /a lm=%random%%%59,lr=%random%%%2,c=%random%%%14,d+=1
  9. if %d% equ 7 set d=0
  10. set a=!code1:~%d%,1!&set c=!code:~%c%,1!
  11. color 0%c%
  12. if %lm% equ 0 (
  13.    set z=+
  14.    ) else (
  15.    if %lm% equ 57 (
  16.       set z=-
  17.       ) else (
  18.       if %lr% equ 0 (
  19.          set z=-
  20.          ) else (
  21.          set z=+
  22. )))
  23. :contin
  24. cls&for /l %%i in (1,1,%n%) do echo.
  25. set "kong="
  26. set /a n%x%=1,lm%z%=1,m+=1
  27. if %n% equ 0 if %m% geq 100 goto begin
  28. if %lm% equ 0 set z=+
  29. if %lm% equ 57 set z=-
  30. for /l %%i in (1,1,%lm%) do set kong=!kong!%b%
  31. set str=%kong%%a%
  32. if %n% equ 20 set x=-&goto contin
  33. if %n% equ 0 set x=+&goto contin
  34. echo %str%&ping /n 127.1>nul
  35. goto contin
复制代码
***共同提高***

TOP

非常不错~!牛啊,可以不可以教教我啊?
斑竹。。。

TOP

好东西...下下来学习..

TOP

好玩啊!!!太强了

TOP

呀,效果相当好..  强.

TOP

效果非常不错,狂加分!哈哈

不过,这里提点建议,有关版权说明的:
::   作者:随风 出至:bbs.bathome.net    2008/01/03
可不可以统一都弄成这样呢?
:: code by 随风@bbs.bathome.net 2008/01/03

TOP

返回列表