Initial commit

edkb12/edkb12 V14/EDKB12WS/Service1.Designer.vb

@@ -0,0 +1,64 @@
+Imports System.ServiceProcess
+
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Service1
+    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)
+        If disposing AndAlso components IsNot Nothing Then
+            components.Dispose()
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    ' Der Haupteinstiegspunkt für den Prozess
+    <MTAThread()> _
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Shared Sub Main()
+        '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 Service1}
+
+        'System.ServiceProcess.ServiceBase.Run(ServicesToRun)
+
+#If CONFIG = "Release" Then
+        Dim ServicesToRun() As System.ServiceProcess.ServiceBase
+        ServicesToRun = New System.ServiceProcess.ServiceBase() {New Service1()}
+        System.ServiceProcess.ServiceBase.Run(ServicesToRun)
+#Else
+        Dim myServ As New Service1
+        myServ.OnStart({""})
+        While (True)
+            System.Threading.Thread.Sleep(2000)
+        End While
+#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()
+        Me.components = New System.ComponentModel.Container
+        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
+        '
+        'Service1
+        '
+        Me.ServiceName = "Service1"
+
+    End Sub
+    Friend WithEvents Timer1 As System.Windows.Forms.Timer
+
+End Class