中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 偶写的一个圣诞卡片批处理,,请前辈还指导
English/Chinese Fix Translation
作者:
标题: 偶写的一个圣诞卡片批处理,,请前辈还指导 上一主题 | 下一主题
lzbow
初级用户





积分 23
发帖 13
注册 2009-6-2
状态 离线
『楼 主』:  偶写的一个圣诞卡片批处理,,请前辈还指导 使用 LLM 解释/回答一下

@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 楼』:   使用 LLM 解释/回答一下

挺细心啊,还有进入和退出效果,很人性化的东西,有这样的心态相信你一定能做出更完美的东西。
说一点,%~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 点积分    点击查看详情   
评分人:【 lzbow 分数: +2  时间:2011-1-2 13:50


2010-12-15 12:12
查看资料  发送邮件  发短消息  网志  OICQ (182484135)  编辑帖子  回复  引用回复
netbenton
银牌会员

批处理编程迷


积分 1916
发帖 752
注册 2008-12-28
来自 广西
状态 离线
『第 3 楼』:   使用 LLM 解释/回答一下

我也写一个

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

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

还有鼠标特效哦~~~

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

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

最主要的一点,CPU占用率在%1以下!!!

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


   此帖被 +2 点积分    点击查看详情   
评分人:【 lzbow 分数: +2  时间:2011-1-2 13:51


附件 1: 2010圣诞贺卡.rar (2010-12-16 20:59, 3.13 KiB,下载次数: 70)


精简
=> 个人网志
2010-12-16 15:10
查看资料  发送邮件  发短消息  网志  OICQ (37659560)  编辑帖子  回复  引用回复
Hanyeguxing
银牌会员

正在学习中的菜鸟...


积分 1039
发帖 897
注册 2009-3-1
来自 在地狱中仰望天堂
状态 离线
『第 4 楼』:   使用 LLM 解释/回答一下

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

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

小心哦~~~是炸弹来的,按任意键暴炸。。。
<img src="images/smilies/face-raspberry.png" align="absmiddle" border="0"><img src="images/smilies/face-raspberry.png" align="absmiddle" border="0"><img src="images/smilies/face-raspberry.png" align="absmiddle" border="0"><img src="images/smilies/face-raspberry.png" align="absmiddle" border="0"><img src="images/smilies/face-raspberry.png" align="absmiddle" border="0"><img src="images/smilies/face-raspberry.png" align="absmiddle" border="0"><img src="images/smilies/face-raspberry.png" align="absmiddle" border="0"><img src="images/smilies/face-raspberry.png" align="absmiddle" border="0"><img src="images/smilies/face-raspberry.png" align="absmiddle" border="0"><img src="images/smilies/face-raspberry.png" align="absmiddle" border="0"><img src="images/smilies/face-raspberry.png" align="absmiddle" border="0">




批处理之家 http://bbs.bathome.net/forum-5-1.html
2010-12-16 17:57
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
netbenton
银牌会员

批处理编程迷


积分 1916
发帖 752
注册 2008-12-28
来自 广西
状态 离线
『第 5 楼』:   使用 LLM 解释/回答一下

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

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

3楼附件已经更新。

特别提醒:

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




精简
=> 个人网志
2010-12-16 21:07
查看资料  发送邮件  发短消息  网志  OICQ (37659560)  编辑帖子  回复  引用回复
Hanyeguxing
银牌会员

正在学习中的菜鸟...


积分 1039
发帖 897
注册 2009-3-1
来自 在地狱中仰望天堂
状态 离线
『第 6 楼』:   使用 LLM 解释/回答一下

给你点出乱码了哈。。。


附件 1: 未命名.gif (2010-12-16 21:14, 14.15 KiB,下载次数: 3)




批处理之家 http://bbs.bathome.net/forum-5-1.html
2010-12-16 21:14
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
netbenton
银牌会员

批处理编程迷


积分 1916
发帖 752
注册 2008-12-28
来自 广西
状态 离线
『第 7 楼』:   使用 LLM 解释/回答一下

Hanyeguxing

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




精简
=> 个人网志
2010-12-16 21:39
查看资料  发送邮件  发短消息  网志  OICQ (37659560)  编辑帖子  回复  引用回复
Hanyeguxing
银牌会员

正在学习中的菜鸟...


积分 1039
发帖 897
注册 2009-3-1
来自 在地狱中仰望天堂
状态 离线
『第 8 楼』:   使用 LLM 解释/回答一下

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




批处理之家 http://bbs.bathome.net/forum-5-1.html
2010-12-16 22:50
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
netbenton
银牌会员

批处理编程迷


积分 1916
发帖 752
注册 2008-12-28
来自 广西
状态 离线
『第 9 楼』:   使用 LLM 解释/回答一下

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

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

command /E:4096

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


附件 1: 纯dos下的批处理特效显示.rar (2010-12-17 21:58, 3.13 KiB, 下载附件所需积分 1 点 ,下载次数: 16)


精简
=> 个人网志
2010-12-17 21:58
查看资料  发送邮件  发短消息  网志  OICQ (37659560)  编辑帖子  回复  引用回复
renmingwu
新手上路





积分 5
发帖 3
注册 2009-7-1
状态 离线
『第 10 楼』:   使用 LLM 解释/回答一下

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


2010-12-23 09:46
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
Gipors
新手上路





积分 13
发帖 7
注册 2008-3-9
状态 离线
『第 11 楼』:  ts.com 是什么东东?~ 使用 LLM 解释/回答一下

ts.com 是什么东东?~ 吓人是不是因为这个?!


2010-12-24 15:28
查看资料  发送邮件  发短消息  网志  OICQ (166479294)  编辑帖子  回复  引用回复
acaigg
初级用户





积分 115
发帖 92
注册 2010-12-24
状态 离线
『第 12 楼』:   使用 LLM 解释/回答一下

好东东,哈


2010-12-27 17:55
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
netbenton
银牌会员

批处理编程迷


积分 1916
发帖 752
注册 2008-12-28
来自 广西
状态 离线
『第 13 楼』:   使用 LLM 解释/回答一下

再增强下:

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


附件 1: 2010圣诞贺卡.rar (2010-12-27 19:49, 3.45 KiB, 下载附件所需积分 1 点 ,下载次数: 7)


精简
=> 个人网志
2010-12-27 19:49
查看资料  发送邮件  发短消息  网志  OICQ (37659560)  编辑帖子  回复  引用回复
726842270
初级用户

枫中残雪


积分 65
发帖 43
注册 2010-4-29
来自 吉林省长春市
状态 离线
『第 14 楼』:   使用 LLM 解释/回答一下

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


2011-1-17 10:14
查看资料  发送邮件  发短消息  网志  OICQ (726842270)  编辑帖子  回复  引用回复
acaigg
初级用户





积分 115
发帖 92
注册 2010-12-24
状态 离线
『第 15 楼』:   使用 LLM 解释/回答一下

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


2011-1-18 19:52
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: