VB.NetWindows Service

VB.Net - Service Advanced

Given this basic set of code

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Class SasdDirWatchService : Inherits System.ServiceProcess.ServiceBase

	Public Shared Sub Main()
		Dim ServicesToRun() As System.ServiceProcess.ServiceBase
		ServicesToRun = New System.ServiceProcess.ServiceBase() {New SasdDirWatchService}
		System.ServiceProcess.ServiceBase.Run(ServicesToRun)
	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.
	End Sub

	Protected Overrides Sub OnStop()
		' Add code here to perform any tear-down necessary to stop your service.
	End Sub

End Class

I think it’s possible to expand this a bit so that when the service is being started or stopped you get messages
like ‘Starting’ and ‘Started’.

Here is some revised code

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Public Enum ServiceState
	SERVICE_STOPPED = 1
	SERVICE_START_PENDING = 2
	SERVICE_STOP_PENDING = 3
	SERVICE_RUNNING = 4
	SERVICE_CONTINUE_PENDING = 5
	SERVICE_PAUSE_PENDING = 6
	SERVICE_PAUSED = 7
End Enum

<StructLayout(LayoutKind.Sequential)>
Public Structure ServiceStatus
	Public dwServiceType As Long
	Public dwCurrentState As ServiceState
	Public dwControlsAccepted As Long
	Public dwWin32ExitCode As Long
	Public dwServiceSpecificExitCode As Long
	Public dwCheckPoint As Long
	Public dwWaitHint As Long
End Structure

Public Class SasdDirWatchService : Inherits System.ServiceProcess.ServiceBase

	Declare Auto Function SetServiceStatus Lib "advapi32.dll" (ByVal handle As IntPtr, ByRef serviceStatus As ServiceStatus) As Boolean

	Public Shared Sub Main()
		Dim ServicesToRun() As System.ServiceProcess.ServiceBase
		ServicesToRun = New System.ServiceProcess.ServiceBase() {New SasdDirWatchService}
		System.ServiceProcess.ServiceBase.Run(ServicesToRun)
	End Sub	

	Protected Overrides Sub OnStart(ByVal args() As String)
		' shows the services tab that it's starting up
		Dim serviceStatus As ServiceStatus = New ServiceStatus()
		serviceStatus.dwCurrentState = ServiceState.SERVICE_START_PENDING
		serviceStatus.dwWaitHint = 100000
		SetServiceStatus(Me.ServiceHandle, serviceStatus)

		' Add code here to start your service. This method should set things
		' in motion so your service can do its work.
		
		' shows the services tab that it's starting up
		serviceStatus.dwCurrentState = ServiceState.SERVICE_RUNNING
		SetServiceStatus(Me.ServiceHandle, serviceStatus)
	End Sub

	Protected Overrides Sub OnStop()
		'
		' stopping the event log service
		'
		' shows the services tab that it's shutting down
		Dim serviceStatus As ServiceStatus = New ServiceStatus()
		serviceStatus.dwCurrentState = ServiceState.SERVICE_STOP_PENDING
		serviceStatus.dwWaitHint = 100000
		SetServiceStatus(Me.ServiceHandle, serviceStatus)

		' Add code here to perform any tear-down necessary to stop your service.

		' shows the services tab that it's shutting down
		serviceStatus.dwCurrentState = ServiceState.SERVICE_STOPPED
		SetServiceStatus(Me.ServiceHandle, serviceStatus)

	End Sub

	
End Class