中国DOS联盟

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

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

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

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 偶写的一个圣诞卡片批处理，，请前辈还指导

« [1] [2] » ›

lzbow
初级用户

积分 23
发帖 13
注册 2009-6-2
状态离线

『楼主』: 偶写的一个圣诞卡片批处理，，请前辈还指导

@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)

我不是人

2010-12-14 18:45

qinchun36
高级用户

据说是李先生

积分 609
发帖 400
注册 2008-4-23
状态离线

『第 2 楼』:

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

此帖被 +2 点积分点击查看详情

2010-12-15 12:12

(182484135)

netbenton
银牌会员

批处理编程迷

积分 1916
发帖 752
注册 2008-12-28
来自广西
状态离线

『第 3 楼』:

我也写一个

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

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

还有鼠标特效哦~~~

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

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

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

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

此帖被 +2 点积分点击查看详情