Hallo,
ich mach ein Tutorial durch ( mycsharp.de/wbb2/thread.php?threadid=18902 ). Dazu habe ich in Visual Studio ein "Windows-Dienst"-Projekt erstellt, kompiliert und installiert (Admin-Console!). Beim Starten des Services wird der Fehler "Systemfehler 5 aufgetreten. Zugriff verweigert" geworfen.
Debugging hat gezeigt, dass nicht in onStart oder onStop rein gegangen wird. Im Unterschied hat der Originalcode auch eine-Main Methode. Ich wüsste nicht, wie ich das aber in dem Projekt umsetzen soll (Sub Main wäre doch falsch?).
Hat jemand eine Lösung?
Installieren:
Service starten:
Service löschen:
ich mach ein Tutorial durch ( mycsharp.de/wbb2/thread.php?threadid=18902 ). Dazu habe ich in Visual Studio ein "Windows-Dienst"-Projekt erstellt, kompiliert und installiert (Admin-Console!). Beim Starten des Services wird der Fehler "Systemfehler 5 aufgetreten. Zugriff verweigert" geworfen.
Debugging hat gezeigt, dass nicht in onStart oder onStop rein gegangen wird. Im Unterschied hat der Originalcode auch eine-Main Methode. Ich wüsste nicht, wie ich das aber in dem Projekt umsetzen soll (Sub Main wäre doch falsch?).
Hat jemand eine Lösung?
Installieren:
'"C:\Windows\Microsoft.NET\Framework\v4.0.30319\installutil.exe" "C:\Users\001\source\repos\WindowsService1\WindowsService1\bin\Release\WindowsService1.exe"
Service starten:
net start Faxdienst
Service löschen:
sc delete Faxdienst
VB.NET-Quellcode
- Imports System.ComponentModel
- Imports System.Configuration.Install
- Imports System.ServiceProcess
- Public Class Service1
- Inherits ServiceBase
- Protected Overrides Sub OnStart(ByVal args() As String)
- End Sub
- Protected Overrides Sub OnStop()
- End Sub
- End Class
- <RunInstaller(True)>
- Public Class TestWinInstaller
- Inherits Installer
- Private m_ThisService As ServiceInstaller
- Private m_ThisServiceProcess As ServiceProcessInstaller
- Public Sub New() 'generell wird hier rein gegangen & fehlerfrei ausgeführt
- Try
- m_ThisService = New ServiceInstaller()
- m_ThisServiceProcess = New ServiceProcessInstaller()
- m_ThisServiceProcess.Account = ServiceAccount.NetworkService
- m_ThisService.ServiceName = "Faxdienst"
- m_ThisService.StartType = ServiceStartMode.Manual
- Installers.Add(m_ThisService)
- Installers.Add(m_ThisServiceProcess)
- Catch ex As Exception
- Dim file As System.IO.StreamWriter
- file = My.Computer.FileSystem.OpenTextFileWriter("c:\tmp2\test.txt", True)
- file.WriteLine(ex.StackTrace)
- file.Close()
- End Try
- End Sub
- End Class