中国DOS联盟

@echo off
title 圣诞卡片
color 02
echo.
echo.
echo 想要给你的TA一张电子圣诞卡片吗?按照下面的提示就可以了.
echo.
pause
cls
set /p name= 输入你的TA的名字^(输入完后按回车键继续^)：
set /p one= 输入你要对TA说的第一句话，最多只能25个字哦(输入完后按回车键继续^)：
set /p two= 输入你要对TA说的第二句话，最多只能25个字哦(输入完后按回车键继续^)：
set /p three= 输入你要对TA说的第二句话，最多只能25个字哦(输入完后按回车键继续^)：
set /p you= 输入你的大名(输入完后按回车键继续^)：
set one=%one:~0,25%
set two=%two:~0,25%
set three=%three:~0,25%
set a=10
set b=5
set c=0
:m
set /a a+=7
set /a b+=2
set /a c+=1
if %c% gtr 9 set c=0
color 0%c%
echo.
echo ·
echo · ☆ ·
echo · ☆△☆
echo · ◇※※◇ · ·
echo · △△※△△
echo · ★※☆★※★☆ ·
echo △
echo · ☆※☆ ·
echo ◆◇●◎ ·
echo · △※▲※★ ·
echo ※☆◇◇☆※
echo · △△△△△△△△△
echo · ■ ·
echo · ■ ·
echo · ■ ·
echo ----------------------------------------------------------------------------------------------
echo · · · · 祝你 · · · ·
echo · · · · · · · ·
echo · · · · · ·
echo · · · ·
echo · 圣诞 · · 快乐 ·
echo · · · ·
echo · · · ·
echo · · · ·
echo · · · ·
echo · ·
mode con cols=%a% lines=%b%
if %a% lss 90 goto m
echo.
echo ·
echo · ☆ ·
echo · ☆△☆
echo · ◇※※◇ · · TO:%name%
echo · △△※△△ %one%
echo · ★※☆★※★☆ · %two%
echo △ %three%
echo · ☆※☆ ·
echo ◆◇●◎ ·
echo · △※▲※★ ·
echo ※☆◇◇☆※
echo · △△△△△△△△△
echo · ■ · By:%you%
echo · ■ ·
echo · ■ ·
echo ----------------------------------------------------------------------------------------------
echo · · · · 祝你 · · · ·
echo · · · · · · · ·
echo · · · · · ·
echo · · · ·
echo · 圣诞 · · 快乐 ·
echo · · · ·
echo · · · ·
echo · · · ·
echo · · · ·
echo · ·
for %%i in (01 02 03 04 05 06 07 08 09 0a 0b 0c 0d 0e 0f) do (ping 127.0.0.1 -n 2 > nul & color %%i)
echo 预览完了吗?按任意键退出！ & pause >nul
echo @echo off >> temp.txt
echo title 圣诞节快乐 >> temp.txt
echo set one=%one% >> temp.txt
echo set two=%two% >> temp.txt
echo set three=%three% >> temp.txt
echo set you=%you% >> temp.txt
for /f "skip=17 tokens=*" %%i in ('type %0') do echo %%i >> temp.txt
for /f "skip=2 tokens=*" %%i in ('find /v /i "temp" temp.txt') do echo %%i >>temp1.txt
for /f "skip=2 tokens=*" %%i in ('find /v /i "explorer" temp1.txt') do echo %%i >>temp2.txt
for /f "skip=2 tokens=*" %%i in ('find /v /i "ta" temp2.txt') do echo %%i >> 圣诞卡片.bat
del temp.txt
del temp1.txt
del temp2.txt
echo 卡片已经保存在%~d0%~p0，你可以发给你的那个TA了. 按任意键退出. & pause > nul
start explorer %~d0%~p0
:s
set /a a-=7
set /a b-=2
mode con cols=%a% lines=%b%
if %a% gtr 10 (goto s) else (exit)

挺细心啊，还有进入和退出效果，很人性化的东西，有这样的心态相信你一定能做出更完美的东西。
说一点，%~d0%~p0跟%~pd0和%~dp0其实是一样的。我感觉如果把下面这些帖子里的东西应用进来，可能会更好：
单行输出彩色字符
http://cn-dos.net/forum/viewthread.php?tid=38940
explorer.exe的命令参数及其应用
http://cn-dos.net/forum/viewthread.php?tid=28256

我也写一个

用楼主的图，
但是多彩的，
星星会一闪一闪的~~~

文件还是逐字变色的~~~

还有鼠标特效哦~~~

跟随鼠标上的星星还会变色的~~嘿嘿~~

鼠标移多了花屏怎么办，不要紧！文字逐字变好后，就会自动刷新的~~~

最主要的一点，CPU占用率在%1以下！！！

[ Last edited by netbenton on 2010-12-16 at 01:03 ]

Originally posted by netbenton at 2010-12-16 15:10:
我也写一个

用楼主的图，
但是多彩的，
星星会一闪一闪的~~~

小心哦~~~是炸弹来的，按任意键暴炸。。。

说是炸弹，是用来吓MM的，哈哈~~~

刚刚增加了不少功能，在cmd窗口能玩成这样~~~~~~~。。。

3楼附件已经更新。

特别提醒：

这个ts.com 也可以在纯DOS下实现这些特效功能的！！！

给你点出乱码了哈。。。

Hanyeguxing

看来你的电脑和我的较兼容，
好多网友说运行看不到效果，
也不知道原因何在？

凡是看不到的通通RPWT......

再写个在纯dos下特效，win下就试3楼的

要把环境变量空间设置大一点：

command /E:4096

用 天汇 或，ucdos 汉字显示系统

我这没有乱码，效果也出来了，挺漂亮的。

ts.com 是什么东东？~ 吓人是不是因为这个？！

好东东，哈

再增强下：

实现了按鼠标移动轨迹显示多彩星星，并逐渐消失。

思路非常不错，构思奇妙,学习了

建議增加音樂效果進去會更好.