中国DOS联盟

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

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

中国DOS联盟论坛
现在时间是 2026-08-02 19:19
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » Merry Christmas! 查看 822 回复 5
楼 主 Merry Christmas! 发表于 2006-12-25 13:10 ·  中国 北京 中国科学院研究生院
银牌会员
★★★
积分 1,187
发帖 555
注册 2006-12-21 07:35
19年会员
UID 74129
性别 男
状态 离线
Merry Christmas!
附件
WishUHappy.rar (53.12 KiB, 下载附件所需积分 1 点, 下载次数: 78)
2 发表于 2006-12-25 14:09 ·  中国 重庆 沙坪坝区 电信
初级用户
★★
积分 105
发帖 77
注册 2006-11-09 02:14
19年会员
UID 70077
性别 男
来自 重庆
状态 离线
圣诞节的沙发!
源码如下

cls
@echo off
if not "%~n0"=="EncryBat" goto EncryBat_Display
if not == if exist %1 goto EncryBat_Encryption
:EncryBat_Help
echo.
echo %~n0 - Cryptographic machine for batch program
echo zxcv@cn-dos, willsort@cn-dos - 2006-7-29 - CMD@WinXP
echo.
echo Useage: %~n0 batch_program_with_extname
echo Reference: http://www.cn-dos.net/forum/viewthread.php?tid=22053
if /i not == pause
goto :eof
:EncryBat_Encryption
copy /b "%~f0"+%1 enc_%1>nul
if exist enc_%1 echo. Enc_%1 is create.
goto :eof
:EncryBat_Display
@echo off
echo Please Type the Name
echo Whose You Want to Send this Wish to.
set /p Name=
cls
if {%Name%} == {} goto :default
:start
echo.
mode con: cols=60 lines=30
echo %username%
echo MERRY CHRISTMAS!
start /min wb.mid
@color 49
echo.
echo Your Friend Send This Little Present to you
echo in this Cold and Missing Season.
@echo Best wishes to my good friend!
@echo ------------------------------------------
echo.
echo ╰╮╭-- -M-E-R-R-Y- --╮╭╯
echo ▲╯║ ║╰▲
echo ◇★║  ║★◇
echo ★◇║  ║◇★
echo ▼╮║  ║╭▼
echo ╭╯║  ║╰╮
echo ║  ║
echo ║  ║
echo ║  ║
echo ║  ║
echo ╰╮║ # ║╭╯
echo ▲╯║ # ║╰▲
echo ◇★║ # ║★◇
echo ★◇║ # ║◇★
echo ▼╮║ ║╭▼
echo ╭╯╰-C-H-R-I-S-T-M-A-S-╯╰╮
echo.
@echo ------------------------------------------
@echo.
for /l %%a in (0,2,9) do (
for /l %%b in (1,2,8) do (
ping -n 2 127.1>nul
color d%%a
color %%ab
color 3%%a
color %%b%%a
)
)
color 9d
@echo Press any key to continue......
@pause >nul
echo Again Or Quit(a,q)?
set /p ch=
if /i {%ch%}=={a} goto :start else goto :defalt
:default
cls
echo        
echo  
echo  All Copyright Reserved! 
echo  No Bussiness Permitted! 
echo  Author: IsSaint 
echo  Contact Infomation: 52080012 
echo  
echo           
pause >nul

[ Last edited by gene771771 on 2006-12-26 at 01:45 PM ]
3 发表于 2006-12-25 20:54 ·  中国 河北 廊坊 三河市 移动
金牌会员
★★★★
积分 2,725
发帖 1,160
注册 2006-09-23 12:00
19年会员
UID 63486
来自 河北廊坊
状态 离线
呵呵,楼上的贴代码选择宋体就工整了。(听Wengier说的)
三人行,必有吾师焉。 学然后知不足,教然后知困,然后能自强也。
4 hehe 发表于 2006-12-26 02:47 ·  中国 北京 中国科学院研究生院
银牌会员
★★★
积分 1,187
发帖 555
注册 2006-12-21 07:35
19年会员
UID 74129
性别 男
状态 离线
你好强
5 发表于 2006-12-26 11:56 ·  中国 湖北 仙桃 电信
新手上路
积分 2
发帖 1
注册 2006-12-01 08:49
19年会员
UID 72255
性别 男
状态 离线
不错,哦
6 发表于 2006-12-26 12:09 ·  中国 辽宁 本溪 联通
银牌会员
★★★
积分 1,212
发帖 464
注册 2006-12-13 21:11
19年会员
UID 73417
性别 男
状态 离线
不错!
论坛跳转: