简易小闹铃（VBS）版——本机（XP SP2）上测试通过。 - 中国DOS联盟论坛

'前几天看到利用批处理发出声音（ECHO ^G）的贴子，于是想到了...。

'功能：在指定时间发出声音提醒你，提醒完之后会出现一个询问框，如果你没有任何操作程序将在10妙之后自动取消询问框并在1分钟后继续提醒。


on error resume next
set ws=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
a=0
do until a=1
t=inputbox("注意：本程序只考虑到分种，时间格式为" & vbcrlf & vbcrlf & "    早晨：8点5分要输入0805" & vbcrlf & vbcrlf & "    下午：1点要输入1300" & vbcrlf & vbcrlf & "其它以此类推。","小闹铃","请在些处输入提醒您的时间")
if t="" then
wscript.quit
elseif IsNumeric(t)=false  then
msgbox "输入错误，请重新输入！",16+4096,"错误"
elseif len(t)<>4 or left(t,2)>24 or right(t,2)>59 then
msgbox "输入错误，请重新输入！",16+4096,"错误"
else
a=1
call naoling()
end if
loop
sub naoling()
shi=left(t,2)
fen=right(t,2)
do
if timer>3600*shi+60*fen then
ws.run "cmd /c @echo ",0,true
sfjx=Ws.Popup("时间已到,是否继续运行闹铃程序?"& vbcrlf & "如果不退出闹铃将在1分钟后继续提醒。", 10, "闹铃提醒", 4 + 32)
if sfjx=7 then 
wscript.quit
else
wscript.sleep 1000*60
end if
end if
wscript.sleep 1000
loop
end sub

[ Last edited by jmz573515 on 2006-12-28 at 09:04 AM ]

虚拟机测试成功，（我的机子很多ｖｂｓ不能用）
加分了．

我的超简易，P版小闹闹，呵呵，有很大的局限性，XP测试通过，各位凑活着用吧！！！


@echo off&setlocal
set/p a=请您输入闹钟提醒您的时间(格式：18:30) ：
at %a% ""mplay32.exe /play /close c:\windows\media\ringin.wav"" >nul

谢谢楼主的作品.很好用.

另外:3楼的朋友.运行你的脚本提示:

: F:\软件\新建文ff本文档.vbs
行: 1
字符: 1
错误: 无效字符
代码: 800A0408
源: Microsoft VBScript 编译器错误

3楼是批处理版的

对不起.是我看错了

如果这个VBS可以扩展一下就好了

3楼的不错啊。谢谢

顶，，不过在我机子上三楼的怎么不能用呀？如果计划任务的服务被关了又怎么办呀？是不是该改进一下呀？？？如果计划任务关了的话，AT还能用吗？

我也想问一下，在我的机器上9527兄的也是实现不了，不知道为什么，能不能说一下都需要什么？？

如果遇到了不能执行等奇怪的问题更是一件好事儿～：）
兄可以不断的琢磨它的原因、一条一条指令的单试、一遍一遍的分析问题出在哪里……
然后水平就又高了～：）

哈哈，老弟说得有道理，可惜我现在就是想不通为什么在我的机器里不能实现？还请指教！

这个我不知道WIN2000系统上是否有这个ringin.wav的文件，而且如果是2000路径应该是WINNT才对，其次，要有管理员身份，因为AT需要管理员身份才可以使用（当然可以改下注册表下所有用户都可以使用），最后看下支持AT命令的服务是否开启，还有你的时间显示格式是否正确，我在发帖的时候就已经说明了－－－有很大的局限性

上面的条件都能满足，我的是XP系统，有c:\windows\media\ringin.wav这个文件，就是不知道有什么方法得到AT命令的服务是否开启?

Windows Server 2003 有 ringin.wav 这个文件～：）


 C:\windows\Media 的目录

2003-03-27  20:00            10,026 ringin.wav
               1 个文件         10,026 字节

