Windows service write to event log

Question

Have strange conduct of code within my application. I've created windows service the same as according to MSDN default instruction:
https://msdn.microso...=vs.110%29.aspx
its working and logging to event log correctly. After that i copied that project and based on it i started to create second one almost similar one. my issue is within below part of code belongs to ProjectInstaller.vb when i installed it and tried to Start i
get message that Windows service started and stoped imedietly.
Imports System.ComponentModel
Imports System.Configuration.Install
Public Class ProjectInstaller
Public Sub New()
MyBase.New()
'This call is required by the Component Designer.
InitializeComponent()
'Add initialization code after the call to InitializeComponent
End Sub
Protected Overrides Sub OnBeforeInstall(ByVal savedState As IDictionary)
Dim parameter As String = "MySvcDeon2"" ""MyLogFileSvcDeon2"
Context.Parameters("assemblypath") = """" + Context.Parameters("assemblypath") + """ """ + parameter + """"
MyBase.OnBeforeInstall(savedState)
End Sub
End Class
Within this line: Dim parameter As String = "MySvcDeon2"" ""MyLogFileSvcDeon2"
When i change it to this form then service its starting correctly without any error meassage:
Dim parameter As String = "MySvcDeon1"" ""MyLogFileSvcDeon1"
its working. But Deon2 is already created by my first windows service. Whats wrong?

Answer 1

i also tried from official msdn site  but same error, anyhow, see my code below:
ProjectInstaller.vb:
Imports System.ComponentModelImports System.Configuration.InstallPublic Class ProjectInstaller    Public Sub New()        MyBase.New()        'This call is required by the Component Designer.        InitializeComponent()        'Add initialization code after the call to InitializeComponent    End SubEnd Class
ProjectInstaller.Designer.vb
<System.ComponentModel.RunInstaller(True)> Partial Class ProjectInstaller    Inherits System.Configuration.Install.Installer    'Installer overrides dispose to clean up the component list.    <System.Diagnostics.DebuggerNonUserCode()> _    Protected Overrides Sub Dispose(ByVal disposing As Boolean)        Try            If disposing AndAlso components IsNot Nothing Then                components.Dispose()            End If        Finally            MyBase.Dispose(disposing)        End Try    End Sub    'Required by the Component Designer    Private components As System.ComponentModel.IContainer    'NOTE: The following procedure is required by the Component Designer    'It can be modified using the Component Designer.      'Do not modify it using the code editor.    <System.Diagnostics.DebuggerStepThrough()> _    Private Sub InitializeComponent()        Me.ServiceProcessInstaller1 = New System.ServiceProcess.ServiceProcessInstaller()        Me.ServiceInstaller1 = New System.ServiceProcess.ServiceInstaller()        '        'ServiceProcessInstaller1        '        Me.ServiceProcessInstaller1.Account = System.ServiceProcess.ServiceAccount.LocalSystem        Me.ServiceProcessInstaller1.Password = Nothing        Me.ServiceProcessInstaller1.Username = Nothing        '        'ServiceInstaller1        '        Me.ServiceInstaller1.Description = "Chorus windows service collector"        Me.ServiceInstaller1.DisplayName = "SvcChorusCollector"        Me.ServiceInstaller1.ServiceName = "SvcChorusCollector"        Me.ServiceInstaller1.StartType = System.ServiceProcess.ServiceStartMode.Automatic        '        'ProjectInstaller        '        Me.Installers.AddRange(New System.Configuration.Install.Installer() {Me.ServiceProcessInstaller1, Me.ServiceInstaller1})    End Sub    Friend WithEvents ServiceProcessInstaller1 As System.ServiceProcess.ServiceProcessInstaller    Friend WithEvents ServiceInstaller1 As System.ServiceProcess.ServiceInstallerEnd Class
SvcChorusCollector.vb:
Public Class SvcChorusCollector
    Private Const EvtLogSource As String = "MySourceSvcChorusCollector"
    Private Const EvtLogName As String = "MyLogSvcChorusCollector"
    Private syncRoot As New Object
    Dim timer As System.Timers.Timer = New System.Timers.Timer()
    Sub New()
        ' This call is required by the designer.
        InitializeComponent()
        ' Add any initialization after the InitializeComponent() call.
        If Not System.Diagnostics.EventLog.SourceExists(EvtLogSource) Then
            System.Diagnostics.EventLog.CreateEventSource(EvtLogSource, EvtLogName)
        End If
        EventLog1.Source = EvtLogSource
    End Sub
    Protected Overrides Sub OnStart(ByVal args() As String)
        ' Add code here to start your service. This method should set things
        ' in motion so your service can do its work.
        EventLog1.WriteEntry("In OnStart")
        ' Set up a timer to trigger every minute.
        timer.Interval = 1000 ' 1 seconds
        'unfortunetly OnTimer event handler will be executed even already one is running if Interval is riched by default.
        'This is because it will go multiple threading and not in main thread unless a SynchronizingObject is supplied. (Which it wasn't.) below :
        'timer.SynchronizingObject = Me
        'this is solving problem. OTher way is to make lock within OnTimer event handler as its done right now.
        AddHandler timer.Elapsed, AddressOf Me.OnTimer
        timer.Start()
    End Sub
    Protected Overrides Sub OnStop()
        ' Add code here to perform any tear-down necessary to stop your service.
        EventLog1.WriteEntry("In OnStop")
    End Sub
    Protected Overrides Sub OnContinue()
        EventLog1.WriteEntry("In OnContinue.")
    End Sub
    Private Sub OnTimer(ByVal sender As Object, ByVal e As Timers.ElapsedEventArgs)
    End Sub
