如何在指定的时间运行程序？

[heyinglin]

我想让我的程序在每天的中午12：30分执行一次，请问如何实现？谢谢！

[sx_lxh]

做个类，类中加个timer,每隔一秒检查判断现在的时间，当hour=12且minute=30时，激发一个事件，在事件处理程序中执行你的程序。

[Tony_lau111082]

用timer

最好用别用Form的timer，用system的timer比较好

[heyinglin]

我是初学者，能否给一点代码？

[sz_lgp]

up

[little_iwf]

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With Timer1
.Interval = 1000 '设定为 1 秒钟
.Start()
End With
End Sub
Private Sub Timer1_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed
Dim T As Date = Now
Static Alarmed As Boolean = False '设置为静态或者全局变量
Dim Alarm As Boolean = T.Hour = 12 And T.Minute = 30
If Alarm Then
If Not Alarmed Then
'在这里执行你的程序
End If
Else '
If Alarmed Then
Alarmed = False
End If
End If
End Sub