我正在构建一个简单的 Windows 服务,但遇到了一个小问题。
该服务运行得很好,OnStart 方法创建了一个工作进程来侦听传入的 UDP 连接。
我遇到的问题是,当我单击服务上的停止或重新启动时,服务会在任务管理器中保持运行。不知道我做错了什么。
Imports System.IO
Imports System.Net.Sockets
Imports System.Net
Imports System.Text
Public Class Service1
Private ListenSocket As New MyNameSpace.Logging
Private wt As System.Threading.Thread
Protected Overrides Sub OnStart(ByVal args() As String)
AddHandler AppDomain.CurrentDomain.UnhandledException, AddressOf UnhandledExceptionEventRaised
'Load Initial IP Details'
Try
Dim logger As New MyNameSpace.Logging
logger.LoadIPDetails()
Catch ex As Exception
MyNameSpace.ErrorLogging.Log(ex)
End Try
'Start the listener in a new worker
Try
Dim ts As System.Threading.ThreadStart
ts = AddressOf ListenSocket.ListenForSyslogs
wt = New System.Threading.Thread(ts)
wt.Start()
Catch ex As Exception
MyNameSpace.ErrorLogging.Log(ex)
End Try
End Sub
Protected Overrides Sub OnStop()
' Add code here to perform any tear-down necessary to stop your service.
Try
wt.Abort()
wt = Nothing
Catch ex As Exception
MyNameSpace.ErrorLogging.Log(ex)
End Try
End Sub
Protected Overloads Sub UnhandledExceptionEventRaised(ByVal sender As Object, ByVal e As UnhandledExceptionEventArgs)
If e.IsTerminating Then
Dim o As Object = e.ExceptionObject
MyNameSpace.ErrorLogging.Log(o) ' use EventLog instead
End If
End Sub
End Class