معلومة ::: EventLog - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184) +--- الموضوع : معلومة ::: EventLog (/showthread.php?tid=5317) |
معلومة ::: EventLog - RaggiTech - 06-10-12 كاتب الموضوع : BADRMEDIA
بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته Log Event: ماذا تعني هذه العبارة Log نقصد بها سجل , Event تعني حدث - إذن - Log Event تعني سجل الأحداث وهذا المفهوم خدمة متوفرة فى أنظمة ويندوز ( XP – NT ) حيث يقوم هذا السجل بتسجيل الأحداث التى تحدث على النظام ويمكن الوصول إليها والاطلاع عليها من أداة Event Viewer الموجودة فى Administrative Tools التى بداخل Control Panel كما تحدثنا هذا السجل يقوم بعمل Monitor للأحداث التى تحدث فى النظام وسنتحدث كيف نتعامل معه ونضيف مراقبة لتطبيق معين معلومة ::: EventLog - RaggiTech - 06-10-12 عندما تفتح نافذة 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 معلومة ::: EventLog - RaggiTech - 06-10-12 لو أردت أن تتأكد هل هناك سجل باسم معين موجود أم لا كود : Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click قمت بتكوين فئة وارسلتها للتأكد من وجود سجل باسم معين من المتغير SourceName وارسلته ليتأكد من وجود السجل Application وبالفعل سيجده غير الكلمة بسجل غير موجود ستعود لك الرسالة بعدم وجود السجل معلومة ::: EventLog - RaggiTech - 06-10-12 كود : Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click فى هذا الكود نبحث عن سجل باسم معين وهو BADRMEDIA ونحذف فى حالة لو وجدناه معلومة ::: EventLog - RaggiTech - 06-10-12 تعاملنا فى الأمثلة مع سجل الأحداث وأظهرنا محتوياته وتحكمنا فى بعضاً منها لكن حان الوقت لنقوم ببناء سجل لنا ونقوم بتسجيل احداث تطبيق خاص بنا يلزم لذلك أن نكون سجل أحداث ونعطيه اسم وأيضاً مصدر تسجيل الأحداث ----------------------------------------------- ضف هذا الكلاس لمشروعك كود : Class EventLogs نشرحه الكلاس اسمه EventLogs عرفنا متغير من الفئة EventLog باسم EvLog كود : Private EvLog As EventLog عرفنا اجرائية ووظفتها أننا نمرر لها معاملين الأول مصدر تسجيل السجل الثاني اسم السجل بحيث يتم تكوين السجل فى حالة عدم وجوده كود : Sub New(ByVal LogSource As String, ByVal LogName As String) الاجرائية كود : Public Sub LogEvent(ByVal Message As String, _ المسئولة عن تسجيل الأحداث ونرسل لها الاسم والنوع قم فى وضع هذا الكود كمتغير عام فى أول الفورم كود : Private Evl As New EventLogs("From BADRMEDIA Event Log", "BADRMEDIA Application") اكتب قى حدث زر الأمر كود : Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click هنا افتعلنا خطأ وهو القسمة على صفر ونقوم بارساله لسجل الأحداث الخاص بنا اذهب إلي نافذة Event Viewer الموجودة فى داخل Control Panel ستجد سجل انشا باسم BADRMEDIA Application وبه الخطأ مسجل الآن يمكن تسجيل ومراقبة برنامجك |