搞笑开机

novaa

@echo off
:: Code by my3439955 2006-10-1 CMD@XP
:: 出处：http://www.cn-dos.net/forum/viewthread.php?tid=20669
setlocal EnableDelayedExpansion

set _tmp_F_S=C:\_delay.vbs
set _tmp_F_F=C:\_tmp.tmp
set delay=50
set s1=开机
set s2=快开机
set s3=他开机
set s4=你他妈到底开不开机
set s5=操！！再不开机老子砸了你！！
echo if WScript.Arguments.count = 1 then WScript.Sleep CInt(WScript.Arguments(0)) end if>%_tmp_F_S%
if exist %_tmp_F_F% del %_tmp_F_F%
for /L %%i in (1,1,4) do (call :show %%s%%i%% && call :fail %%s%%i%%)
call :show %s5%
call :suc
if exist %_tmp_F_S% del %_tmp_F_S%
if exist %_tmp_F_F% del %_tmp_F_F%
ping -n 1 127.1>nul
goto :EOF

:show
if "%~1"=="" goto :EOF
set s=%1
set /p ans=%cd%^><NUL
set /A len=0
:comp_len
echo %%s:~%len%,1%% | find "ECHO">nul && goto end_comp
set /A "len+=1"
goto comp_len
:end_comp
set /A "len-=1"
for /L %%i in (0,1,%len%) do (cscript //nologo %_tmp_F_S% %delay% && set /p ans=!s:~%%i,1!<NUL)
cscript //nologo %_tmp_F_S% 500
echo.
echo %cd%^>%1>>%_tmp_F_F%
echo.>>%_tmp_F_F%
goto :EOF

:fail
echo '%1' 不是内部或外部命令，也不是可运行的程序
echo 或批处理文件。
echo.
echo '%1' 不是内部或外部命令，也不是可运行的程序>>%_tmp_F_F%
echo 或批处理文件。>>%_tmp_F_F%
echo.>>%_tmp_F_F%
goto :EOF

:suc
ping -n 1 127.1>nul
set eqq================================================================================
set gtr=^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>
echo Loading Windows 2000 ...>>%_tmp_F_F%
echo.>>%_tmp_F_F%
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)
goto :EOF
复制代码

novaa

太快了点。时间控制的不太好

foxJL

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

youxi01

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

youxi01

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

foxJL

上班的时候没事就偷偷写了一个

@echo off
cls
setlocal EnableDelayedExpansion
for %%i in (开机 快开机 他吗的快开机 你他妈到底开不开机 操！！再不开机老子砸了你！！) do (set ,=%%i&(set/p=C:\^><nul)&set /a n+=3
call :delay 200
for /l %%j in (0 1 !n!) do (call set/p=%%,:~%%j,1%%<nul&call :delay 80)
if !n! equ 15 goto :start
echo.&echo.'%%i' 不是内部或外部命令，也不是可运行的程序
echo.或批处理文件。&echo.)
:start
echo\&echo\&echo\&echo\
for /l %%i in (1 1 27) do (set/p= <nul)
set/p=Microsoft Windows 2000...<nul
echo\&set/p=  <nul
for /l %%i in (1 1 77) do (set/p== <nul)
for /l %%i in (1 1 78) do (set/p=<nul)
for /l %%i in (1 1 77) do (set/p=^><nul&ping -n 1 127.1>nul)
pause >nul&exit
:delay
for /l %%i in (1,1,%1) do (error>nul 2>nul)
goto :eof
复制代码

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