VB.net ตั้งเวลาการทำงาน Schedule Timer

ref : http://www.thaicreate.com/community/dot-net-schedule.html

วิธีนี้จะต้องเปิดโปรแกรมทิ้งไว้ตลอดเวลา

Download Library

http://www.codeproject.com/Articles/6507/NET-Scheduled-Timer

ให้ Add ไฟล์ ScheduleTimer.dll เข้ามาใน Project

Imports Schedule


Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

          Dim Timer = New ScheduleTimer()
           AddHandler Timer.Elapsed, New ScheduledEventHandler(AddressOf timer_Elapsed)
          Timer.AddEvent(New ScheduledTime("Daily", "16:02"))
           Timer.Start()

End Sub

Private Sub timer_Elapsed(sender As Object, e As ScheduledEventArgs)
           MessageBox.Show("Schedule Working at 16:02")
End Sub

'เมื่อถึงเวลาที่กำหนด ก็จะทำงานตามที่เราต้องการ

'ในความสามารถของ Library ตัวนี้รองรับการกำหนดรูปแบบการทำงานที่หลากหลายมาก เช่น


Run at 6:00 AM on Mondays.

TickTimer.Events.Add(new  Schedule.ScheduledTime("Weekly",  "1,6:00AM"));



Run every 12 minutes starting on midnight 1/1/2003.

TickTimer.Events.Add(new Schedule.SimpleInterval(new
DateTime("1/1/2003"), TimeSpan.FromMinutes(12)));



Run every 15 minutes from 6:00 AM to 5:00 PM.
TickTimer.Events.Add(
new Schedule.BlockWrapper(
new Schedule.SimpleInterval(new DateTime("1/1/2003"),
TimeSpan.FromMinutes(15)),
"Daily",
"6:00 AM",
"5:00 PM"
)
);