'Beispiel: VB .Net - Ein einfacher Windows Dienst ( Windows Service in VB .Net ) - In diesem Beispiel 'wird das Stammlaufwerk in einem bestimmten Zeitinterval auf 'die Anzahl der sich im Root befindenden Dateien ueberprueft. 'Dienst 1 ' 'Vorgehensweise um einen Installer dem Projekt hinzuzufuegen: '1.) Oeffnen Sie das Projekt Service1.vb im Design Modus. '2.) Klicken Sie mit der rechten Maustaste im Design Fenster und waehlen Sie aus dem Kontextmenue ' "Installer hinzufuegen". ' Dieser Vorgang fuegt dem Projekt ein Installer Projekt mit dem Namen ProjektInstaller.vb und zwei ' Controls, ServiceProcessInstaller1 und ServiceInstaller1 hinzu. '3.) Waehlen Sie das ServiceInstaller1 Control aus und oeffnen Sie das Eigenschaftsfenster vom ServiceInstaller1. ' Geben Sie hier fuer ServiceName und DisplayName - Service1 ein. Dieser Name erscheint dann in der Liste ' im Service Fenster. '4.) Waehlen Sie das ServiceProcessInstaller1 Control aus und oeffnen Sie das Eigenschaftsfenster vom ' ServiceProcessInstaller1. Waehlen Sie hier fuer Account die Eigenschaft LocalSystem. Dies speziefiziert das ' der Service auf der Lokalen Maschine laeuft. '5.) Waehlen Sie aus dem Menue Erstellen - WindowsService1 erstellen. 'Service installieren: '1.) Um den Service zu installieren wird das InstallUtil Programm benoetigt. Zu finden in ' C:\WinDir\Microsoft.NET\Framework\v1.0.3705 oder v2.0.50727. Hier koennte der Pfad ' von Computer zu Computer verschieden sein. '2.) Aufruf des InstallUtil: ' Z.B. C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\InstallUtil.exe + dem Pfad zum kompilierten Service. ' In diesem Beispiel waere der komplette Aufruf: ' C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\InstallUtil.exe c:\MeinService\Service1.exe 'Service starten: '1.) Um den installierten Service zu starten ist es erforderlich diesen über Start > Systemsteuerung > Verwaltung ' zu starten. ' Oder einfach WinTaste + R und dann %SystemRoot%\system32\services.msc /s eingeben. '################################################################################################################# 'Zum deinstallieren des Dienstes koennen Sie delsrv_setup.exe verwenden. 'Download-Url: http://www.microsoft.com/downloads/details.aspx?FamilyID=0960C407-A45E-405A-A52A-B0BED9A04874&displaylang=en '################################################################################################################# 'Vorgehen: Uber Start - Ausfuehren - cmd 'Mit cd zum Verzeichnis wechseln, in dem die Deinstallationsdatei "delsrv" installiert ist. 'Beispiel: 'cd c:\programme\resource kit 'Die Syntax ist: 'delsrv Dienstname - In diesem Beispiel Service1 'C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\InstallUtil.exe c:\MeinService\Service1.exe 'cd c:\programme\resource kit 'Die Syntax ist: 'delsrv Dienstname - In diesem Beispiel ServiceRootTimer 'Die kompilierte exe befindet sich fuer dieses Beispiel in: c:\MeinService\ Imports System.Diagnostics Imports System.ServiceProcess Imports System.Timers Imports System.IO Public Class ServiceRootTimer Inherits System.ServiceProcess.ServiceBase #Region " Component Designer generated code " Public Sub New() MyBase.New() InitializeComponent() End Sub Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub <MTAThread()> _ Shared Sub Main() Dim ServicesToRun() As System.ServiceProcess.ServiceBase ServicesToRun = New System.ServiceProcess.ServiceBase() {New ServiceRootTimer} System.ServiceProcess.ServiceBase.Run(ServicesToRun) End Sub Private components As System.ComponentModel.IContainer <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() ' 'ServiceRootTimer ' Me.CanPauseAndContinue = True Me.CanShutdown = True Me.ServiceName = "ServiceRootTimer" End Sub #End Region ''' <summary> ''' Timer deklarieren mit einer Ueberwachungszeit von 10 Sekunden initialisieren. ''' </summary> ''' <remarks></remarks> Private WithEvents RootControler As Timer = New Timer(10000) ''' <summary> ''' Hier wird das Laufwerk c:\ auf die Anzahl der vorhandenen Dateien geprueft. Das Ergebnis wird in ein EventLog ''' geschrieben, ''' welches dann in der Ereignisanzeige (Anwendung) der Computerverwaltung angezeigt wird. ''' </summary> ''' <param name="source"></param> ''' <param name="e"></param> ''' <remarks></remarks> Public Sub OnTimedEvent(ByVal source As Object, ByVal e As ElapsedEventArgs) Handles RootControler.Elapsed 'Zu ueberpruefendes Verzeichnis Const Folder As String = "c:\" 'Deklaration und Initialisierung der Klasse DirectoryInfo. Dim di As DirectoryInfo = New DirectoryInfo(Folder) 'EventLog initalisieren... Dim Log As New EventLog("Application") Log.Source = "ServiceRootTimer" '...und die Anzahl der Dateien in das Log schreiben. Log.WriteEntry("Dateienanzahl im Root-Laufwerk am: " & Now() & " = " & di.GetFiles("*.*").Length()) 'Log schliessen. Log.Close() End Sub ''' <summary> ''' OnStart Sub: Uhrzeit des startens schreiben. ''' </summary> ''' <param name="args"></param> ''' <remarks></remarks> Protected Overrides Sub OnStart(ByVal args() As String) RootControler.Enabled = True Try Dim Log As New EventLog("Application") Log.Source = "ServiceRootTimer" Log.WriteEntry("Der Dienst wurde gestartet um: " & DateTime.Now) Log.Close() Catch e As Exception End Try End Sub ''' <summary> ''' OnPause Sub: Uhrzeit des pausierens schreiben. ''' </summary> ''' <param name="args"></param> ''' <remarks></remarks> Protected Shadows Sub OnPause(ByVal args() As String) RootControler.Enabled = False Try Dim Log As New EventLog("Application") Log.Source = "ServiceRootTimer" Log.WriteEntry("Der Dienst wurde unterbrochen um: " & DateTime.Now) Log.Close() Catch e As Exception End Try End Sub ''' <summary> ''' OnContinue Sub: Uhrzeit des fortsetzens schreiben. ''' </summary> ''' <param name="args"></param> ''' <remarks></remarks> Protected Shadows Sub OnContinue(ByVal args() As String) RootControler.Enabled = True Try Dim Log As New EventLog("Application") Log.Source = "ServiceRootTimer" Log.WriteEntry("Der Dienst wurde fortgesetzt um: " & DateTime.Now) Log.Close() Catch e As Exception End Try End Sub ''' <summary> ''' OnContinue Sub: Uhrzeit des beendens schreiben. ''' </summary> ''' <param name="args"></param> ''' <remarks></remarks> Protected Shadows Sub OnShutdown(ByVal args() As String) RootControler.Enabled = False Try Dim Log As New EventLog("Application") Log.Source = "ServiceRootTimer" Log.WriteEntry("Der Dienst wurde beendet um: " & DateTime.Now) Log.Close() Catch e As Exception End Try End Sub ''' <summary> ''' OnStop Sub: Uhrzeit des stoppens schreiben. ''' </summary> ''' <remarks></remarks> Protected Overrides Sub OnStop() RootControler.Enabled = False Try Dim Log As New EventLog("Application") Log.Source = "ServiceRootTimer" Log.WriteEntry("Der Dienst wurde gestoppt um: " & DateTime.Now) Log.Close() Catch e As Exception End Try End Sub End Class