Visual Basic

<br />
Public Class Service1<br />
    Private alarmTime As Date<br />
    Protected Overrides Sub OnStart(ByVal args() As String)<br />
        ' Add code here to start your service. This method should set things<br />
        ' in motion so your service can do its work.<br />
        'Dim a As TimeSpan = Date.Now.Subtract(Date.Today.AddDays(1))<br />
        'Dim tomorrow As Date = New Date<br />
        'tomorrow = Date.Now.AddDays(1)<br />
<br />
        'Me.alarmTime = New Date(tomorrow.Year, tomorrow.Month, tomorrow.Day, 0, 1, 1, 1)<br />
        Me.alarmTime = Date.Now.AddMinutes(1)<br />
        Me.Timer1.Start()<br />
    End Sub<br />
<br />
    Protected Overrides Sub OnStop()<br />
        ' Add code here to perform any tear-down necessary to stop your service.<br />
    End Sub<br />
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)<br />
        If alarmTime < Date.Now Then<br />
            Me.Timer1.Stop()<br />
            Dim MyLog As New EventLog() ' create a new event log<br />
            ' Check if the the Event Log Exists<br />
            If Not Diagnostics.EventLog.SourceExists("SQLBackup") Then<br />
                Diagnostics.EventLog.CreateEventSource("SQLBackup", "SQLBackup") ' Create Log<br />
            End If<br />
            MyLog.Source = "SQLBackup"<br />
            ' Write to the Log<br />
            Diagnostics.EventLog.WriteEntry("SQLBackup", "Event fired at " & CStr(TimeOfDay), EventLogEntryType.Information)<br />
        Else<br />
            Dim remainingTime As TimeSpan = Me.alarmTime.Subtract(Date.Now)<br />
<br />
            'Me.Label1.Text = String.Format("{0}:{1:d2}:{2:d2}", _<br />
            'remainingTime.Hours, _<br />
            'remainingTime.Minutes, _<br />
            'remainingTime.Seconds)<br />
        End If<br />
    End Sub<br />
End Class<br />