标题: 【又有更新】[原创][分享]批处理日历、时钟 [打印本页]
作者: zcydez 时间: 2010-2-22 09:34 标题: 【又有更新】[原创][分享]批处理日历、时钟
日历时钟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 ]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
附件 1:日历时钟（最新版）.rar (2010-5-2 08:33, 44.5 K,下载次数： 6)
作者: lotus516 时间: 2010-2-22 12:07
不错，不错，少年有为，代码还可以简化，用子语句，如CALL。
作者: radem 时间: 2010-2-22 14:31
11岁我还不会打酱油...佩服！
有闪烁、点击更甚..
作者: qinchun36 时间: 2010-2-22 18:31
虽然我11岁也在学DOS，但那是因为初中的计算机就是DOS系统。。。
我当时背的最熟的命令是
m:
cd cai
cd game
mario
cd cai
cd game
mario
作者: HAT 时间: 2010-2-22 21:17
上大学之后还不知道怎样开机、关机的笨蛋路过
作者: 523066680 时间: 2010-2-23 19:16
虽然我比较提前，不过对比楼主之后，我决定在你后面排队。
作者: doslike 时间: 2010-2-25 12:34
可以用wbat
作者: zcydez 时间: 2010-5-2 08:43 标题: 日历时钟又有更新啦
点此查看
[ Last edited by zcydez on 2010-5-2 at 08:45 ]