28 lines
789 B
VB.net
28 lines
789 B
VB.net
Module Globals
|
|
|
|
Public params As New ClsParameters
|
|
|
|
|
|
|
|
Public Sub PrintOut(ByVal s As String)
|
|
'Console.WriteLine(Format(Now, "yyyyMMddHHmmss") + ": " + s)
|
|
PrintLog(Format(Now, "yyyyMMddHHmmss") + ": " + s, EventLogEntryType.Information)
|
|
End Sub
|
|
|
|
Dim EVLog As New EventLog("Log_EDKB21")
|
|
Public Sub PrintLog(ByVal message As String, Optional ByVal eventmessage As EventLogEntryType = EventLogEntryType.Information)
|
|
#If CONFIG = "Release" Then 'Release
|
|
If Not EventLog.SourceExists("EDKB21") Then
|
|
EventLog.CreateEventSource("EDKB21", "EDKB21 Log")
|
|
End If
|
|
EVLog.Source = "EDKB21 Log"
|
|
|
|
EventLog.WriteEntry(EVLog.Source, message, eventmessage)
|
|
#Else
|
|
Debug.Print(message)
|
|
#End If
|
|
|
|
End Sub
|
|
|
|
End Module
|