private
sub
timer1_timer（）
label1.caption
=
time
end
sub就行了。谢谢采纳
这个要装千千静听来为你响闹钟@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
第一步：点击菜单——所有程序——附件。第二步：系统工具，任务计划程序，并启动“任务计划程序”。
第三步：启动之后，单击“操作”菜单，然后选择“创建任务”。
第四步：在创建任务窗口，单击“常规”选项卡，输入计划任务的信息。
第五步：然后单击第二个选项卡“触发器”，单击左下角的“新建”，在新建触发器编辑框里输入那些信息，然后“确定”按钮。
第六步：单击“操作”选项卡，再单击左下角的“新建”按钮，选择你要启动的程序，比如酷狗或者天天静听都可以，选择歌曲，然后单击“确定”按钮。
第七步：单击“条件”选项卡，勾选“唤醒计算机运行此程序”，
第八步：单击“设置”选项卡，勾选上“第二个”可以立即体验，回到任务计划程序窗口，单击右边的“启用”。
