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

我也无聊:

与随风的区别在于,我的不是固定轨迹:
  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

返回列表