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

日期：2007年9月23日作者：查看:[大字体中字体小字体]

　　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 应用程序

　　图 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

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

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

　　首先需要选择使用哪个日志。可以从系统事件日志、安全性事件日志或应用程序事件日志中进行选择。应用程序事件日志几乎总是正确的选择，但是，如果需要，也可以创建自己的自定义事件日志。事件日志包装中的下列 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"

　　向事件日志写入条目同样很简单。WriteEntry VB.NET 方法可以实现该事件日志功能并提供该功能，以便可以从 VB6 中调用该方法：

　　清单 5：在 VB.NET 中向事件日志写入条目

以下是引用片段：
Public Sub WriteEntry(ByVal source As String, _ByVal message As String, _Optional ByVal type As String = "Information", _Optional ByVal eventID As Integer = 0, _Optional ByVal category As Short = 0)

Dim typeEnum As EventLogEntryType = _System.Enum.Parse(GetType(EventLogEntryType), type)

m_eventLog.WriteEntry(source, message, typeEnum, eventID, category)

End Sub

　　此包装方法提供了许多可选参数，因此从 VB6 中调用该方法时，您可以仅传递事件日志来源和消息，也可以传递消息类型、事件 ID 和/或事件类别。

　　可以使用下列代码从VB6 中调用此方法：

　　清单 6：在 VB6 中写入事件日志条目

以下是引用片段：
Dim eventLog As NetFrameworkWrappers.EventLogWrapper

Set eventLog = New NetFrameworkWrappers.EventLogWrapper

eventLog.WriteEntry cboLog.Text, txtMessage, cboType.Text, _txtID, txtCategory

　　读取日志

　　从事件日志中读取信息只是稍微有些复杂。.NET Framework EventLog 类有一个 GetEntries 方法，它可以返回给定(应用程序、系统等)事件日志的所有日志条目。问题是每个条目都是作为 EventLogEntry 对象返回的，不能将它们直接传递回 VB6。但是，我可以简单地创建自己的 EventLogEntryInfo 类，用于将每个事件日志条目复制到其中。它是一个完整的 COM 类，可以返回到 VB6，并且提供了条目来源、消息、类型、ID 和类别属性。然后，VB.NET 代码将使用事件日志条目数据填充这些属性，并将其返回，以便可以从 VB6 中使用。

　　清单 7：在 VB.NET 中读取并转换事件日志条目

以下是引用片段：
Public Sub GetEntries(ByRef entries() As EventLogEntryInfo)

ReDim entries(m_eventLog.Entries.Count - 1)

For i As Integer = 0 To m_eventLog.Entries.Count - 1

Dim ent As EventLogEntry = m_eventLog.Entries(i)

entries(i) = New EventLogEntryInfo

entries(i).Category = ent.CategoryNumber

entries(i).Message = ent.Message

entries(i).Source = ent.Source

entries(i).EventID = ent.EventID

entries(i).EntryType = ent.EntryType

End Sub

　　完成此函数后，VB6 便可以完全访问事件日志条目了。

　　清单 8：在 VB6 中获取事件日志条目

以下是引用片段：
Dim eventLog As NetFrameworkWrappers.EventLogWrapper

Set eventLog = New NetFrameworkWrappers.EventLogWrapper

eventLog.Init logName

Dim entries() As NetFrameworkWrappers.EventLogEntryInfo

eventLog.GetEntries entries

　　结论

　　我相信您不需要重写现有的VB6 应用程序便可利用 .NET F ramework 提供的扩展功能。正如 VB Fusion 系列文章中所说的，使用这些简单的包装类，便可以通过 COM 对象提供 .NET Framework 的功能，该 COM 对象可以用于 VB6、VBA、ASP 或可以访问 COM 对象的任何环境。在本文中，您看到了如何将功能丰富的事件日志功能添加到现有的 VB6 应用程序中。欢迎下载相关的示例代码以便将事件日志添加到现在的应用程序中。

（出处：急速软件下载学院）

用.NET Framework从VB6中访问事件日志相关文章：
·究竟有多糟糕 2007年值得注意的安全事件
·注意网站搜索优化SEO的点重要事项
·玩对对碰游戏注意事项
·学习CSS必需知道的事
·优化网页页面注意的事项
·网站的出站链接优化注意事项
·中小企业无线组网中应注意事项
·TreeView中常用到的属性和事件
·为动态生成html元素增加事件处理
·Word文档图片插入小技巧让后期编辑更省事
用.NET Framework从VB6中访问事件日志相关软件
·做人做事好心态
·做人做事好方法
·商界成功者最推崇的成事法则：先做人后做事
·水娃的故事
·续写《西游》的玄幻故事《朱雀记》(全本精校版)
·80后纯美文字青春推理故事：遗
·军事史话(全集)
·2006年58项国际选美赛事中的冠军
·佛经民间故事
·兵器奇闻趣事

上一篇:Java 6.0 操作脚本语言基础

下一篇:Orcas版C#3.0的新特性

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

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

精品推荐

热点TOP10

特别推荐