定时发送消息怎么写？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 定时发送消息怎么写？

共有1859人关注过本帖树形打印复制链接主题：定时发送消息怎么写？

YDS

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：606 积分：3415 威望：0 精华：0 注册：2011/5/21 18:05:00

定时发送消息怎么写？ 发帖心情

Post By：2018/9/6 11:24:00 [只看该作者]

我想在计划任务里面添加一个计划，每天早上7.30和晚上20.30各发送一次消息，代码应该怎么写？间隔时间应该为多久？

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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