中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-11 05:04
47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行
DOS批处理 & 脚本技术(批处理室) » 我给大家写的祝福批处理,改进版
可打印版本  1,120 / 6
第1楼 youkaib 发表于 2009-01-01 11:46
初级用户 发帖 22 积分 61
我给大家写的祝福批处理,改进版
感谢大家的支持,我又给改进了,这次有颜色的变换。
@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 ]
第2楼 netbenton 发表于 2009-01-02 03:21
银牌会员 发帖 752 积分 1,916 来自 广西
挺好看的,不错
第3楼 hackerscans 发表于 2009-01-02 09:51
初级用户 发帖 51 积分 73
我是来学习的。楼主,继续努力啊。
第4楼 Evangel 发表于 2009-01-02 23:12
初级用户 发帖 95 积分 145
顶一个
第5楼 wxcute 发表于 2009-01-03 13:54
中级用户 发帖 211 积分 458
新年快乐!
第6楼 youkaib 发表于 2009-01-05 00:37
初级用户 发帖 22 积分 61
呵呵。。。。
第7楼 qinchun36 发表于 2009-01-15 21:38
高级用户 发帖 400 积分 609
有意思,就是闪的太快了点
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023