|
jmz573515
银牌会员
积分 1212
发帖 464
注册 2006-12-13
状态 离线
|
 『楼 主』:
简易小闹铃（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>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 ]
此帖被 +15 点积分 点击查看详情 | 评分人：【 ccwan 】 | 分数： +5 | 时间：2006-12-23 05:22 | | 评分人：【 redtek 】 | 分数： +5 | 时间：2006-12-23 05:31 | | 评分人：【 9527 】 | 分数： +3 | 时间：2006-12-23 05:39 | | 评分人：【 lxmxn 】 | 分数： +2 | 时间：2006-12-23 09:08 |
|
|
|
 2006-12-23 04:58 |
|
|
ccwan
金牌会员
积分 2725
发帖 1160
注册 2006-9-23
来自 河北廊坊
状态 离线
|
『第
2 楼』:
虚拟机测试成功，（我的机子很多ｖｂｓ不能用）
加分了．
|
三人行，必有吾师焉。 学然后知不足，教然后知困，然后能自强也。 |
|
|
2006-12-23 05:22 |
|
|
9527
银牌会员
努力做坏人
积分 1185
发帖 438
注册 2006-8-28
来自 北京
状态 离线
|
|
|
2006-12-23 05:32 |
|
|
eech
高级用户
积分 906
发帖 346
注册 2006-7-10
状态 离线
|
『第
4 楼』:
谢谢楼主的作品.很好用.
另外:3楼的朋友.运行你的脚本提示:
: F:\软件\新建 文ff本文档.vbs
行: 1
字符: 1
错误: 无效字符
代码: 800A0408
源: Microsoft VBScript 编译器错误
|
|
|
2006-12-23 06:57 |
|
|
ccwan
金牌会员
积分 2725
发帖 1160
注册 2006-9-23
来自 河北廊坊
状态 离线
|
『第
5 楼』:
3楼是批处理版的
|
三人行，必有吾师焉。 学然后知不足，教然后知困，然后能自强也。 |
|
|
2006-12-23 07:09 |
|
|
eech
高级用户
积分 906
发帖 346
注册 2006-7-10
状态 离线
|
|
|
2006-12-23 07:42 |
|
|
eech
高级用户
积分 906
发帖 346
注册 2006-7-10
状态 离线
|
『第
7 楼』:
如果这个VBS可以扩展一下就好了
|
|
|
2006-12-23 07:44 |
|
|
tulg
初级用户
积分 55
发帖 31
注册 2006-10-22
状态 离线
|
|
|
2006-12-23 08:24 |
|
|
lovehack2006
初级用户
积分 135
发帖 64
注册 2006-12-20
状态 离线
|
『第
9 楼』:
顶，，不过在我机子上三楼的怎么不能用呀？如果计划任务的服务被关了又怎么办呀？是不是该改进一下呀？？？如果计划任务关了的话，AT还能用吗？
|
|
|
2006-12-23 16:45 |
|
|
jmz573515
银牌会员
积分 1212
发帖 464
注册 2006-12-13
状态 离线
|
『第
10 楼』:
我也想问一下，在我的机器上9527兄的也是实现不了，不知道为什么，能不能说一下都需要什么？？
|
|
|
2006-12-24 02:44 |
|
|
redtek
金牌会员
积分 2902
发帖 1147
注册 2006-9-21
状态 离线
|
『第
11 楼』:
如果遇到了不能执行等奇怪的问题更是一件好事儿～：）
兄可以不断的琢磨它的原因、一条一条指令的单试、一遍一遍的分析问题出在哪里……
然后水平就又高了～：）
|
Redtek，一个永远在网上流浪的人……
_.,-*~'`^`'~*-,.__.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._ |
|
|
2006-12-24 02:50 |
|
|
jmz573515
银牌会员
积分 1212
发帖 464
注册 2006-12-13
状态 离线
|
『第
12 楼』:
哈哈，老弟说得有道理，可惜我现在就是想不通为什么在我的机器里不能实现？还请指教！
|
|
|
2006-12-24 02:52 |
|
|
9527
银牌会员
努力做坏人
积分 1185
发帖 438
注册 2006-8-28
来自 北京
状态 离线
|
『第
13 楼』:
这个我不知道WIN2000系统上是否有这个ringin.wav的文件，而且如果是2000路径应该是WINNT才对，其次，要有管理员身份，因为AT需要管理员身份才可以使用（当然可以改下注册表下所有用户都可以使用），最后看下支持AT命令的服务是否开启，还有你的时间显示格式是否正确，我在发帖的时候就已经说明了－－－有很大的局限性
|
我今后在论坛的目标就是做个超级坏人！！！ |
|
|
2006-12-24 02:52 |
|
|
jmz573515
银牌会员
积分 1212
发帖 464
注册 2006-12-13
状态 离线
|
『第
14 楼』:
上面的条件都能满足，我的是XP系统，有c:\windows\media\ringin.wav这个文件，就是不知道有什么方法得到AT命令的服务是否开启?
|
|
|
2006-12-24 02:56 |
|
|
redtek
金牌会员
积分 2902
发帖 1147
注册 2006-9-21
状态 离线
|
『第
15 楼』:
Windows Server 2003 有 ringin.wav 这个文件～：）
C:\windows\Media 的目录
2003-03-27 20:00 10,026 ringin.wav
1 个文件 10,026 字节
|
Redtek，一个永远在网上流浪的人……
_.,-*~'`^`'~*-,.__.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._ |
|
|
2006-12-24 02:56 |
|
