VB.Net by API/System.Diagnostics/EventLog

EventLog.CreateEventSource

<source lang="vbnet"> 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

 </source>

EventLog.Entries

<source lang="vbnet"> 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

 </source>

EventLog.Source

<source lang="vbnet"> 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

 </source>

EventLog.SourceExists

<source lang="vbnet"> 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

 </source>

EventLog.WriteEntry

<source lang="vbnet"> 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

 </source>

New EventLog

<source lang="vbnet">

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

 </source>