中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 【又有更新】[原创][分享]批处理日历、时钟
作者:
标题: 【又有更新】[原创][分享]批处理日历、时钟 取消高亮 | 上一主题 | 下一主题
zcydez
初级用户





积分 38
发帖 21
注册 2010-2-21
来自 南昌
状态 离线
『楼 主』:  【又有更新】[原创][分享]批处理日历、时钟

日历时钟3.0版:
闲着没事做,又搞了个升级版,又改了一些代码,还在想办法解决闰年时显示月份的bug,还望高手指教。
解决了关闭按钮只有指向才能有用的BUG,现在只有单击才有效~~~
小弟才12岁,现在读六年级,水平有限,还望大家多多关照。
新版和旧版都在附件里。
另外本批处理需要附加程序Cmos.exe、Curs.exe,都在附件里。
附加程序地址:http://bbs.bathome.net/thread-3148-1-1.html
点此下载主程序
:a
cls
@echo off
title 文件夹加密小程序 QQ:1061159532
echo.正在初始化,请稍后...
MODE CON: COLS=38 LINES=19
color 1e
if exist password.exe (goto g1) else (goto error1)
:g1
cls
set password=
set pass_word=
set errorlevel=
set xz=
set wjm=
set wjm2=
::输入密码
cls
echo.
echo.  ┌───────────────┐
echo.  │   文件加密小程序v2.0beta版   │
echo.  │        欢★迎★使★用        │
echo.  ├───────────────┤
echo.  │请选择功能:(用鼠标左键点击)│
echo.  │1.新建加密的文件夹            │
echo.  │2.删除加密的文件夹            │
echo.  │3.打开加密的文件夹            │
echo.  │4.退出                        │
echo.  │                              │
echo.  │                              │
echo.  │                              │
echo.  │                              │
echo.  │                              │
echo.  ├───────────────┤
echo.  │等待输入密码......            │
echo.  └───────────────┘
@echo off
password "set ''pass=$input''" "请输入密码(点击取消关闭)"  /oem /pass>temp.bat
if not errorlevel 1 call temp.bat
del temp.bat 2>nul
if not defined pass exit
if "%pass%" neq "123" goto error
:ks
:b
CurS /crv 0
cls
echo.
echo.  ┌───────────────┐
echo.  │   文件加密小程序v2.0beta版   │
echo.  │        欢★迎★使★用        │
echo.  ├───────────────┤
echo.  │请选择功能:(用鼠标左键点击)│
echo.  │1.新建加密的文件夹            │
echo.  │2.删除加密的文件夹            │
echo.  │3.打开加密的文件夹            │
echo.  │4.退出                        │
echo.  │                              │
echo.  │                              │
echo.  │                              │
echo.  │                              │
echo.  │                              │
echo.  ├───────────────┤
echo.  │就绪                          │
echo.  └───────────────┘
:cmos
Cmos 0 -1 1 0 18
set /a P=%errorlevel%
set /a X=%P:~0,-3%
set /a Y=%P%-1000*%X%
if %y% equ 7 (
goto ba1
) else (
goto aa1
)
:aa1
if %y% equ 8 (
goto ba2
) else (
goto aa2
)
:aa2
if %y% equ 9 (
goto ba3
) else (
goto aa3
)
:aa3
if %y% equ 10 (
goto ba4
) else (
goto cmos
)
:ba1
if %x% geq 5 if %x% leq 22 (
set xz=1
goto c
) else (
goto b
)
:ba2
if %x% geq 5 if %x% leq 22 (
set xz=2
goto c
) else (
goto b
)
:ba3
if %x% geq 5 if %x% leq 22 (
set xz=3
goto c
) else (
goto b
)
:ba4
if %x% geq 5 if %x% leq 10 (
set xz=4
goto c
) else (
goto cmos
)
:c
cls
goto b%xz%
pause
goto b
:b1
echo.
echo.  ┌───────────────┐
echo.  │   文件加密小程序v2.0beta版   │
echo.  │        欢★迎★使★用        │
echo.  ├───────────────┤
echo.  │新建文件夹 功能:新建一个只有 │
echo.  │本程序才能打开或删除的文件夹,│
echo.  │新建文件夹后可以把要加密的文件│
echo.  │放入加密的文件以达到加密效果。│
echo.  │注:请在新建文件夹前将本程序复│
echo.  │制到要新建文件夹的目录下,因为│
echo.  │文件夹新建后不能复制或移动。  │
echo.  │请输入文件夹名:(不能带空格)│
echo.  │                              │
echo.  │                              │
echo.  ├───────────────┤
echo.  │                              │
echo.  └───────────────┘
CurS /crv 1
CurS /pos 1 16
set /p wjm= │
md %wjm%..\
CurS /crv 0
cls
echo.
echo.  ┌───────────────┐
echo.  │   文件加密小程序v2.0beta版   │
echo.  │        欢★迎★使★用        │
echo.  ├───────────────┤
echo.  │新建文件夹 功能:新建一个只有 │
echo.  │本程序才能打开或删除的文件夹,│
echo.  │新建文件夹后可以把要加密的文件│
echo.  │放入加密的文件以达到加密效果。│
echo.  │注:请在新建文件夹前将本程序复│
echo.  │制到要新建文件夹的目录下,因为│
echo.  │文件夹新建后不能复制或移动。  │
echo.  │                              │
echo.  │                              │
echo.  │                              │
echo.  ├───────────────┤
echo.  │操作完成!                    │
echo.  └───────────────┘
ping -n 2 127.0.1>nul
goto b
:b2
echo.
echo.  ┌───────────────┐
echo.  │   文件加密小程序v2.0beta版   │
echo.  │        欢★迎★使★用        │
echo.  ├───────────────┤
echo.  │功能:强力删除本程序创建的用普│
echo.  │通方法无法删除的文件夹        │
echo.  │请把要删除的文件夹(必须是本程│
echo.  │序创建的文件夹)拖动到本窗口,│
echo.  │然后回车。                    │
echo.  │                              │
echo.  │                              │
echo.  │                              │
echo.  │                              │
echo.  │                              │
echo.  ├───────────────┤
echo.  │就绪                          │
echo.  └───────────────┘
set /p wjm2=
rd /s /q "%wjm2%.\"
cls
echo.
echo.  ┌───────────────┐
echo.  │   文件加密小程序v2.0beta版   │
echo.  │        欢★迎★使★用        │
echo.  ├───────────────┤
echo.  │功能:强力删除本程序创建的用普│
echo.  │通方法无法删除的文件夹        │
echo.  │请把要删除的文件夹(必须是本程│
echo.  │序创建的文件夹)拖动到本窗口,│
echo.  │然后回车。                    │
echo.  │                              │
echo.  │                              │
echo.  │                              │
echo.  │                              │
echo.  │                              │
echo.  ├───────────────┤
echo.  │操作完成!                    │
echo.  └───────────────┘
ping -n 2 127.0.1>nul
goto b
:b3
echo.
echo.  ┌───────────────┐
echo.  │   文件加密小程序v2.0beta版   │
echo.  │        欢★迎★使★用        │
echo.  ├───────────────┤
echo.  │功能:打开本程序创建的用普通方│
echo.  │法无法打开的文件夹,并在文件夹│
echo.  │中进行常规文件操作。          │
echo.  │注:要打开或修改文件,请先把文│
echo.  │件夹里的文件移到别的地方才能正│
echo.  │常操作。                      │
echo.  │请把要打开的文件夹(必须是本程│
echo.  │序创建的文件夹)拖动到本窗口,│
echo.  │然后回车。                    │
echo.  │                              │
echo.  ├───────────────┤
echo.  │就绪                          │
echo.  └───────────────┘
set /p wjm2=
cls
echo.
echo.  ┌───────────────┐
echo.  │   文件加密小程序v2.0beta版   │
echo.  │        欢★迎★使★用        │
echo.  ├───────────────┤
echo.  │功能:打开本程序创建的用普通方│
echo.  │法无法打开的文件夹,并在文件夹│
echo.  │中进行常规文件操作。          │
echo.  │注:要打开或修改文件,请先把文│
echo.  │件夹里的文件移到别的地方才能正│
echo.  │常操作。                      │
echo.  │请把要打开的文件夹(必须是本程│
echo.  │序创建的文件夹)拖动到本窗口,│
echo.  │然后回车。                    │
echo.  │                              │
echo.  ├───────────────┤
echo.  │操作完成!                    │
echo.  └───────────────┘
set wjm2=%wjm2:~0,-1%
call explorer %wjm2%..\"
rd /s /q %wjm2%"
goto b
:b4
echo.谢谢使用,再见!
ping -n 3 127.0.1>nul
exit
:error
cls
color c1
echo.程序出现未知错误或密码错误!
echo.程序将在2秒后重启。
ping -n 3 127.0.1>nul
start "" %0
exit
:error1
color c1
cls
echo.错误:文件“password.exe”丢失。
echo.按任意键退出。
pause>nul
exit
[ Last edited by zcydez on 2010-5-2 at 08:39 ]

   此帖被 +18 点积分        点击查看详情   
