VB 2010 （26）记录错误

记录错误有3个主要的途径：

• 把错误信息写到指定位置的文本文件或者普通文件中。
• 把错误信息写到中央数据库中。
• 把错误信息写入系统（．NET Framework 4支持的所有Windows版本）的事件日志中。．NET Framework中包含一个可用于读写指定机器上系统日志、应用程序日志和安全日志的组件。

      根据要捕获的错误类别和在其上运行应用程序的机器类型来选择记录类型。如果选择写入事件日志，需要对错误分类，并写入适当的日志文件。资源、硬件和系统级别的错误最适合放在系统事件日志中；数据存取错误最适合放在应用程序事件日志中；许可错误最适合放在安全事件日志中。
         Windows事件日志分为三种：系统日志、应用程序日志和安全日志。通过控制面板打开事件查看器，可以查看这些日志中的事件。首先要打开管理工具，然后才能选择事件查看器子项。大多数情况下，应用程序使用的是应用程序事件日志。
       事件记录操作可以通过EventLog组件来进行，它允许读写机器中的所有可用日志。EventLog组件是System.Diagnostics名称空间的一部分，该组件可以增加和删除自定义事件日志，读写标准的Windows事件日志，以及创建自定义的事件日志记录。
      因为空间是有限的，事件日志会被填满，所以只应将重要信息写入事件日志。可以定制每个系统事件日志的属性，例如改变日志文件的大小，决定在曰志满时系统如何处理发生的事件。可以把日志配置为当日志满时覆盖数据，或覆盖所有比指定日期更早的事件。写入的事件日志顺序基于代码运行的位置，这样，如果有许多层，就必须正确定位事件日志信息，搜索更深层次的错误。
    事件日志条目有5种类型。这5种类型可以分为事件类型条目和审核类型条目两类。
    事件类型条目包括：

• Information开始或停止一个服务程序等事件发生时添加。
• Waming当发生—个可能在将来引发问题（例如磁盘空间减少）的不太重要的事件时产生。
• Error当产生的错误会阻止正常的处理时应当被记入日志，例如一个启动服务程序不能运行。

审核类型条目通常记入安全日志，并可能是下面的两种情况之一：

• Audit Success例如，成功审核可能是通过应用程序成功登录到SQL Server上。
• Audit Failure如果用户在某个文件系统中没有创建输出文件的权限，失败审核就派得上用场。

如果不指定事件日志条目的类型，将产生一个information类型的条目。
       在事件日志中，每个条目都有一个Source属性。Source属性是必需的，是由程序员定义的分配给事件的字符串，帮助在日志中对事件进行分类。在一个事件日志的条目中，新的Source必须在使用之前定义。SourCeExists方法用于确定给定的计算机中是否已经存在指定的源。建议使用易于确定错误发生地点的字符串，例如组件名称。集成的软件包把软件的名称用作应用程序日志中的Source，这有助于对特定软件包产生的错误进行编组。
       EventLog组件位于System.Diagnostics名称空间中。因此，为了使用EventLog组件，在代码的声明部分需要包含一条Imports System.Diagnostics语句。
      为了对事件日志进行操作，必须获得某些安全权限．普通的程序能够读取所有的事件日志，并对应用程序事件日志进行写入操作．在执行像清除和删除事件日志这样的任务时，必须有管理员级别的特权。—般程序不需要执行这类任务，也不需要在应用程序事件日志外部进行写入操作。
事件日志中的事件

事件	说明
EntryWritten	当一个事件被写入日志时产生

  事件日志中的方法

方法	说明
CreateEventSource	在指定的日志中创建一个事件源
DeleteEventSource	删除一个事件源和与之相关联的记录项
WriteEntry	为指定的日志写入字符串
Exists	用于决定一个指定的事件日志是否存在
SourceExists	用于决定一个指定的源是否存在于日志中
GetEventlogs	检索指定计算机中所有事件日志的列表
Delete	删除整个事件日志，使用该方法时要小心

  事件日志中的属性 

属性	说明
Source	指定要写入的记录项的源
Log	用于指定写入的日志.有系统、应用程序和安全日志3类日志，如果不指定，则默认情况下写入系统日志

‘一个例子 

Sub LoggingExample1()
        Dim objLog As New EventLog() '实例化日志
        Dim objLogEntryType As EventLogEntryType '存储条目的类型信息
        Try
            Throw (New EntryPointNotFoundException)
        Catch objA As System.EntryPointNotFoundException
            If Not EventLog.SourceExists("Example") Then
                EventLog.CreateEventSource("Example", "System")
            End If
            objLog.Source = "Example"
            objLog.Log = "Systemi'"
            objLogEntryType = EventLogEntryType.Information
            objLog.WriteEntry("Error: " & objA.Message, objLogEntryType)
        End Try
    End Sub