| Вопрос: Как записать сообщение в журнал событий Windows | Добавлено: 01.09.04 09:46 |
Автор вопроса:  gmx
|
|
Коллеги!
Помогите записать сообщение (событие) в журнал событий Windows? Спасибо |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа: boevik Хранитель чата ICQ: 137392264 Вопросов: 8 Ответов: 557 |
Web-сайт: Профиль | Цитата | #1 | Добавлено: 01.09.04 10:59 |
|
На этой неделе тоже пришлось занаться этим вопросом.
Накатал такой модуль. Attribute VB_Name = "EventLog" Option Explicit Private Declare Function RegisterEventSource _ Lib "advapi32" Alias "RegisterEventSourceA" _  ByVal lpUNCServerName As String, _
ByVal lpSourceName As String) As Long ' --------------------------------------------- ' These are the available Event log types. ' --------------------------------------------- Public Enum EventType ERROR_TYPE = &H1 WARNING_TYPE = &H2 INFORMATION_TYPE = &H4 AUDIT_SUCCESS = &H8 AUDIT_FAILURE = &H10 End Enum Public Enum EventID General MSSQL MainFrame ImportData End Enum Private Declare Function ReportEvent _ Lib "advapi32" Alias "ReportEventA" _ ByVal hEventLog As Long, _
ByVal wType As Long, _ ByVal wCategory As Long, _ ByVal dwEventID As Long, _ ByVal lpUserSid As Long, _ ByVal wNumStrings As Long, _ ByVal dwDataSize As Long, _ lpStrings As Any, _ lpRawData As Any) As Long Private Declare Function DeregisterEventSource _ Lib "advapi32" _ ByVal hEventLog As Long) As Long
Const LOCAL_COMP As String = "" Public Sub WriteEvent(ByVal EventType As EventType, _ ByVal EventID As EventID, _ ByVal EventMessage As String) Dim hEventLog As Long Dim p_lngRtn As Long hEventLog = RegisterEventSource(LOCAL_COMP, App.EXEName) p_lngRtn = ReportEvent(hEventLog, _ EventType, _ 1, _ EventID, _ 0, _ 1, _ 0, _ EventMessage, _ Null) p_lngRtn = DeregisterEventSource(hEventLog) End Sub Есть небольшая проблемка с текстом сообщения, но её можно решить. |
||
|
Номер ответа: 2 Автор ответа: gmx Вопросов: 1 Ответов: 1 |
Профиль | Цитата | #2 | Добавлено: 01.09.04 14:50 |
|
Большое спасибо!
Так как все же можно было бы победить проблему с текстом сообщения? |
||
|
Номер ответа: 3 Автор ответа: boevikХранитель чата ICQ: 137392264 Вопросов: 8 Ответов: 557 |
Web-сайт: Профиль | Цитата | #3 | Добавлено: 01.09.04 17:35 |
| Эту проблему дорабатываю. Как закончу, брошу код. | ||
Страница: 1 |