评分人:【 radem 分数: +8  时间:2010-2-22 14:32
评分人:【 lotus516 分数: +8  时间:2010-2-22 16:48
评分人:【 qinchun36 分数: +2  时间:2010-2-22 18:32


附件 1: 日历时钟(最新版).rar (2010-5-2 08:33, 44.5 K,下载次数: 6)
2010-2-22 09:34
查看资料  发送邮件  发短消息 网志  OICQ (1061159532)  编辑帖子  回复  引用回复
lotus516
高级用户

论坛上抢劫的


积分 551
发帖 246
注册 2006-9-21
状态 离线
『第 2 楼』:  

不错,不错,少年有为,代码还可以简化,用子语句,如CALL。

2010-2-22 12:07
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
radem
高级用户

CMD感染者


积分 691
发帖 383
注册 2008-5-23
状态 离线
『第 3 楼』:  

11岁我还不会打酱油...佩服!
有闪烁、点击更甚..



2010-2-22 14:31
查看资料  发短消息 网志   编辑帖子  回复  引用回复
qinchun36
高级用户

据说是李先生


积分 609
发帖 400
注册 2008-4-23
状态 离线
『第 4 楼』:  

虽然我11岁也在学DOS,但那是因为初中的计算机就是DOS系统。。。
我当时背的最熟的命令是
m:
cd cai
cd game
mario




