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

搞笑开机

  1. @echo off
  2. :: Code by my3439955 2006-10-1 CMD@XP
  3. :: 出处:http://www.cn-dos.net/forum/viewthread.php?tid=20669
  4. setlocal EnableDelayedExpansion
  5. set _tmp_F_S=C:\_delay.vbs
  6. set _tmp_F_F=C:\_tmp.tmp
  7. set delay=50
  8. set s1=开机
  9. set s2=快开机
  10. set s3=他开机
  11. set s4=你他妈到底开不开机
  12. set s5=操!!再不开机老子砸了你!!
  13. echo if WScript.Arguments.count = 1 then WScript.Sleep CInt(WScript.Arguments(0)) end if>%_tmp_F_S%
  14. if exist %_tmp_F_F% del %_tmp_F_F%
  15. for /L %%i in (1,1,4) do (call :show %%s%%i%% && call :fail %%s%%i%%)
  16. call :show %s5%
  17. call :suc
  18. if exist %_tmp_F_S% del %_tmp_F_S%
  19. if exist %_tmp_F_F% del %_tmp_F_F%
  20. ping -n 1 127.1>nul
  21. goto :EOF
  22. :show
  23. if "%~1"=="" goto :EOF
  24. set s=%1
  25. set /p ans=%cd%^><NUL
  26. set /A len=0
  27. :comp_len
  28. echo %%s:~%len%,1%% | find "ECHO">nul && goto end_comp
  29. set /A "len+=1"
  30. goto comp_len
  31. :end_comp
  32. set /A "len-=1"
  33. for /L %%i in (0,1,%len%) do (cscript //nologo %_tmp_F_S% %delay% && set /p ans=!s:~%%i,1!<NUL)
  34. cscript //nologo %_tmp_F_S% 500
  35. echo.
  36. echo %cd%^>%1>>%_tmp_F_F%
  37. echo.>>%_tmp_F_F%
  38. goto :EOF
  39. :fail
  40. echo '%1' 不是内部或外部命令,也不是可运行的程序
  41. echo 或批处理文件。
  42. echo.
  43. echo '%1' 不是内部或外部命令,也不是可运行的程序>>%_tmp_F_F%
  44. echo 或批处理文件。>>%_tmp_F_F%
  45. echo.>>%_tmp_F_F%
  46. goto :EOF
  47. :suc
  48. ping -n 1 127.1>nul
  49. set eqq================================================================================
  50. set gtr=^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>
  51. echo Loading Windows 2000 ...>>%_tmp_F_F%
  52. echo.>>%_tmp_F_F%
  53. for /L %%i in (0,1,79) do (set /A new=2*%%i && type %_tmp_F_F% && echo !gtr:~0,%%i!!eqq:~%%i,80! && ping -n 1 127.1>nul && cls)
  54. goto :EOF
复制代码
ㄗs:A good programming is 99% sweat and 1% coffee!--①個亾

============ >   hi.baidu.com/novaa   <============

太快了点。时间控制的不太好
ㄗs:A good programming is 99% sweat and 1% coffee!--①個亾

============ >   hi.baidu.com/novaa   <============

TOP

也着实不太逼真,代码已在2楼更新.采用循环延时,不知效果是否好一点点..

TOP

可能用循环用命令 来实现 延迟 比较容易控制速度

TOP

呵呵,不错,不过有些延迟太慢了 比如:显示 开机 时,要等待好久
这样效果不是太逼真.

TOP

上班的时候没事就偷偷写了一个
  1. @echo off
  2. cls
  3. setlocal EnableDelayedExpansion
  4. for %%i in (开机 快开机 他吗的快开机 你他妈到底开不开机 操!!再不开机老子砸了你!!) do (set ,=%%i&(set/p=C:\^><nul)&set /a n+=3
  5. call :delay 200
  6. for /l %%j in (0 1 !n!) do (call set/p=%%,:~%%j,1%%<nul&call :delay 80)
  7. if !n! equ 15 goto :start
  8. echo.&echo.'%%i' 不是内部或外部命令,也不是可运行的程序
  9. echo.或批处理文件。&echo.)
  10. :start
  11. echo\&echo\&echo\&echo\
  12. for /l %%i in (1 1 27) do (set/p= <nul)
  13. set/p=Microsoft Windows 2000...<nul
  14. echo\&set/p=  <nul
  15. for /l %%i in (1 1 77) do (set/p== <nul)
  16. for /l %%i in (1 1 78) do (set/p=<nul)
  17. for /l %%i in (1 1 77) do (set/p=^><nul&ping -n 1 127.1>nul)
  18. pause >nul&exit
  19. :delay
  20. for /l %%i in (1,1,%1) do (error>nul 2>nul)
  21. goto :eof
复制代码

[ 本帖最后由 泛滥棏慌° 于 2007-12-14 18:34 编辑 ]

TOP

返回列表