Board logo

标题: 我给大家写的祝福批处理,改进版 [打印本页]

作者: youkaib     时间: 2009-1-1 11:46    标题: 我给大家写的祝福批处理,改进版
感谢大家的支持,我又给改进了,这次有颜色的变换。
@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 ]

作者: netbenton     时间: 2009-1-2 03:21
挺好看的,不错

作者: hackerscans     时间: 2009-1-2 09:51
我是来学习的。楼主,继续努力啊。

作者: Evangel     时间: 2009-1-2 23:12
顶一个

作者: wxcute     时间: 2009-1-3 13:54
新年快乐!

作者: youkaib     时间: 2009-1-5 00:37
呵呵。。。。

作者: qinchun36     时间: 2009-1-15 21:38
有意思,就是闪的太快了点