[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
哈  我们把它改成向里跑的要不要?等下去做做看  汗 好复杂
我自己也做一个 有一些变量为什么这么设也没搞清楚,是慢慢测试的……
嘿嘿  不过我这个 在行间滑动的时候没这么闪烁哦
  1. @echo off&color 1f
  2. setlocal enabledelayedexpansion
  3. for /l %%a in (1,1,80) do set kong= !kong!
  4. set /a a=0,b=0
  5. call :a hehe
  6. :a
  7. if "%1"=="hehe" (for /l %%a in (1,1,50) do echo,>nul
  8. set /p=  *<nul
  9. if %a% equ 77 (call :b xixi)
  10. set /a a+=1
  11. ) else (for /l %%a in (1,1,50) do echo,>nul
  12. set /p=  *<nul
  13. if %a% equ 0 (call :b kaka)
  14. set /a a-=1)
  15. goto :a
  16. :b
  17. if "%1"=="xixi" (for /l %%a in (1,1,100) do echo,>nul
  18. cls
  19. for /l %%a in (1,1,%b%) do echo,
  20. set /p=%kong:~2%*<nul
  21. if !b! equ 20 (call :a haha)
  22. set /a b+=1) else (
  23. for /l %%a in (1,1,100) do echo,>nul
  24. cls
  25. for /l %%a in (1,1,%b%) do echo,
  26. set /p=*<nul
  27. if !b! equ 0 (call :a hehe)
  28. set /a b-=1)
  29. goto :b
复制代码

[ 本帖最后由 523066680 于 2008-8-10 18:22 编辑 ]

TOP

这个向里面跑的 很烂……
@echo off
setlocal enabledelayedexpansion
set h1=a1a2a3a4a5a6a7a8a9
set h2=d5d6d7d8d9e1e2e3b1
set h3=d4g2g3g4g5g6g7e4b2
set h4=d3g1h9i1i2i3g8e5b3
set h5=d2f9h8i8i9i4g9e6b4
set h6=d1f8h7i7i6i5h1e7b5
set h7=c9f7h6h5h4h3h2e8b6
set h8=c8f6f5f4f3f2f1e9b7
set h9=c7c6c5c4c3c2c1b9b8
for %%a in (a b c d e f g h i) do (
for /l %%b in (1,1,9) do (
  for /l %%c in (1,1,9) do (
  set h%%c=!h%%c:%%a%%b= *!
  )
  ping -n>nul
  cls
  for /l %%c in (1,1,9) do echo,!h%%c!
  
)
)
pause

TOP

返回列表