http://www.vbex.ru/index.php?action=history&feed=atom&title=VB.Net_by_API%2FSystem.Diagnostics%2FEventLog
VB.Net by API/System.Diagnostics/EventLog - История изменений
2026-04-04T23:52:42Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VB.Net_by_API/System.Diagnostics/EventLog&diff=2421&oldid=prev
в 16:40, 26 мая 2010
2010-05-26T16:40:16Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:40, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>
http://www.vbex.ru/index.php?title=VB.Net_by_API/System.Diagnostics/EventLog&diff=2422&oldid=prev
Admin: 1 версия
2010-05-26T12:50:53Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==EventLog.CreateEventSource==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System.Diagnostics<br />
public class Test<br />
Shared Dim logStatus As System.Diagnostics.EventLog = New System.Diagnostics.EventLog<br />
public Shared Sub Main<br />
<br />
If Not EventLog.SourceExists("StatusSource") Then<br />
EventLog.CreateEventSource("StatusSource", "StatusLog")<br />
Console.WriteLine("Creating event source")<br />
End If<br />
" Set the EventLog component"s source.<br />
logStatus.Source = "StatusSource"<br />
" Write a Starting message to the log.<br />
ShowLog()<br />
logStatus.Clear()<br />
ShowLog()<br />
End Sub<br />
Private Shared Sub ShowLog()<br />
For Each log_entry As EventLogEntry In logStatus.Entries<br />
Console.WriteLine(log_entry.Message)<br />
Next log_entry<br />
End Sub<br />
<br />
End class<br />
<br />
<br />
</source><br />
<br />
<br />
==EventLog.Entries==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System.Diagnostics<br />
Module Module1<br />
Sub Main()<br />
Dim Log As New EventLog("Application")<br />
Dim Evt As EventLogEntry<br />
For Each Evt In Log.Entries<br />
Console.WriteLine(Evt.Message)<br />
Console.WriteLine(Evt.TimeGenerated)<br />
<br />
Console.WriteLine(Evt.Source)<br />
<br />
Next<br />
End Sub<br />
End Module<br />
<br />
<br />
</source><br />
<br />
<br />
==EventLog.Source==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System.Diagnostics<br />
Module Module1<br />
Sub Main()<br />
Dim Log As New EventLog("Application")<br />
Log.Source = "FormEventLog"<br />
Log.WriteEntry("www.vbex.ru")<br />
End Sub<br />
End Module<br />
<br />
<br />
</source><br />
<br />
<br />
==EventLog.SourceExists==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System.Diagnostics<br />
public class Test<br />
Shared Dim logStatus As System.Diagnostics.EventLog = New System.Diagnostics.EventLog<br />
public Shared Sub Main<br />
<br />
If Not EventLog.SourceExists("StatusSource") Then<br />
EventLog.CreateEventSource("StatusSource", "StatusLog")<br />
Console.WriteLine("Creating event source")<br />
End If<br />
" Set the EventLog component"s source.<br />
logStatus.Source = "StatusSource"<br />
" Write a Starting message to the log.<br />
ShowLog()<br />
logStatus.Clear()<br />
ShowLog()<br />
End Sub<br />
Private Shared Sub ShowLog()<br />
For Each log_entry As EventLogEntry In logStatus.Entries<br />
Console.WriteLine(log_entry.Message)<br />
Next log_entry<br />
End Sub<br />
<br />
End class<br />
<br />
<br />
</source><br />
<br />
<br />
==EventLog.WriteEntry==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System.Diagnostics<br />
Module Module1<br />
Sub Main()<br />
Dim Log As New EventLog("Application")<br />
Log.Source = "FormEventLog"<br />
Log.WriteEntry("www.vbex.ru")<br />
End Sub<br />
End Module<br />
<br />
<br />
</source><br />
<br />
<br />
==New EventLog==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
<br />
Imports System.Diagnostics<br />
Module Module1<br />
Sub Main()<br />
Dim Log As New EventLog("Application")<br />
Log.Source = "FormEventLog"<br />
Log.WriteEntry("www.vbex.ru")<br />
End Sub<br />
End Module<br />
<br />
<br />
</source></div>
Admin