• Home
 · 
• Windows System Services
 · 
• Reading the WindowsNT / Windows 2000 EventLog in VB.NET

Reading the WindowsNT / Windows 2000 EventLog in VB.NET

Reading the WindowsNT / Windows 2000 EventLog in VB.NET

Rate Reading the WindowsNT / Windows 2000 EventLog in VB.NET

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Protected Sub Button1_Click(ByVal sender As Object, _
            ByVal e As System.EventArgs)
        
        Dim a As New EventLog()
        Dim objEventLog As EventLog.EventLogEntryCollection
        Dim objEntry As EventLogEntry
        
        a.Log = "Application"
        objeventlog = a.Entries()
        
        For Each objEntry In objEventLog
            Textbox1.Text += (objentry.Source & ":" & _
                objEntry.TimeGenerated & ":" & _
                objEntry.Message) & chr(13) & chr(10)
        Next
        
    End Sub