中国DOS联盟

@echo off	%CMD With An Active Title(Simulate Thread)	s11ss@www.cn-dos.net 2008-4-17%



if "%1" equ "-title" call :PrintTitle "%comspec%"

start /b "NewThread" %0 -title

tasklist|findstr "\<cmd.exe\>">"%tmp%\t4.17"



setlocal enabledelayedexpansion

for /f "delims=" %%a in ('echo exit^|cmd') do (

	set/a n+=1

	if !n! leq 2 echo %%a

)

echo.

endlocal



:RunCommand

set/p COMMAND=%cd%^>

if "%COMMAND%"=="" (

	goto :RunCommand

) else (

	if "%COMMAND%"=="exit" (

		for /f "usebackq tokens=2" %%a in ("%tmp%\t4.17") do set t=%%a

		del "%tmp%\t4.17"

		call taskkill /f /pid %%t%% >nul

	)

)

call %COMMAND%

echo.

set "COMMAND="

goto :RunCommand



exit/b

















:PrintTitle

set s'=%~1&set/a n'=0,t'=n'+1

:ptloop

call set o'=%%s':~%n'%,1%%&if "%o'%" equ "" goto :PrintTitle

call title %%s':~0,%t'%%%&set/a n'+=1,t'=n'+1&ping 127.1 -n 1 >nul&goto :ptloop

@echo off&mode con lines=5

:begin

set str=2008北京奥运，我们正在自豪地期盼你的到来！

for /l %%i in (1,1,23) do (

    setlocal enabledelayedexpansion

    title !str:~,%%i!

    ping /n 1 127.1>nul

    endlocal

)

goto begin