News:

GinGly.com - Used by 85,000 Members - SMS Backed up 7,35,000 - Contacts Stored  28,850 !!

Main Menu

VB.Net Tutorial » Windows » EventLog

Started by VelMurugan, Apr 23, 2009, 10:21 PM

Previous topic - Next topic

VelMurugan

Write to System EventLog


Imports System.Diagnostics

Module Module1
    Sub Main()
        Dim Log As New EventLog("Application")
        Log.Source = "FormEventLog"
        Log.WriteEntry("[url=http://www.java2s.com]www.java2s.com[/url]")

    End Sub
End Module


Source : java2s

VelMurugan

Display all Application EventLog

QuoteImports 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

VelMurugan

EventLogEntryType.Information

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