createeventsource.vb

asp.net技术内幕的书配源码

Imports System
Imports System.Diagnostics

Public Class CreateEventSource

    Public Shared Sub Main()
        Dim strSource As String

        Console.Write("Event Source: ")
        strSource = Console.ReadLine()

        EventLog.CreateEventSource(strSource, "Application")

	Console.WriteLine( "Source Created!" )
    End Sub

End Class