в 16:40, 26 мая 2010

2010-05-26T16:40:30Z

Admin: 1 версия

2010-05-26T12:56:11Z

1 версия

Новая страница

==Display all Application EventLog==

<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>
<pre class=codeResult>The description for Event ID "0" in Source "CacheMgr" cannot be found. The local computer may not h
ave the necessary registry information or message DLL files to display the message, or you may not h
ave permission to access them. The following information is part of the event:"Service started"
15/04/2007 12:41:55 PM
CacheMgr
The description for Event ID "1073872930" in Source "Oracle.xe" cannot be found. The local computer
...</pre>

==EventLogEntryType.Information==

<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>
<pre class=codeResult>11/05/2007 12:29:16 PM> Starting
11/05/2007 12:29:16 PM> Closing</pre>

==Write to System 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>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net Tutorial/Windows/EventLog - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия