${res:Templates.Project.WindowsService.Name}
VBNet
${res:Templates.File.Categories.WindowsApplications}
VBNet.Project.ServiceProject
${res:Templates.Project.WindowsService.Description}
v2.0;v3.5Client
Exe
Properties
On
_
Shared Sub Main()
' To run more than one service you have to add them here
ServiceBase.Run(New ServiceBase() {New ${ProjectName}})
End Sub
Public Sub New()
Me.ServiceName = MyServiceName
End Sub
Protected Overrides Sub OnStart(ByVal args() As String)
' TODO: Add start code here to start your service.
End Sub
Protected Overrides Sub OnStop()
' TODO: Add tear-down code here (if required) to stop your service.
End Sub
End Class
]]>
_
Public Class ProjectInstaller
Inherits Installer
Private serviceProcessInstaller As New ServiceProcessInstaller
Private serviceInstaller As New ServiceInstaller
Public Sub New()
' Here you can set properties on serviceProcessInstaller or register event handlers
serviceProcessInstaller.Account = ServiceAccount.LocalService
serviceInstaller.ServiceName = ${ProjectName}.MyServiceName
Me.Installers.AddRange(New Installer() { serviceProcessInstaller, serviceInstaller })
End Sub
End Class
]]>