VB.Net by API/System.Diagnostics/EventLog

EventLog.CreateEventSource

  
Imports System.Diagnostics
public class Test
   Shared Dim logStatus As System.Diagnostics.EventLog = New System.Diagnostics.EventLog
   public Shared Sub Main
        
        If Not EventLog.SourceExists("StatusSource") Then
            EventLog.CreateEventSource("StatusSource", "StatusLog")
            Console.WriteLine("Creating event source")
        End If
        " Set the EventLog component"s source.
        logStatus.Source = "StatusSource"
        " Write a Starting message to the log.
        ShowLog()
        logStatus.Clear()
        ShowLog()
   End Sub
    Private Shared Sub ShowLog()
        For Each log_entry As EventLogEntry In logStatus.Entries
            Console.WriteLine(log_entry.Message)
        Next log_entry
    End Sub
   
End class

EventLog.Entries

  
Imports System.Diagnostics
Module Module1
    Sub Main()
        Dim Log As New EventLog("Application")
        Dim Evt As EventLogEntry
        For Each Evt In Log.Entries
            Console.WriteLine(Evt.Message)
            Console.WriteLine(Evt.TimeGenerated)
            
            Console.WriteLine(Evt.Source)
            
        Next
    End Sub
End Module

EventLog.Source

  
Imports System.Diagnostics
Module Module1
    Sub Main()
        Dim Log As New EventLog("Application")
        Log.Source = "FormEventLog"
        Log.WriteEntry("www.vbex.ru")
    End Sub
End Module

EventLog.SourceExists

  
Imports System.Diagnostics
public class Test
   Shared Dim logStatus As System.Diagnostics.EventLog = New System.Diagnostics.EventLog
   public Shared Sub Main
        
        If Not EventLog.SourceExists("StatusSource") Then
            EventLog.CreateEventSource("StatusSource", "StatusLog")
            Console.WriteLine("Creating event source")
        End If
        " Set the EventLog component"s source.
        logStatus.Source = "StatusSource"
        " Write a Starting message to the log.
        ShowLog()
        logStatus.Clear()
        ShowLog()
   End Sub
    Private Shared Sub ShowLog()
        For Each log_entry As EventLogEntry In logStatus.Entries
            Console.WriteLine(log_entry.Message)
        Next log_entry
    End Sub
   
End class

EventLog.WriteEntry

  
Imports System.Diagnostics
Module Module1
    Sub Main()
        Dim Log As New EventLog("Application")
        Log.Source = "FormEventLog"
        Log.WriteEntry("www.vbex.ru")
    End Sub
End Module

New EventLog

  

Imports System.Diagnostics
Module Module1
    Sub Main()
        Dim Log As New EventLog("Application")
        Log.Source = "FormEventLog"
        Log.WriteEntry("www.vbex.ru")
    End Sub
End Module