Les partenaires publicitaires:

Comment lire la visionneuse d'événement dans vb.net

L'Observateur d'événements est un programme qui est inclus avec les systèmes d'exploitation de 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 comme si une 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 à lire l'Observateur d'événements dans votre système.

Instructions

  1. Démarrez Microsoft Visual Basic Express et clic "Nouveau projet..." sur le volet de gauche de votre écran. Double-cliquez sur "Application Windows Forms" pour commencer votre nouveau projet.

  2. Double-cliquez sur "Bouton" sur "Outils" volet pour créer un nouveau bouton. Double-cliquez sur "ListBox" sur "Outils" volet pour créer un nouveau contrôle de zone de liste. Double-cliquez sur "Button1" pour ouvrir la "Form1.vb" module.

  3. Appuyez "Ctrl + A" et appuyez sur "Effacer" pour supprimer tout le code.

  4. 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 comme System.EventArgs) Poignées Button1.Click

    Dim 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 ("Nombre de l'é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 ()

    Suivant

    End Sub

    End Class

  5. Commencez 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.

» » » » Comment lire la visionneuse d'événement dans vb.net