中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-02 20:29
48,038 主题排行 / 350,123 发帖 / 今日 1 篇 / 48,251 会员排行
DOS批处理 & 脚本技术(批处理室) » Merry Christmas!
可打印版本  823 / 5
第1楼 scriptor 发表于 2006-12-25 13:10
银牌会员 发帖 555 积分 1,187
Merry Christmas!
Merry Christmas!

附件
WishUHappy.rar (53.12 KiB)
第2楼 gene771771 发表于 2006-12-25 14:09
初级用户 发帖 77 积分 105 来自 重庆
圣诞节的沙发!
源码如下

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楼 ccwan 发表于 2006-12-25 20:54
金牌会员 发帖 1,160 积分 2,725 来自 河北廊坊
呵呵,楼上的贴代码选择宋体就工整了。(听Wengier说的)
第4楼 scriptor 发表于 2006-12-26 02:47
银牌会员 发帖 555 积分 1,187
hehe
你好强
第5楼 xy588 发表于 2006-12-26 11:56
新手上路 发帖 1 积分 2
不错,哦
第6楼 jmz573515 发表于 2006-12-26 12:09
银牌会员 发帖 464 积分 1,212
不错!
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023