┏━━━━━━┓
┃据说是李先生┃
┠──────┨
┃*ntRSS┃
┗━━━━━━┛
2010-2-22 18:31
查看资料  发送邮件  发短消息 网志  OICQ (182484135)  编辑帖子  回复  引用回复
HAT
版主





积分 9023
发帖 5017
注册 2007-5-31
状态 离线
『第 5 楼』:  

上大学之后还不知道怎样开机、关机的笨蛋路过



2010-2-22 21:17
查看资料  发短消息 网志   编辑帖子  回复  引用回复
523066680
银牌会员

SuperCleaner


积分 2362
发帖 1133
注册 2008-2-2
状态 离线
『第 6 楼』:  

虽然我比较提前,不过对比楼主之后,我决定在你后面排队。



综合型编程论坛

我的作品索引
  
2010-2-23 19:16
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (523066680)  编辑帖子  回复  引用回复
doslike
版主

系统收藏家


积分 326
发帖 285
注册 2010-2-22
来自 黑龙江省
状态 离线
『第 7 楼』:  

可以用wbat

2010-2-25 12:34
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
zcydez
初级用户





积分 38
发帖 21
注册 2010-2-21
来自 南昌
状态 离线
『第 8 楼』:  日历时钟又有更新啦

点此查看

[ Last edited by zcydez on 2010-5-2 at 08:45 ]

2010-5-2 08:43
查看资料  发送邮件  发短消息 网志  OICQ (1061159532)  编辑帖子  回复  引用回复

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


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



论坛跳转: