::code by Fair_Jm@http://hi.baidu.com/fair_Jm
@echo off&setlocal EnableDelayedExpansion
title 彩色逐字输出您输入的字符 made by Fair_Jm
color F8
set /p z=输入一句话:
:begin
set /a x=%random%%%9+1
set "o=!z:~0,1!"
set o=!o:^<= !
set o=!o:^>= !
set o=!o:^.= !
set o=!o:^|= !
set o=!o:^&= !
set o=!o:^:= !
set o=!o:^\= !
set o=!o:^/= !
set o=!o:^"= !
set o=!o:t= !
if "!o!"==" " set /p= !z:~0,1!<nul&goto :next
set /p= <nul>"!z:~0,1!" 2>nul&findstr /a:F!x! .* *!z:~0,1! 2>nul&del "!z:~0,1!" 2>nul
:next
set z=!z:~1!
ping /n 1 127.1 >nul
if defined z goto :begin
pause>nul
exit
复制代码

::code by Fair_Jm@http://hi.baidu.com/fair_Jm
@echo off&setlocal EnableDelayedExpansion
title 彩色逐字输出您文件内的字符 made by Fair_Jm
color F8
:new
cls
set op=jm
set /p op=请将文本直接拖入：
cls
if "%op%"=="jm" echo 无文本&ping /n 2 127.1 >nul&goto new
for /f "delims=" %%i in ('findstr /n .* "%op%"') do (
    set "z=%%i"
    setlocal enabledelayedexpansion
    set z=!z:*:=!
    call :begin
    endlocal
    echo.
)
echo.&echo.
echo 显示完毕 按回车键重新开始
pause>nul
goto new
:begin
if not defined z (goto :eof)
set /a x=%random%%%9+1
set "o=!z:~0,1!"
set o=!o:^<= !
set o=!o:^>= !
set o=!o:^.= !
set o=!o:^|= !
set o=!o:^&= !
set o=!o:^:= !
set o=!o:^"= !
set o=!o:^\= !
set o=!o:^/= !
set o=!o:t= !
if "!o!"==" " set /p= !z:~0,1!<nul&goto :next
set /p= <nul>"!z:~0,1!" 2>nul&findstr /a:F!x! .* *!z:~0,1! 2>nul&del "!z:~0,1!" 2>nul
:next
set z=!z:~1!
ping /n 1 127.1 >nul
goto :begin
复制代码

@echo off
setlocal enabledelayedexpansion
set num=10
set str=#F89ABCDEF
for %%a in (3E 21 22 3A 7C 2E 26 5E 3C) do (
  set /a num-=1
  call set color=%%str:~!num!,1%%
  call :ColorLine %%a 0!color! 000!num!
)
goto :eof

:ColorLine
set "var=A$_MOV,AH,09$_MOV,AL,%1$_MOV,BH,00$_"
set "var=%var%MOV,BL,%2$_MOV,CX,%3$_INT,10$_"
set "var=%var%INT,20$_$_g$_q$_"
echo exit|%ComSpec% /k prompt %var%|debug>nul
复制代码