联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
Test.rar (77.95 KiB, 下载次数: 114)
@echo off
setlocal enabledelayedexpansion
title 批处理加密样品 第五版
set txt= 批处理加密样品 第五版 Made By Defanive
set back=
set clr=0123456789ABCDEF
mode con: cols=41 lines=3
echo.
for /l %%a in (0,1,29) do (
set /p=t!txt:~%%a,1!<nul
call :color
ping -n 1 127.0.0.1 >nul
)
for /l %%a in (1,1,10) do (
call :color
ping -n 1 127.0.0.1 >nul
)
for /l %%a in (1,1,40) do (
set /p= <nul
call :color
ping -n 1 127.0.0.1 >nul
)
for /l %%a in (1,1,32) do (
set txt= !date! !time!
set /p=t!txt:~%%a,1!<nul
call :color
ping -n 1 127.0.0.1 >nul
)
:loop
set /p= !date! !time!<nul
call :color
ping -n 1 127.0.0.1 >nul
goto loop
:color
set /a c=%random%%%16
color 0!clr:~%c%,1!
