使用.NET从VB6中访问事件日志

简介

    Visual Basic 6 可通过“App.LogEvent”写入事件日志。但是，此 API 有许多严格的限制。首先，不能为事件定义来源（在事件查看器中始终显示为“VBRuntime”），而且不能指定事件 ID 或事件类别。还限制您只能写入应用程序事件日志，不能创建自己的自定义来源和日志。

    通过使用 .NET Framework 免费提供的类，可以克服所有这些限制，这样可以使您有效地编写应用程序，以便用户、管理员或其他支持人员都可以查看日志来诊断问题。

.NET Framework EventLog 类

    .NET Framework 提供了一个强大的 EventLog 类，用它可以轻松地处理事件日志。不过您不能直接从 VB6 访问此类，依照 VB Fusion（英文）系列文章中的精神，可以通过创建封装 .NET 类的 COM 包装从 VB6 中访问此功能。

    我还创建了一个练习此事件日志功能的示例 VB6 应用程序。

图 1：使用事件日志功能的 VB6 应用程序

    创建包装类时，大部分工作只是将 .NET 类型转换为 VB6 可以理解的类型。GetEventLogs 方法通常返回一组 EventLog 对象，不过不能直接从 VB6 中使用这些 EventLog 对象。但是，下列 VB.NET 函数将计算机上的所有事件日志的列表转换为一组字符串，VB6 很容易就可以使用这些字符串。通常，您拥有系统事件日志、安全性事件日志和应用程序事件日志，但是某些应用程序还会创建自己的自定义事件日志，而此方法还可以显示这些事件日志：

清单 1：使用 VB.NET 列出计算机上的所有事件日志

Public Function GetEventLogs() As String()
Dim logs(EventLog.GetEventLogs.Length - 1) As String
Dim i As Integer = 0
For Each el As EventLog In EventLog.GetEventLogs()
logs(i) = el.Log
i += 1
Next
Return logs
End Function

    您可以看到，EventLog 类使您能够通过 GetEventLogs 函数访问所有事件日志。调用此函数后，它就会遍历结果，并将所有事件日志名称转换为一组字符串。然后，可以将此 VB.NET 代码作为 COM 对象进行公开，从而允许从 VB6 中调用它。

从 VB6 中调用此代码以及（例如）用结果填充列表框就像下面这样简单：

清单 2：使用 VB6 在列表框中显示日志名称

Dim eventLog As NetFrameworkWrappers.EventLogWrapper
Set eventLog = New NetFrameworkWrappers.EventLogWrapper
lstEventLogs.Clear
Dim logs() As String
logs = eventLog.GetEventLogs
Dim log As Variant
For Each log In logs
lstEventLogs.AddItem log
Next

方法

    由于各种原因，您可能希望应用程序能够写入事件日志。当然，应该将任何灾难性错误都记录到事件日志中，因为此信息以后可以用来诊断问题。您可能经常希望将不适合显示给用户的详细信息写入该事件日志中。

    首先需要选择使用哪个日志。可以从系统事件日志、安全性事件日志或应用程序事件日志中进行选择。应用程序事件日志几乎总是正确的选择，但是，如果需要，也可以创建自己的自定义事件日志。事件日志包装中的下列 VB.NET 代码使您能够创建自己的自定义日志：

清单 3：使用 VB.NET 创建自定义事件日志

Public Sub CreateEventSource(ByVal source As String, ByVal logName As String)
If EventLog.SourceExists(source) Then
EventLog.DeleteEventSource(source)
End If
EventLog.CreateEventSource(source, logName)
End Sub

    您可以看到，使用 .NET Framework 可以轻松创建事件日志。.NET CreateEventSource 方法帮您完成了所有工作。此方法只提供了该功能，以便可以从 VB6 中轻松调用。

清单 4：使用包装类从 VB6 创建事件日志

Dim eventLog As NetFrameworkWrappers.EventLogWrapper
Set eventLog = New NetFrameworkWrappers.EventLogWrapper
eventLog.CreateEventSource "MyApplication", "MyCustomLog" 

查看本文来源