You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
77 lines
2.8 KiB
77 lines
2.8 KiB
Imports System.ServiceProcess
|
|
|
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
|
Partial Class EDKB04OP
|
|
Inherits System.ServiceProcess.ServiceBase
|
|
'UserService überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
|
<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
|
|
|
|
' Der Haupteinstiegspunkt für den Prozess
|
|
<MTAThread()> _
|
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
|
Shared Sub Main()
|
|
|
|
#If CONFIG = "Release" Then
|
|
Dim ServicesToRun() As System.ServiceProcess.ServiceBase
|
|
ServicesToRun = New System.ServiceProcess.ServiceBase() {New EDKB04OP}
|
|
System.ServiceProcess.ServiceBase.Run(ServicesToRun)
|
|
#Else
|
|
Dim myServ As New EDKB04OP()
|
|
myServ.OnStart({""})
|
|
While (True)
|
|
System.Threading.Thread.Sleep(2000)
|
|
End While
|
|
#End If
|
|
''#If DEBUG Then
|
|
'' Dim myServ As New EDKB04OP()
|
|
'' myServ.OnStart({""})
|
|
'' While (True)
|
|
'' System.Threading.Thread.Sleep(2000)
|
|
'' End While
|
|
|
|
''#Else
|
|
'' Dim ServicesToRun() As System.ServiceProcess.ServiceBase
|
|
'' ServicesToRun = New System.ServiceProcess.ServiceBase() {New Service1()}
|
|
''System.ServiceProcess.ServiceBase.Run(ServicesToRun)
|
|
|
|
|
|
'Dim ServicesToRun() As System.ServiceProcess.ServiceBase
|
|
|
|
'' Innerhalb eines Prozesses können mehrere NT-Dienste ausgeführt werden. Um einen
|
|
'' weiteren Dienst zu diesem Prozess hinzuzufügen, ändern Sie die folgende Zeile,
|
|
'' um ein zweites Dienstobjekt zu erstellen. Zum Beispiel
|
|
''
|
|
'' ServicesToRun = New System.ServiceProcess.ServiceBase () {New Service1, New MySecondUserService}
|
|
''
|
|
'ServicesToRun = New System.ServiceProcess.ServiceBase() {New EDKB04OP}
|
|
|
|
'System.ServiceProcess.ServiceBase.Run(ServicesToRun)
|
|
''#End If
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
'Wird vom Komponenten-Designer benötigt.
|
|
Private components As System.ComponentModel.IContainer
|
|
|
|
' Hinweis: Die folgende Prozedur ist für den Komponenten-Designer erforderlich.
|
|
' Das Bearbeiten ist mit dem Komponenten-Designer möglich.
|
|
' Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
|
<System.Diagnostics.DebuggerStepThrough()> _
|
|
Private Sub InitializeComponent()
|
|
components = New System.ComponentModel.Container()
|
|
Me.ServiceName = "Service1"
|
|
End Sub
|
|
|
|
End Class
|