End Class
SvcChorusCollector.Designer.vb
Imports System.ServiceProcess<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _Partial Class SvcChorusCollector    Inherits System.ServiceProcess.ServiceBase    'UserService overrides dispose to clean up the component list.    <System.Diagnostics.DebuggerNonUserCode()> _    Protected Overrides Sub Dispose(ByVal disposing As Boolean)        Try            If disposing AndAlso components IsNot Nothing Then                components.Dispose()            End If        Finally            MyBase.Dispose(disposing)        End Try    End Sub    ' The main entry point for the process    <MTAThread()> _    <System.Diagnostics.DebuggerNonUserCode()> _    Shared Sub Main()        Dim ServicesToRun() As System.ServiceProcess.ServiceBase        ' More than one NT Service may run within the same process. To add        ' another service to this process, change the following line to        ' create a second service object. For example,        '        '   ServicesToRun = New System.ServiceProcess.ServiceBase () {New Service1, New MySecondUserService}        '        ServicesToRun = New System.ServiceProcess.ServiceBase() {New SvcChorusCollector}        System.ServiceProcess.ServiceBase.Run(ServicesToRun)    End Sub    'Required by the Component Designer    Private components As System.ComponentModel.IContainer    ' NOTE: The following procedure is required by the Component Designer    ' It can be modified using the Component Designer.      ' Do not modify it using the code editor.    <System.Diagnostics.DebuggerStepThrough()> _    Private Sub InitializeComponent()        Me.EventLog1 = New System.Diagnostics.EventLog()        CType(Me.EventLog1, System.ComponentModel.ISupportInitialize).BeginInit()        '        'EventLog1        '        '        'SvcChorusCollector        '        Me.ServiceName = "SvcChorusCollector"        Me.CanStop = True                   'if this is not set to true then will be not possible to stop service manually from service window services.msc !!!        Me.AutoLog = True        CType(Me.EventLog1, System.ComponentModel.ISupportInitialize).EndInit()    End Sub    Friend WithEvents EventLog1 As System.Diagnostics.EventLogEnd Class
The second service is on same basis, of course service names, source,logname are diffrent. What i do wrong? Error message appearing really fast after ~8 sec