设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 其他脚本区 › VBS求助&讨论 › 这个VBS的提醒功能错在哪？
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发新帖
查看: 23370|回复: 11

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

[复制链接]
ww0000
发表于 2013-1-16 17:16:08 | 显示全部楼层 |阅读模式
  1. do
  2. t1="11:45:10" '变量t 示例格式
  3. t2="12:00:10" '变量t 示例格式
  4. if split(now)(1)>=t1 and split(now)(1)<=t2 then
  5. WScript.Echo "吃午饭了"
  6. wscript.sleep 1000*10
  7. loop
  8. else
  9. do
  10. t3="17:15:10" '变量t 示例格式
  11. t4="17:30:10" '变量t 示例格式
  12. if split(now)(1)>=t3 and split(now)(1)<=t4 then
  13. WScript.Echo "吃晚饭了"
  14. end if
  15. wscript.sleep 1000*10
  16. loop
复制代码
回复

举报

batman
发表于 2013-1-16 18:51:57 | 显示全部楼层
兄弟，如果这是一道100分的考试题，我能说你打0分吗？
回复

举报

czjt1234
发表于 2013-1-16 19:03:11 | 显示全部楼层
  1. t1="11:45:10" '变量t 示例格式
  2. t2="12:00:10" '变量t 示例格式
  3. t3="17:15:10" '变量t 示例格式
  4. t4="17:30:10" '变量t 示例格式

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

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

  23.     wscript.sleep 1000*10
  24. loop
复制代码

评分

参与人数 1技术 +1 收起 理由
ww0000 + 1 感谢帮助！！

查看全部评分

回复

举报

ww0000
 楼主| 发表于 2013-1-16 20:25:06 | 显示全部楼层
回复 2# batman


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

举报

ww0000
 楼主| 发表于 2013-1-16 20:58:33 | 显示全部楼层
回复 3# czjt1234


    谢谢老师，向你学习！！
回复

举报

ww0000
 楼主| 发表于 2013-1-17 10:34:32 | 显示全部楼层
回复 3# czjt1234


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

举报

czjt1234
发表于 2013-1-17 13:40:00 | 显示全部楼层
按 确定 继续提醒
按 取消 不再提醒
  1. t1 = "11:45:10"
  2. t2 = "12:00:10"
  3. t3 = "17:15:10"
  4. t4 = "17:30:10"

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

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

  23.     Wscript.Sleep 1000 * 10
  24. Loop
复制代码
回复

举报

ww0000
 楼主| 发表于 2013-1-17 21:57:43 | 显示全部楼层
回复 7# czjt1234


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

举报

czjt1234
发表于 2013-1-18 19:35:48 | 显示全部楼层
我是设置的退出本次提醒，不是退出整个程序
回复

举报

ww0000
 楼主| 发表于 2013-1-19 10:48:18 | 显示全部楼层
回复 9# czjt1234


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

举报

czjt1234
发表于 2013-1-22 09:29:18 | 显示全部楼层
测试过才发帖的
回复

举报

ww0000
 楼主| 发表于 2013-1-22 10:31:11 | 显示全部楼层
回复 11# czjt1234


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

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 14:29 , Processed in 0.013559 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表