25 lines
773 B
VB.net
25 lines
773 B
VB.net
Imports DigitalData.Modules.Logging
|
|
Imports Quartz
|
|
|
|
Namespace Scheduler.Jobs
|
|
Public Class DebugJob
|
|
Inherits BaseJob
|
|
Implements IJob
|
|
|
|
Private Function IJob_Execute(context As IJobExecutionContext) As Task Implements IJob.Execute
|
|
Dim oArgs = MyBase.InitializeJob(context)
|
|
Dim oRandom = New Random()
|
|
|
|
Dim oTotal As Integer = oRandom.Next(5, 15)
|
|
For index = 1 To oTotal
|
|
Logger.Info("We are still waiting [{0}/{1}]", index, oTotal)
|
|
LogInfo("We are still waiting [{0}/{1}]", index, oTotal)
|
|
|
|
Threading.Thread.Sleep(1000)
|
|
Next
|
|
|
|
Return CompleteJob("Finished, not waiting anymore!")
|
|
End Function
|
|
End Class
|
|
End Namespace
|