中国DOS联盟

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

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

中国DOS联盟论坛
现在时间是 2026-08-07 15:22
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » [原创]菜菜庆祝新年的批处理 查看 722 回复 5
楼 主 [原创]菜菜庆祝新年的批处理 发表于 2008-02-17 15:57 ·  中国 广东 揭阳 电信
银牌会员
★★★★
SuperCleaner
积分 2,362
发帖 1,133
注册 2008-02-02 21:36
18年会员
UID 110072
性别 男
状态 离线
@echo off
title 新年快乐
mode con:cols=109 lines=20
echo.
echo. ★ ,._★.*- ☆ ☆★
for /l %%a in (1,1,2) do (ping -n 1 127.0>nul)&color 0a
echo. ■ 祝新年快乐! ★,_.,☆*~'`^^`'~*-,._ * _.,-*~'☆`^^`'~*-,_.,-*~'☆
for /l %%a in (1,1,2) do (ping -n 1 127.0>nul) &color 0d
echo. ■
for /l %%a in (1,1,2) do (ping -n 1 127.0>nul) &color 01
echo. ■Happy time! ☆%^^~``~-.,,.-'*~^^ ★ ☆
for /l %%a in (1,1,2) do (ping -n 1 127.0>nul) &color 03
echo. ■ ☆ *.,~~^^^ ★ ☆ ☆ ★
for /l %%a in (1,1,3) do (ping -n 1 127.0>nul) &color 05
echo. 新╭╮╭╮╭──╮★──╮╭──╮╭╮╭╮ ☆╭╮╭╮╭──╮╭╮╭╮ ╭╮★╮╭──╮╭──╮☆──╮★
for /l %%a in (1,1,2) do (ping -n 1 127.0>nul) &color 08
echo. ■│││★│╭╮││╭╮││╭☆││╰╯│ │╰╮││╭─╯││││ │╰╯││╭─╯│╭╮││╭╮│
for /l %%a in (1,1,3) do (ping -n 1 127.0>nul) &color 80
echo. 年│╰╯││╰╯││╰╯││╰╯│╰╮╭╯ │  ││╰─★│╰╯│ ╰╮╭╯│╰─╮│╰╯││╰╯│
for /l %%a in (1,1,2) do (ping -n 1 127.0>nul) &color 87
echo. ■│╭╮││╭╮★│╭─╯│╭─╯ ││ ★ │  ││╭─╯││││  ││ │╭★╯│╭╮││╭╭☆
for /l %%a in (1,1,3) do (ping -n 1 127.0>nul) &color 81
echo. 好││││││││││  ││★  ││  │╰╮││╰─╮│  │ ││ │╰─╮││││││╰╮
for /l %%a in (1,1,2) do (ping -n 1 127.0>nul) &color 83
echo. ■╰╯╰╯╰╯╰╯╰╯  ╰╯   ╰╯☆ ╰╯╰╯╰──╯╰╰╯╯☆  ╰╯ ╰──╯╰╯╰╯╰╯╰╯
for /l %%a in (1,1,2) do (ping -n 1 127.0>nul) &color 8c
echo. ■ ★.,-*~' ,.*,-.,☆*~'`^^`'~* ★,_.,☆*~'`^^`'~*-,._ * _.,-*~'☆`^^`'~*-,_.,-*~'☆`^^`'~*-,._★
for /l %%a in (1,1,2) do (ping -n 1 127.0>nul) &color 8e
echo. ■ ☆ ★ ★ ☆ ☆☆ ☆★
for /l %%a in (1,1,2) do (ping -n 1 127.0>nul) &color 8a
echo. ■ ,._★.*-_☆,' ,,*~'`^^`'~*,_ _.,-*~'☆`^^`'~*-,.
for /l %%a in (1,1,2) do (ping -n 1 127.0>nul) &color 81
echo. ☆ ☆
for /l %%f in (1,1,3) do (
for %%a in (9 1 b c d e) do (
color 8%%a
for /l %%f in (1,1,6) do (ping -n 1 127.0>nul)
))
color 87
ping -n 2 127.0>nul
echo.
::///////////////////////这部分是在cn-dos论坛看到并更改的///////////////////////////////////////
set c=----祝大家新年快乐,万事如意! Happy每一天! ---523066680 o(∩_∩)o
for /l %%i in (1,1,76) do (call set/p=%%c:~%%i,1%%<nul&for /l %%f in (1,1,5) do (ping/n 1 127.0>nul))

ping -n 2 127.0>nul
mshta vbscript:CreateObject("SAPI.SpVoice").Speak("Happy new year")(Window.close)
pause>nul
2 发表于 2008-02-17 17:17 ·  中国 福建 福州 联通
高级用户
★★
积分 581
发帖 277
注册 2006-12-23 05:10
19年会员
UID 74328
性别 男
状态 离线
效果还不错 支持下
3 发表于 2008-02-17 19:28 ·  中国 广东 东莞 电信
初级用户
★★
积分 116
发帖 51
注册 2008-01-12 23:38
18年会员
UID 108440
性别 男
状态 离线
good
4 发表于 2008-02-17 23:06 ·  中国 北京 华为云
银牌会员
★★★
永远的菜鸟
积分 1,335
发帖 574
注册 2007-11-27 12:50
18年会员
UID 103929
性别 男
来自 广西
状态 离线
最后能用类似下面的代码让程序自动退出就好了
for /l %%x in (1,1,5000) do echo %%x 1>nul 2>nul
5 发表于 2008-02-18 11:15 ·  中国 福建 福州 电信
初级用户
积分 26
发帖 12
注册 2007-12-31 22:57
18年会员
UID 107345
性别 男
状态 离线
不错,
6 发表于 2008-03-05 16:51 ·  中国 北京 阿里云BGP数据中心
初级用户
积分 64
发帖 37
注册 2007-03-14 03:38
19年会员
UID 81659
性别 男
状态 离线
效果还不错 支持下
论坛跳转: