Cómo obtener el número de registros de registro de sucesos de Windows en Visual Basic

Seleccione idioma Seleccione idioma
Id. de artículo: 216146 - Ver los productos a los que se aplica este artículo
Este artículo se ha archivado. Se ofrece "tal cual" y no se volverá a actualizar.
Expandir todo | Contraer todo

Resumen

Registro en Windows de sucesos proporciona una forma estándar, centralizada para Windows y otras aplicaciones registren eventos importantes de software y hardware. Registro de sucesos también proporciona una interfaz de usuario estándar para ver los registros y una interfaz de programación para examinar los registros.

Este artículo muestra cómo obtener el número de registros dentro de un Microsoft Windows 2000 o el registro de sucesos de Windows NT con la versión 4.0 y posterior de Visual Basic especificado. Esto puede realizarse mediante la llamada GetNumberOfEventLogRecords API. Mientras Visual Basic 5.0 y versiones posteriores se han creado en funcionalidad para el registro de sucesos, no proporcionan la funcionalidad que la API de Win32.

Más información

En el ejemplo siguiente se muestra cómo obtener el número de registros de eventos en el registro sucesos de aplicación local.

Ejemplo de paso a paso

  1. Cree un nuevo proyecto de Visual Basic. Se creará Form1 de manera predeterminada.
  2. Agregue un botón de comando a Form1. Cambie el nombre del botón de comando a cmdGetNumberOfEventLogRecords.
  3. Agregue el código siguiente a la ventana de código de Form1:
    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
    
    Private Sub cmdGetNumberOfEventLogRecords_Click()
        Dim hEventLog As Long
        Dim lEventLogRecordCount As Long
        Dim lretv As Long
        
        hEventLog = OpenEventLog(vbNullString, "Application")
        If hEventLog = 0 Then
             Debug.Print "OpenEventLog Failed"
             Exit Sub
        End If
        
        lretv = GetNumberOfEventLogRecords(hEventLog, lEventLogRecordCount)
        If lretv = 0 Then
             Debug.Print GetNumberOfEventLogRecords Failed"
             Exit Sub
        Else
            Debug.Print "Number of records: " & CStr(lEventLogRecordCount)
        End If
                    
        lretv = CloseEventLog(hEventLog)
        If lretv = 0 Then
             Debug.Print "CloseEventLog Failed"
             Exit Sub
        End If
    
    End Sub
  4. Presione F5 para ejecutar el proyecto y, a continuación y haga clic en el botón de comando cmdGetNumberOfEventLogRecords . Debería aparecer un cuadro de mensaje muestra el número de registros.

Referencias

Para obtener información adicional acerca de registro de sucesos desde Visual Basic, haga clic en los números de artículo siguientes para verlos en Microsoft Knowledge Base:
154576Cómo escribir en el registro de sucesos de Windows NT desde Visual Basic
161306INFORMACIÓN: App.LogEvent sólo registros en aplicaciones compiladas
184747INFORMACIÓN: Registro en Visual Basic de sucesos
216097Cómo borrar el registro de sucesos de NT en Visual Basic
216089Cómo hacer copia de seguridad el registro de sucesos de NT en Visual Basic

Propiedades

Id. de artículo: 216146 - Última revisión: domingo, 23 de febrero de 2014 - Versión: 2.2
La información de este artículo se refiere a:
  • Microsoft Visual Basic 4.0 Standard Edition
  • Microsoft Visual Basic 4.0 Professional Edition
  • Microsoft Visual Basic 4.0 32-Bit Enterprise Edition
  • Microsoft Visual Basic 5.0 Learning Edition
  • Microsoft Visual Basic 6.0 Edición de aprendizaje
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
Palabras clave: 
kbnosurvey kbarchive kbmt kbapi kbcodesnippet kbeventlog kbhowto KB216146 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 216146

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com