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

ww0000

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
复制代码

batman

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

czjt1234

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
复制代码

ww0000

回复 2# batman


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

ww0000

回复 3# czjt1234


    谢谢老师，向你学习！！

ww0000

回复 3# czjt1234


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

czjt1234

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

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
复制代码

ww0000

回复 7# czjt1234


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

czjt1234

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

ww0000

回复 9# czjt1234


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

czjt1234

测试过才发帖的

ww0000

回复 11# czjt1234


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