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>