49 lines
1.6 KiB
VB.net
49 lines
1.6 KiB
VB.net
Imports System.ServiceProcess
|
||
|
||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||
Partial Class Service1
|
||
Inherits System.ServiceProcess.ServiceBase
|
||
|
||
'UserService 重写 Dispose，以清理组件列表。
|
||
<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
|
||
|
||
' 此进程的主入口点
|
||
<MTAThread()> _
|
||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||
Shared Sub Main()
|
||
Dim ServicesToRun() As System.ServiceProcess.ServiceBase
|
||
|
||
' 同一进程内可运行多个 NT 服务。若要将
|
||
' 另一个服务添加到此进程中，请更改下行以
|
||
' 创建另一个服务对象。例如，
|
||
'
|
||
' ServicesToRun = New System.ServiceProcess.ServiceBase () {New Service1, New MySecondUserService}
|
||
'
|
||
ServicesToRun = New System.ServiceProcess.ServiceBase() {New Service1}
|
||
|
||
System.ServiceProcess.ServiceBase.Run(ServicesToRun)
|
||
End Sub
|
||
|
||
'组件设计器所必需的
|
||
Private components As System.ComponentModel.IContainer
|
||
|
||
' 注意: 以下过程是组件设计器所必需的
|
||
' 可使用组件设计器修改它。
|
||
'不要使用代码编辑器修改它。
|
||
<System.Diagnostics.DebuggerStepThrough()> _
|
||
Private Sub InitializeComponent()
|
||
components = New System.ComponentModel.Container()
|
||
Me.ServiceName = "Service1"
|
||
End Sub
|
||
|
||
End Class
|