中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 我给大家写的祝福批处理，改进版

youkaib
初级用户

积分 61
发帖 22
注册 2008-10-19
状态离线

『楼主』: 我给大家写的祝福批处理，改进版

感谢大家的支持，我又给改进了，这次有颜色的变换。
@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 ]

此帖被 +29 点积分

点击查看详情