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

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.

216146
Este artículo se ha archivado. Se ofrece "tal cual" y no se volverá a actualizar.
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 LongPrivate Declare Function CloseEventLog Lib "advapi32.dll" ( _    ByVal hEventLog As Long) _    As LongPrivate Declare Function OpenEventLog Lib "advapi32.dll" Alias "OpenEventLogA" ( _    ByVal lpUNCServerName As String, _    ByVal lpSourceName As String) _    As LongPrivate 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 IfEnd 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

Advertencia: este artículo se ha traducido automáticamente

Propiedades

Id. de artículo: 216146 - Última revisión: 02/23/2014 05:32:19 - Revisión: 2.2

  • 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
  • kbnosurvey kbarchive kbmt kbapi kbcodesnippet kbeventlog kbhowto KB216146 KbMtes
Comentarios