Private Sub Timer1_Timer()
If Time = "7:00:00" Then MsgBox "到时"
End Sub
Timer控件设为1s响应一次,然后把Then后面的语句换成你要做的就可以了
1.在工具箱里找到Timer控件,画到窗体上。
2.设置Timer的Interval属性为1000
3.双击Timer控件,编写代码:
Private Sub Timer1_Timer()
If Format(Time) = "07:00:00" Then
'你要做的事。
End If
End Sub
注:Formatet 用于保证格式。
用API函数NetScheduleJobAdd添加一个计划任务,每天7:00就执行你的数据收集程序