Public Class ImportJob Implements IJob Public Sub Execute(context As IJobExecutionContext) Implements IJob.Execute '''some code End Sub End Class
Public Class ScheduleManager Public Shared Property Scheduler As IScheduler Public Sub RunTrigger() Dim startTime As DateTimeOffset startTime = DateBuilder.DateOf(20, 0, 0) Dim scheduler = GetScheduler Dim job As IJobDetail = JobBuilder.Create(Of ImportJob)().WithIdentity("jobname").Build() Dim trigger As ITrigger trigger = TriggerBuilder.Create().ForJob(job).WithIdentity("som Name").WithDescription("some Desc").StartAt(startTime).WithSimpleSchedule(Function(x) x.WithIntervalInHours(24).RepeatForever).Build() scheduler.ScheduleJob(job, trigger) scheduler.Start() End Sub Public ReadOnly Property GetScheduler As IScheduler Get If Scheduler Is Nothing Then Scheduler = New StdSchedulerFactory().GetScheduler() End If Return Scheduler End Get End Property End Class
Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs) ' Code that runs on application startup Dim schde As New ScheduleManager schde.RunTrigger() End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)