Como ler visualizador de eventos em vb.net

O Visualizador de Eventos é um programa que está incluído nos sistemas operacionais da Microsoft. O Visualizador de eventos permite que os administradores e usuários monitorar eventos através de logs de eventos. Os eventos são gerados quando um erro é detectado, tal como se uma autenticação do utilizador falhar. Basic.NET Visual (VB.NET) é uma linguagem de programação orientada a objeto de computador desenvolvido pela Microsoft. VB.NET é utilizada devido à sua flexibilidade e facilidade de utilização. Em alguns passos que você pode escrever código VB.NET para ler o Visualizador de eventos no seu sistema.

  • Inicie o Microsoft Visual Basic Express e clique "Novo projeto..." no painel esquerdo da tela. Duplo click "Windows Forms Application" para iniciar seu novo projeto.

  • Duplo click "Botão" no "Ferramentas" painel para criar um novo botão. Duplo click "ListBox" no "Ferramentas" painel para criar um novo controle de caixa de lista. Duplo click "Button1" para abrir o "Form1.vb" módulo.

  • pressione "Ctrl + A" e pressione "Excluir" para excluir todo o código.

  • Copie e cole o seguinte código ao seu "Form1.vb" módulo.

    Form1 Classe pública

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

    Dim eventLogApp As New System.Diagnostics.EventLog ("Aplicação")

    Dim EventLogEntry Como System.Diagnostics.EventLogEntry

    Dim eventCntr As Integer = 1

    Para Cada EventLogEntry Em eventLogApp.Entries

    Me.ListBox1.Items.Add ("Número de eventos:" & 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 = + 1 eventCntr

    Me.ListBox1.Refresh ()

    Próximo

    End Sub

    End Class

  • Inicie o programa pressionando "F5" e clicando em "Button1" para exibir as entradas de log de eventos através de uma caixa lista.

De esta maneira? Compartilhar em redes sociais:

LiveInternet