批处理之家 - Powered by Discuz! Board

标题: [问题求助] 这个VBS的提醒功能错在哪？ [打印本页]

作者: ww0000 时间: 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
复制代码

作者: batman 时间: 2013-1-16 18:51

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

作者: czjt1234 时间: 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
复制代码

作者: ww0000 时间: 2013-1-16 20:25

回复 2# batman

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

作者: ww0000 时间: 2013-1-16 20:58

回复 3# czjt1234

谢谢老师，向你学习！！

作者: ww0000 时间: 2013-1-17 10:34

回复 3# czjt1234

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

作者: czjt1234 时间: 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
复制代码

作者: ww0000 时间: 2013-1-17 21:57

回复 7# czjt1234

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

作者: czjt1234 时间: 2013-1-18 19:35

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

作者: ww0000 时间: 2013-1-19 10:48

回复 9# czjt1234

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

作者: czjt1234 时间: 2013-1-22 09:29

测试过才发帖的

作者: ww0000 时间: 2013-1-22 10:31

回复 11# czjt1234

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

欢迎光临批处理之家 (http://bbs.bathome.net/)