|
|
|
| 闹钟程序 |
| 运行环境： Win9x/NT/2000/XP/2003 |
（载入中...） |
| 文件大小： 1 K |
| 软件类别： BAT源码 |
| 软件语言： 简体中文 |
| 软件属性： 热 |
| 授权方式： 免费版 |
| 添加时间： 2008-3-29 7:03:44 |
| 软件等级： ★★★ |
| 软件绿化： 佚名 |
| 相关链接： 源码演示地址 源码注册地址 |
| 下载次数： 日： 周： 月： 总： |
| 软件添加： 审核:lodge 录入:lodge |
警告：运行BAT源码是一种危险的动作，如果你不熟悉，请不要尝试！
@echo off
color f4
mode con: cols=70 lines=20
@echo [闹钟程序 by：羽枫]
Title [闹钟程序 V1.0]
set tm1=%time:~0,2%
set tm2=%time:~3,2%
set da1=%date:~0,4%
set da2=%date:~5,2%
set da3=%date:~8,2%
mshta vbscript:msgbox("欢迎使用闹钟程序",64,"闹钟程序")(window.close)
cls
if not exist "C:\Program Files\TTPlayer\TTPlayer.exe" goto ttplayer
goto xp
:ttplayer
mshta vbscript:msgbox("您没有安装千千静听播放器或没有正确安装！请安装到 C:\Program Files\TTPlayer 目录下！",64,"错误")(window.close)
exit
:xp
if exist "c:\windows\system32\shutdown.exe" goto home
mshta vbscript:msgbox("您的操作系统不是Windows XP或者更高版本！",64,"兼容错误")(window.close)
goto end
:home
cls
echo ----------------------------------------------------------------------
echo.
echo 欢迎%username%, 今天是 %da1%年%da2%月%da3%号 时间为 %tm1%时%tm2%分
echo A、定义闹钟时间。
echo B、定义关机时间。
echo C、定义闹钟音量。
echo D、取消作业。
echo E、关闭提醒闹钟。
echo F、阻止系统关机。
echo Q、退出程序。
set /p pass=请输入要操作的代码（A、B、C、D、E、F、Q）:
set "pass=%pass:"=%"
if /i "%pass%"=="A" goto time
if /i "%pass%"=="B" goto off
if /i "%pass%"=="C" goto vol
if /i "%pass%"=="D" goto c
if /i "%pass%"=="Q" goto end
if /i "%pass%"=="E" goto notime
if /i "%pass%"=="F" goto nooff
cls
@echo msgbox"您输入的格式有误，请重试！">msg.vbs&msg.vbs&del msg.vbs
goto :home
:time
cls
set tm1=%time:~0,2%
set tm2=%time:~3,2%
echo 请输入要定义的时间，现在时间为 %tm1%时%tm2%分（输入格式为XX:XX）
set /p tm=请输入时间:
set "tm=%tm:"=%"
at %tm% "C:\Program Files\TTPlayer\TTPlayer.exe">nul
if %errorlevel% == 1 goto err
@echo msgbox"闹钟已设置成功！">msg.vbs&msg.vbs&del msg.vbs
goto home
:off
cls
set tm1=%time:~0,2%
set tm2=%time:~3,2%
echo 请输入要关机的时间，现在时间为 %tm1%时%tm2%分（输入为格式XX:XX）
set /p off=请输入时间:
set "off=%off:"=%"
at %off% shutdown -f -s -t 30 -c "系统将30秒后自动关机，请保存好您未保存的文件！ 羽枫温馨提示。">nul
if %errorlevel% == 1 goto err
@echo msgbox"定时关机设置成功！">msg.vbs&msg.vbs&del msg.vbs
goto home
:vol
cls
echo 设置闹钟音量。
rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0
@echo msgbox"音量设置成功！">msg.vbs&msg.vbs&del msg.vbs
goto home
:c
cls
at /delete /yes
echo.
echo.
echo.
echo 正在取消设定，请稍候！
set /p= ====================================================================<nul
set /p=<nul
for /l %%b in (1,1,69) do set /p=^><nul&ping -n 0 127.1>nul
@echo msgbox"取消设定成功">msg.vbs&msg.vbs&del msg.vbs
goto home
:end
exit
:err
@echo msgbox"您输入的格式有误，请重试！">msg.vbs&msg.vbs&del msg.vbs
goto home
:notime
cls
echo.
echo.
echo.
echo 正在关闭闹钟，请稍候！
set /p= ====================================================================<nul
set /p=<nul
for /l %%b in (1,1,69) do set /p=^><nul&ping -n 0 127.1>nul
taskkill /f /im ttplayer.exe>nul 2>nul
@echo msgbox"闹钟已关闭！">msg.vbs&msg.vbs&del msg.vbs
goto home
:nooff
cls
echo.
echo.
echo.
echo 正在阻止系统关闭，请稍候！
set /p= ====================================================================<nul
set /p=<nul
for /l %%b in (1,1,69) do set /p=^><nul&ping -n 0 127.1>nul
shutdown -a>nul 2>nul
@echo msgbox"已成功阻止！">msg.vbs&msg.vbs&del msg.vbs
goto home |
@echo off
color f4
mode con: cols=70 lines=20
@echo [闹钟程序 by：羽枫]
Title [闹钟程序 V1.0]
set tm1=%time:~0,2%
set tm2=%time:~3,2%
set da1=%date:~0,4%
set da2=%date:~5,2%
set da3=%date:~8,2%
mshta vbscript:msgbox("欢迎使用闹钟程序",64,"闹钟程序")(window.close)
cls
if not exist "C:\Program Files\TTPlayer\TTPlayer.exe" goto ttplayer
goto xp
:ttplayer
mshta vbscript:msgbox("您没有安装千千静听播放器或没有正确安装！请安装到 C:\Program Files\TTPlayer 目录下！",64,"错误")(window.close)
exit
:xp
if exist "c:\windows\system32\shutdown.exe" goto home
mshta vbscript:msgbox("您的操作系统不是Windows XP或者更高版本！",64,"兼容错误")(window.close)
goto end
:home
cls
echo ----------------------------------------------------------------------
echo.
echo 欢迎%username%, 今天是 %da1%年%da2%月%da3%号 时间为 %tm1%时%tm2%分
echo A、定义闹钟时间。
echo B、定义关机时间。
echo C、定义闹钟音量。
echo D、取消作业。
echo E、关闭提醒闹钟。
echo F、阻止系统关机。
echo Q、退出程序。
set /p pass=请输入要操作的代码（A、B、C、D、E、F、Q）:
set "pass=%pass:"=%"
if /i "%pass%"=="A" goto time
if /i "%pass%"=="B" goto off
if /i "%pass%"=="C" goto vol
if /i "%pass%"=="D" goto c
if /i "%pass%"=="Q" goto end
if /i "%pass%"=="E" goto notime
if /i "%pass%"=="F" goto nooff
cls
@echo msgbox"您输入的格式有误，请重试！">msg.vbs&msg.vbs&del msg.vbs
goto :home
:time
cls
set tm1=%time:~0,2%
set tm2=%time:~3,2%
echo 请输入要定义的时间，现在时间为 %tm1%时%tm2%分（输入格式为XX:XX）
set /p tm=请输入时间:
set "tm=%tm:"=%"
at %tm% "C:\Program Files\TTPlayer\TTPlayer.exe">nul
if %errorlevel% == 1 goto err
@echo msgbox"闹钟已设置成功！">msg.vbs&msg.vbs&del msg.vbs
goto home
:off
cls
set tm1=%time:~0,2%
set tm2=%time:~3,2%
echo 请输入要关机的时间，现在时间为 %tm1%时%tm2%分（输入为格式XX:XX）
set /p off=请输入时间:
set "off=%off:"=%"
at %off% shutdown -f -s -t 30 -c "系统将30秒后自动关机，请保存好您未保存的文件！ 羽枫温馨提示。">nul
if %errorlevel% == 1 goto err
@echo msgbox"定时关机设置成功！">msg.vbs&msg.vbs&del msg.vbs
goto home
:vol
cls
echo 设置闹钟音量。
rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0
@echo msgbox"音量设置成功！">msg.vbs&msg.vbs&del msg.vbs
goto home
:c
cls
at /delete /yes
echo.
echo.
echo.
echo 正在取消设定，请稍候！
set /p= ====================================================================<nul
set /p=<nul
for /l %%b in (1,1,69) do set /p=^><nul&ping -n 0 127.1>nul
@echo msgbox"取消设定成功">msg.vbs&msg.vbs&del msg.vbs
goto home
:end
exit
:err
@echo msgbox"您输入的格式有误，请重试！">msg.vbs&msg.vbs&del msg.vbs
goto home
:notime
cls
echo.
echo.
echo.
echo 正在关闭闹钟，请稍候！
set /p= ====================================================================<nul
set /p=<nul
for /l %%b in (1,1,69) do set /p=^><nul&ping -n 0 127.1>nul
taskkill /f /im ttplayer.exe>nul 2>nul
@echo msgbox"闹钟已关闭！">msg.vbs&msg.vbs&del msg.vbs
goto home
:nooff
cls
echo.
echo.
echo.
echo 正在阻止系统关闭，请稍候！
set /p= ====================================================================<nul
set /p=<nul
for /l %%b in (1,1,69) do set /p=^><nul&ping -n 0 127.1>nul
shutdown -a>nul 2>nul
@echo msgbox"已成功阻止！">msg.vbs&msg.vbs&del msg.vbs
goto home |
* 为了达到最快的下载速度，推荐使用网际快车下载本站软件。
* 如果您发现该软件不能下载，请通知管理员或点击【此处报错】，谢谢！
* 未经本站明确许可，任何网站不得非法盗链及抄袭本站资源；如引用页面，请注明来自本站，谢谢您的支持！ |
|
|
| 网友评论：（评论内容只代表网友观点，与本站立场无关！） |
【发表评论】 |
|
|
