感谢大家的支持，我又给改进了，这次有颜色的变换。
@echo off
setlocal enabledelayedexpansion
set b=1
color 0c
set a= 我祝大家新年快乐！万事如意！！！
echo .
echo.
echo.
for /f "skip=25 delims=" %%i in ('type %0' ) do (
echo %%i & ping 127.1 -n 1 >nul
set /a b+=1
color 0!b!
if "!b!"=="10" set b=0
)
color 0c
echo.&echo.&echo =============================================================================&echo.
for /l %%i in (1,1,30) do (
set/p=!a:~%%i,1!<nul
ping/n 127.1 >nul 2>nul
)
echo.
echo -------------------------------------------------------------------------
mshta vbscript:CreateObject("SAPI.SpVoice").Speak("Happy new year")(Window.close)
pause >nul
■■◣ ◢■■◣ ◢■■◣ ◢■◣
■ ■ ■ ■ ■ ■ ■
◢■■◤ ■ ■ ■ ■ ■■ ■
■ ■ ■ ■ ■ ■
◥■■■ ◥■■◤ ◥■■◤ ■
★☆★ ★☆★ ★☆★ ★☆★
★ 新 ★★ 年 ★★ 快 ★★ 樂 ★
★☆★ ★☆★ ★☆★ ★☆★
╭╧╮╭╧╮╭╧╮╭╧╮╭╧╮ ╭╧╮
║新│║年│║快│║樂│║喲│ ║！│
☆ ╭☆╯ ╰☆╮☆
║ ☆ 元旦节到了 ☆ ║
║ 请接受我给您的深深祝福 ║
║ 好运 祝： ║
元 ╭☆ 您及您的朋友、家人 ☆╮ 快
旦 ╰☆╮ 元旦快乐 ！！ ╭☆╯ 乐
[ Last edited by youkaib on 2009-1-3 at 13:00 ]
