L`Observateur d`événements est un programme qui est inclus avec les systèmes d`exploitation Microsoft. L`Observateur d`événements permet aux administrateurs et aux utilisateurs de surveiller les événements à travers les journaux d`événements. Les événements sont générés lorsqu`une erreur est détectée, par exemple si l`authentification de l`utilisateur échoue. Visual Basic.NET (VB.NET) est un langage de programmation orienté objet informatique développé par Microsoft. VB.NET est couramment utilisé en raison de sa flexibilité et sa facilité d`utilisation. En quelques étapes, vous pouvez écrire du code VB.NET pour lire l`Observateur d`événements dans votre système.
Démarrez Microsoft Visual Basic Express et cliquez "Nouveau projet..." dans le volet gauche de votre écran. Double-cliquez sur "Application Windows Forms" pour commencer votre nouveau projet.
Double-cliquez sur "Bouton" sur le "Outils" volet pour créer un nouveau bouton. Double-cliquez sur "ListBox" sur le "Outils" volet pour créer un nouveau contrôle de zone de liste. Double-cliquez sur "Button1" pour ouvrir la "Form1.vb" module.
presse "Ctrl + A" et appuyez sur "Effacer" pour supprimer tout le code.
Copiez et collez le code suivant à votre "Form1.vb" module.
Public Class Form1
Private Sub Button1_Click (expéditeur de ByVal comme System.Object, ByVal e As System.EventArgs) Poignées Button1.ClickDim eventLogApp As New System.Diagnostics.EventLog ("Application")
Dim EventLogEntry Comme System.Diagnostics.EventLogEntry
Dim eventCntr As Integer = 1
Pour chaque EventLogEntry Dans eventLogApp.Entries
Me.ListBox1.Items.Add ("Numéro d`événement:" & eventCntr)
Me.ListBox1.Items.Add (eventLogEntry.EntryType.ToString)
Me.ListBox1.Items.Add (eventLogEntry.TimeGenerated.ToString)
Me.ListBox1.Items.Add (eventLogEntry.Source.ToString)
Me.ListBox1.Items.Add (eventLogEntry.Category.ToString)
Me.ListBox1.Items.Add (eventLogEntry.EventID.ToString)
Me.ListBox1.Items.Add (eventLogEntry.MachineName.ToString)
Me.ListBox1.Items.Add (eventLogEntry.Message.ToString)
Me.ListBox1.Items.Add ("-----------------------------------------------")
eventCntr eventCntr = + 1
Me.ListBox1.Refresh ()
Prochain
End Sub
End Class
Démarrez votre programme en appuyant sur "F5" puis en cliquant sur "Button1" pour afficher les entrées du journal des événements à travers une zone de liste.