第1楼　jmz573515	发表于 2006-12-23 04:58
银牌会员　发帖 464　积分 1,212
简易小闹铃（VBS）版——本机（XP SP2）上测试通过。 '前几天看到利用批处理发出声音（ECHO ^G）的贴子，于是想到了...。 '功能：在指定时间发出声音提醒你，提醒完之后会出现一个询问框，如果你没有任何操作程序将在10妙之后自动取消询问框并在1分钟后继续提醒。 on error resume next set ws=createobject("wscript.shell") set fso=createobject("scripting.filesystemobject") a=0 do until a=1 t=inputbox("注意：本程序只考虑到分种，时间格式为" & vbcrlf & vbcrlf & " 早晨：8点5分要输入0805" & vbcrlf & vbcrlf & " 下午：1点要输入1300" & vbcrlf & vbcrlf & "其它以此类推。","小闹铃","请在些处输入提醒您的时间") if t="" then wscript.quit elseif IsNumeric(t)=false then msgbox "输入错误，请重新输入！",16+4096,"错误" elseif len(t)<>4 or left(t,2)>24 or right(t,2)>59 then msgbox "输入错误，请重新输入！",16+4096,"错误" else a=1 call naoling() end if loop sub naoling() shi=left(t,2) fen=right(t,2) do if timer>3600shi+60fen then ws.run "cmd /c @echo ",0,true sfjx=Ws.Popup("时间已到,是否继续运行闹铃程序?"& vbcrlf & "如果不退出闹铃将在1分钟后继续提醒。", 10, "闹铃提醒", 4 + 32) if sfjx=7 then wscript.quit else wscript.sleep 100060 end if end if wscript.sleep 1000 loop end sub [ Last edited by jmz573515 on 2006-12-28 at 09:04 AM* ]

第2楼　ccwan	发表于 2006-12-23 05:22
金牌会员　发帖 1,160　积分 2,725　来自河北廊坊
虚拟机测试成功，（我的机子很多ｖｂｓ不能用）加分了．

第3楼　9527	发表于 2006-12-23 05:32
银牌会员　发帖 438　积分 1,185　来自北京
我的超简易，P版小闹闹，呵呵，有很大的局限性，XP测试通过，各位凑活着用吧！！！ @echo off&setlocal set/p a=请您输入闹钟提醒您的时间(格式：18:30) ： at %a% ""mplay32.exe /play /close c:\windows\media\ringin.wav"" >nul

第4楼　eech	发表于 2006-12-23 06:57
高级用户　发帖 346　积分 906
谢谢楼主的作品.很好用. 另外:3楼的朋友.运行你的脚本提示: : F:\软件\新建文ff本文档.vbs 行: 1 字符: 1 错误: 无效字符代码: 800A0408 源: Microsoft VBScript 编译器错误

第5楼　ccwan	发表于 2006-12-23 07:09
金牌会员　发帖 1,160　积分 2,725　来自河北廊坊
3楼是批处理版的

第6楼　eech	发表于 2006-12-23 07:42
高级用户　发帖 346　积分 906
对不起.是我看错了

第7楼　eech	发表于 2006-12-23 07:44
高级用户　发帖 346　积分 906
如果这个VBS可以扩展一下就好了

第8楼　tulg	发表于 2006-12-23 08:24
初级用户　发帖 31　积分 55
3楼的不错啊。谢谢

第9楼　lovehack2006	发表于 2006-12-23 16:45
初级用户　发帖 64　积分 135
顶，，不过在我机子上三楼的怎么不能用呀？如果计划任务的服务被关了又怎么办呀？是不是该改进一下呀？？？如果计划任务关了的话，AT还能用吗？

第10楼　jmz573515	发表于 2006-12-24 02:44
银牌会员　发帖 464　积分 1,212
我也想问一下，在我的机器上9527兄的也是实现不了，不知道为什么，能不能说一下都需要什么？？

第11楼　redtek	发表于 2006-12-24 02:50
金牌会员　发帖 1,147　积分 2,902
如果遇到了不能执行等奇怪的问题更是一件好事儿～：）兄可以不断的琢磨它的原因、一条一条指令的单试、一遍一遍的分析问题出在哪里…… 然后水平就又高了～：）

第12楼　jmz573515	发表于 2006-12-24 02:52
银牌会员　发帖 464　积分 1,212
哈哈，老弟说得有道理，可惜我现在就是想不通为什么在我的机器里不能实现？还请指教！

第13楼　9527	发表于 2006-12-24 02:52
银牌会员　发帖 438　积分 1,185　来自北京
这个我不知道WIN2000系统上是否有这个ringin.wav的文件，而且如果是2000路径应该是WINNT才对，其次，要有管理员身份，因为AT需要管理员身份才可以使用（当然可以改下注册表下所有用户都可以使用），最后看下支持AT命令的服务是否开启，还有你的时间显示格式是否正确，我在发帖的时候就已经说明了－－－有很大的局限性

第14楼　jmz573515	发表于 2006-12-24 02:56
银牌会员　发帖 464　积分 1,212
上面的条件都能满足，我的是XP系统，有c:\windows\media\ringin.wav这个文件，就是不知道有什么方法得到AT命令的服务是否开启?

第15楼　redtek	发表于 2006-12-24 02:56
金牌会员　发帖 1,147　积分 2,902
Windows Server 2003 有 ringin.wav 这个文件～：） C:\windows\Media 的目录 2003-03-27 20:00 10,026 ringin.wav 1 个文件 10,026 字节