[RaggiTech]

عندما تفتح نافذة Event Viewer الموجودة فى التى بداخل Control Panel

كما فى الصورة نجد هناك أشياء أساسية يتم تسجيل أحداثها


مثل


Application
Security
System



ويمكن الوصول لهم عبر هذا الكائن برمجياً






نقوم باضافة العنصر EventLog من صندوق الأداوات

ونضيف على الفورم زر أمر Button وقائمة ListBox


ندرج هذا الكود لحدث زر الأمر

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

' نقوم بتعريف متغير من نوع الفئة

Dim evlog As System.Diagnostics.EventLog()

' نجعله يحصل على الأحداث التى تحت المراقبة

evlog = System.Diagnostics.EventLog.GetEventLogs()

' نقوم بعمل حلقة تملئ ListBox باسماء سجلات الأحداث

For Each log As System.Diagnostics.EventLog In evlog

ListBox1.Items.Add(log.Log)
Next log


End Sub