批处理之家 » VBS求助&讨论 » 这个VBS的提醒功能错在哪？

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

返回列表发帖

Rank: 3 Rank: 3

帖子: 191
积分: 222
技术: 0
捐助: 0
注册时间: 2012-12-15

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 2013-1-16 17:16 | 只看该作者

[问题求助] 这个VBS的提醒功能错在哪？

do
t1="11:45:10" '变量t 示例格式
t2="12:00:10" '变量t 示例格式
if split(now)(1)>=t1 and split(now)(1)<=t2 then
WScript.Echo "吃午饭了"
wscript.sleep 1000*10
loop
else
do
t3="17:15:10" '变量t 示例格式
t4="17:30:10" '变量t 示例格式
if split(now)(1)>=t3 and split(now)(1)<=t4 then
WScript.Echo "吃晚饭了"
end if
wscript.sleep 1000*10
loop
复制代码

Rank: 8 Rank: 8

帖子: 2702
积分: 14562
技术: 177
捐助: 630
注册时间: 2008-6-16

2楼

发表于 2013-1-16 18:51 | 只看该作者

兄弟，如果这是一道100分的考试题，我能说你打0分吗？

＊＊＊共同提高＊＊＊

Rank: 6 Rank: 6

帖子: 1048
积分: 1549
技术: 112
捐助: 0
注册时间: 2010-4-30

3楼

发表于 2013-1-16 19:03 | 只看该作者

t1="11:45:10" '变量t 示例格式
t2="12:00:10" '变量t 示例格式
t3="17:15:10" '变量t 示例格式
t4="17:30:10" '变量t 示例格式

do
    if split(now)(1)>=t1 and split(now)(1)<=t2 then
        do
            WScript.Echo "吃午饭了"
            wscript.sleep 1000*10
            if split(now)(1)>t2 then exit do
        loop
    end if

    if split(now)(1)>=t3 and split(now)(1)<=t4 then
        do
            WScript.Echo "吃晚饭了"
            wscript.sleep 1000*10
            if split(now)(1)>t4 then exit do
        loop
    end if

    wscript.sleep 1000*10
loop
复制代码

1 评分人数

ww0000: 感谢帮助！！技术 + 1

QQ 20147578

Rank: 3 Rank: 3

帖子: 191
积分: 222
技术: 0
捐助: 0
注册时间: 2012-12-15

4楼

发表于 2013-1-16 20:25 | 只看该作者

回复 2# batman

老师，让您见笑了！我是刚学的！请多关照！

Rank: 3 Rank: 3

帖子: 191
积分: 222
技术: 0
捐助: 0
注册时间: 2012-12-15

5楼

发表于 2013-1-16 20:58 | 只看该作者

回复 3# czjt1234

谢谢老师，向你学习！！

Rank: 3 Rank: 3

帖子: 191
积分: 222
技术: 0
捐助: 0
注册时间: 2012-12-15

6楼

发表于 2013-1-17 10:34 | 只看该作者

回复 3# czjt1234

老师,如果我要在消息框中放两个按钮，按“取消”，就不再出现（也就是退出程序），按“忽略”，就10秒钟后再出现，这要怎么改呢？

Rank: 6 Rank: 6

帖子: 1048
积分: 1549
技术: 112
捐助: 0
注册时间: 2010-4-30

7楼

发表于 2013-1-17 13:40 | 只看该作者

按确定继续提醒
按取消不再提醒

t1 = "11:45:10"
t2 = "12:00:10"
t3 = "17:15:10"
t4 = "17:30:10"

Do
    If Split(Now)(1) >= t1 And Split(Now)(1) <= t2 Then
        Do
            Wscript.Sleep 1000 * 10
            If Msgbox("吃午饭了", 1) = 2 Then Exit Do
            If Split(Now)(1) > t2 Then Exit Do
        Loop
    End If

    If split(now)(1)>=t3 and split(now)(1)<=t4 Then
        Do
            Wscript.Sleep 1000 * 10
            If Msgbox("吃晚饭了", 1) = 2 Then Exit Do
            If Split(Now)(1) > t4 Then Exit Do
        Loop
    End If

    Wscript.Sleep 1000 * 10
Loop
复制代码

QQ 20147578

Rank: 3 Rank: 3

帖子: 191
积分: 222
技术: 0
捐助: 0
注册时间: 2012-12-15

8楼

发表于 2013-1-17 21:57 | 只看该作者

回复 7# czjt1234

谢谢，但是有按钮，不能退出！！

Rank: 6 Rank: 6

帖子: 1048
积分: 1549
技术: 112
捐助: 0
注册时间: 2010-4-30

9楼

发表于 2013-1-18 19:35 | 只看该作者

我是设置的退出本次提醒，不是退出整个程序

QQ 20147578

Rank: 3 Rank: 3

帖子: 191
积分: 222
技术: 0
捐助: 0
注册时间: 2012-12-15

10楼

发表于 2013-1-19 10:48 | 只看该作者

回复 9# czjt1234

退出本次提醒也不能达到呀！请测试一下看！

Rank: 6 Rank: 6

帖子: 1048
积分: 1549
技术: 112
捐助: 0
注册时间: 2010-4-30

11楼

发表于 2013-1-22 09:29 | 只看该作者

测试过才发帖的

QQ 20147578

Rank: 3 Rank: 3

帖子: 191
积分: 222
技术: 0
捐助: 0
注册时间: 2012-12-15

12楼

发表于 2013-1-22 10:31 | 只看该作者

回复 11# czjt1234

老师，真的，点了取消，过10秒后又弹出提醒框，点确定也一样！不能退出循环！