Registro de Eventos desde VB .NET

Hoy vamos a ver lo sencillo que es escribir desde nuestras aplicaciones .NET en el registro de eventos de nuestra máquina Windows. Para ello desarrollaremos una aplicación de ejemplo creando un proyecto Windows Forms donde vamos a ubicar un TextBox y tres botones. La idea es que el usuario pueda introducir un mensaje y pulsando sobre cualquiera de los botones la aplicación escribirá en el Registro de Eventos de Aplicación la información correspondiente, con nivel "Información", "Advertencia" ó "Error" (títulos de los botones).

Interfaz de nuestra aplicación

Para este ejemplo básico hemos considerado, en la función EscribirLog, el Origen como texto estático "Aplicación Ejemplo", así como el Id.Ejemplo, con un valor de 100, y la Categoría de la Tarea con un valor de 50. Igualmente escribiremos en nuestra máquina, pero podríamos hacerlo en cualquier otra remota para la que tuviéramos credenciales. Claramente estos identificadores pueden ser variables en tu aplicación para ayudarte a identificar, a tu gusto, los registros insertados.

Public Class Form1

Private Sub btn_informacion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_informacion.Click

EscribirLog(txt_mensaje.Text, EventLogEntryType.Information)

End Sub

Private Sub btn_advertencia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_advertencia.Click
EscribirLog(txt_mensaje.Text, EventLogEntryType.Warning)

End Sub

Private Sub btn_error_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_error.Click
EscribirLog(txt_mensaje.Text, EventLogEntryType.Error)

End Sub

Private Sub EscribirLog(ByVal Texto_Evento As String, ByVal tipo_entrada As EventLogEntryType)
Dim Maquina As String = "."
Dim Origen As String = "Aplicación Ejemplo"
'Escribimos en los Registros de Aplicación
Dim Elog As EventLog
Elog = New EventLog("Application", Maquina, Origen)
Elog.WriteEntry(Texto_Evento, tipo_entrada, 100, CType(50, Short))
Elog.Close()
Elog.Dispose()
End Sub

End Class

Tras introducir algunos textos de ejemplos estas serían algunas capturas del Visor de Eventos: