Imports System.Diagnostics
Imports System.Net.Mail
 
Public Class EventMonitor
 
 
    Protected Overrides Sub OnStart(ByVal args() As String)
 
    End Sub
 
 
    Protected Overrides Sub OnStop()
 
    End Sub
 
 
    Private Sub SendMail(ByVal Absender As String, ByVal Empfaenger As String, _
      ByVal Betreff As String, ByVal Inhalt As String)
 
        Dim Msg As New MailMessage
        Dim myCredentials As New System.Net.NetworkCredential
        myCredentials.UserName = "Auth_Mailserver"
        myCredentials.Password = "Kennwort"
 
        Msg.IsBodyHtml = False
 
        Dim mySmtpsvr As New SmtpClient()
        mySmtpsvr.Host = "smtp.web.de"
        mySmtpsvr.Port = 25
 
        mySmtpsvr.UseDefaultCredentials = False
        mySmtpsvr.Credentials = myCredentials
 
        Try
            Msg.From = New MailAddress(Absender)
            Msg.To.Add(Empfaenger)
            Msg.Subject = Betreff
            Msg.Body = Inhalt
            mySmtpsvr.Send(Msg)
            MsgBox("E-Mail wurde an " & Empfaenger & " gesendet.", _
              MsgBoxStyle.Information, "Email")
        Catch ex As Exception
            MsgBox(Err.Number & ex.Message & ex.StackTrace.ToString)
        End Try
 
    End Sub
 
 
    Private Sub EventLog1_EntryWritten(ByVal sender As System.Object, ByVal e _
      As System.Diagnostics.EntryWrittenEventArgs) Handles _
      EventLog1.EntryWritten
 
        With e.Entry
 
            Select Case e.Entry.EventID
                Case Is = 7035
                    Me.SendMail("test@web.de", "test@gmx.de", _
                      .EntryType.ToString & " mit EventID " & .EventID, _
                      .Message)
                Case Is = 7036
                    Me.SendMail("test@web.de", "test@gmx.de", _
                      .EntryType.ToString & " mit EventID " & .EventID, _
                      .Message)
            End Select
 
        End With
 
    End Sub
 
End Class