中国DOS联盟

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

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

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

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » Merry Christmas!

scriptor
银牌会员

积分 1187
发帖 555
注册 2006-12-21
状态离线

『楼主』: Merry Christmas!

Merry Christmas!

附件 1: WishUHappy.rar (2006-12-25 13:10, 53.12 K, 下载附件所需积分 1 点 ,下载次数： 78)

2006-12-25 13:10

gene771771
初级用户

积分 105
发帖 77
注册 2006-11-9
来自重庆
状态离线

『第 2 楼』:

圣诞节的沙发！
源码如下

cls
@echo off
if not "%~n0"=="EncryBat" goto EncryBat_Display
if not [%1]==[] 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 [%0]==[EncryBat] 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 ]

2006-12-25 14:09