Mega Code Archive

 

Categories / VB.Net by API / System Diagnostics

 

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