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

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

czjt1234

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

czjt1234

测试过才发帖的