以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  定时发送消息怎么写？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=124439)
--  作者：YDS
--  发布时间：2018/9/6 11:24:00
--  定时发送消息怎么写？
我想在计划任务里面添加一个计划，每天早上7.30和晚上20.30各发送一次消息，代码应该怎么写？间隔时间应该为多久？
--  作者：有点甜
--  发布时间：2018/9/6 11:34:00
--  

1、间隔可以设置成5分钟或者1分钟；

 

2、可以这样写代码

 

static ptime1 As Date
static ptime2 As Date
If ptime1 <> Date.Today AndAlso Format(Date.Now, "HH:mm") >= "07:30" AndAlso Format(Date.Now, "HH:mm") <= "07:35" Then
    MyTimers("计划1").Enabled = False
    \'msgbox(123) 发送代码
    ptime1 = Date.Today
    MyTimers("计划1").Enabled = True
End If

If ptime2 <> Date.Today AndAlso Format(Date.Now, "HH:mm") >= "20:30" AndAlso Format(Date.Now, "HH:mm") <= "20:35" Then
    MyTimers("计划1").Enabled = False
    \'msgbox(123) 发送代码
    ptime2 = Date.Today
    MyTimers("计划1").Enabled = True
End If
--  作者：YDS
--  发布时间：2018/9/6 11:43:00
--  
    MyTimers("计划1").Enabled = False
    \'msgbox(123) 发送代码
    ptime1 = Date.Today
    MyTimers("计划1").Enabled = True


老师可以解释一下这一段的意思吗？
--  作者：有点甜
--  发布时间：2018/9/6 11:55:00
--  

1、执行时候暂停再执行计时器

 

MyTimers("计划1").Enabled = False

 

2、ptime1用来记录不要今天第二次执行计时器代码
--  作者：YDS
--  发布时间：2018/9/6 17:14:00
--  
好的   非常感谢   解决了很多问题啊