none
Как подписаться на события в журнале "Microsoft-Windows-PrintService/Operational"? RRS feed

  • Общие обсуждения

  • Как подписаться на события в журнале "Microsoft-Windows-PrintService/Operational" (или в русском варианте Microsoft-Windows-PrintService/Работает)? Код ниже.
    Стоит поменять строку на

    vb.net
    Выделить код
    1
    
    el.Log = "Microsoft-Windows-PrintService/Operational"

    и служба не стартует.

    Так же смещает примечание на странице:
    https://docs.microsoft.com/ru-ru/dot...s_EventLog_Log

    Log names are limited to eight characters. According to the system, MyLogSample1 and MyLogSample2 are the same log. - Длина имени журнала не может быть больше 8 символов?

    Public Class Service1
     
        Dim el As EventLog
     
        Protected Overrides Sub OnStart(ByVal args() As String)
            el = new EventLog()
            el.Log = "System"
            AddHandler el.EntryWritten, AddressOf wr
            el.EnableRaisingEvents = True
        End Sub
     
        Private Sub wr(ByVal source As Object, ByVal e As EntryWrittenEventArgs)
            Try
                Using fs As New StreamWriter("E:\TMP\serv_log.txt", True)
                    fs.WriteLine(e.Entry.Message)
                End Using
            Catch ex As Exception
     
            End Try
        End Sub
     
        Protected Overrides Sub OnStop()
            el.EnableRaisingEvents = False
            RemoveHandler el.EntryWritten, AddressOf wr
            el.Dispose
            el = Nothing
        End Sub
     
    End Class


    22 августа 2019 г. 11:23