• 
  

  hur man läser Loggboken i vb.net

  
  

Loggboken är ett program som är inkluderat med Microsofts operativsystem . Loggboken kan administratörer och användare övervaka händelser genom händelseloggar . Händelser genereras när ett fel upptäcks som t. ex. om en användare autentisering misslyckas . Visual Basic. NET ( VB. NET ) är en dator objektorienterat programmeringsspråk utvecklat av Microsoft . VB. NET används ofta på grund av sin flexibilitet och användarvänlighet. I några få steg kan du skriva VB. NET kod för att läsa Loggboken i ditt system
1 .
Starta Microsoft Visual Basic Express och klicka på " Nytt projekt . . . " i den vänstra rutan på skärmen . Dubbelklicka på " Windows Forms Application "för att starta det nya projektet .
2 .
Dubbelklicka på " knappen " på "Verktyg " om du vill skapa en ny knapp . Dubbelklicka på " ListBox " på "Verktyg " om du vill skapa en ny kontroll listruta . Dubbelklicka på " Button1 "för att öppna " Form1. vb " modul .
3 .
Tryck " Ctrl + A " och tryck på " Delete " för att radera all kod .

4 .
Kopiera och klistra in följande kod till din " Form1 . vb " modul .



public class Form1

Private Sub Button1_Click ( ByVal avsändaren som System. Object , ByVal e Som System. EventArgs ) Handtag Button1. Click



Dim eventLogApp som ny System. Diagnostics. EventLog ( " Applikationen ")

Dim eventLogEntry Som System. Diagnostics. EventLogEntry

Dim eventCntr As Integer=1



For Each eventLogEntry I eventLogApp. Entries

Me. ListBox1. Items . Lägg till ( " Event Antal : " 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 ( )

Nästa

End Sub

End klass
5 .
Starta programmet genom att trycka "F5 " och sedan klicka " Button1 "för att visa poster i händelseloggen via en listruta .

Previous：nothing Next：Ta bort en pivottabell i VBA

Relaterade artiklar