Počet záznamů v NT EventLogu

Private Declare Function GetNumberOfEventLogRecords Lib _
   "advapi32.dll" ( _
   ByVal hEventLog As Long, _
   NumberOfRecords As Long) _
   As Long

Private Declare Function CloseEventLog Lib "advapi32.dll" ( _
   ByVal hEventLog As Long) _
   As Long

Private Declare Function OpenEventLog Lib "advapi32.dll" _
   Alias "OpenEventLogA" ( _
   ByVal lpUNCServerName As String, _
   ByVal lpSourceName As String) _
   As Long

Na formulář přidejte tlačítko a na jeho událost click:
Private Sub Command1_Click()

   Dim hEventLog As Long
   Dim lEventLogRecordCount As Long
   Dim lretv As Long

   hEventLog = OpenEventLog(vbNullString, "Application")
   If hEventLog = 0 Then
      Debug.Print "Chyba při otevření EventLogu"
      Exit Sub
   End If

   lretv = GetNumberOfEventLogRecords(hEventLog, lEventLogRecordCount)
   If lretv = 0 Then
      Debug.Print "Chyba při počítání záznamů"
      Exit Sub
   Else
      Debug.Print "Počet záznamů: " & CStr(lEventLogRecordCount)
   End If

   lretv = CloseEventLog(hEventLog)
   If lretv = 0 Then
      Debug.Print "Chyba při zavírání EventLogu"
      Exit Sub
   End If

End Sub

Zpět