教程例子:
假定希望系统每十分钟自动备份一次项目,可以增加一个计划,计划的执行间隔600000(毫秒),也就是10分钟,计划的代码为:
Static dt As Date '静态变量,用于保存上次备份的时间
Dim tp As TimeSpan
tp = Date.Now - dt
If tp.TotalHours >= 1 Then '如果距离上次备份已经超过一个小时
dt = Date.Now
Syscmd.Project.Backup("c:\data", True) '自动备份到c:\data目录
End If
我在OpenQQ客户端的MessageReceived事件中编写代码:
Dim pts() As String = e.Message.Split("|")
If pts.Length = 3 AndAlso pts(0) = "+@" '如果是申请审核消息
Static dt As Date '静态变量,用于保存收到信息的时间
Dim tp As TimeSpan
tp = Date.Now - dt
If tp.TotalSeconds >= 5.5 Then '如果距离收到信息的时间已经超过5,5秒
dt = Date.Now
PopMessage("本月应付报表" & "已由" & pts(2) & "上传,请审批","报表上传提示", PopIconEnum.Infomation)
End If
End If
收到信息后弹窗直接弹出,未延迟5.5秒。
哪段代码没用对?