Windows Dienst

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von jnpanzer.

    Windows Dienst

    Hallo,

    ich wollte gerade einen kleinen (ersten) Dienst für Windows machen.
    Die IInallation läuft über InstallUtil.exe.

    Beim Installieren komme ich auf den Fehler den man in so vielen Foren findet. Ich komme aber nicht weiter.
    Hat jemand einen kleien Tipp für mich?

    Fehler aus dem Konsolen Fenster:

    Quellcode

    1. Betroffene Parameter:
    2. logtoconsole =
    3. logfile = C:\Test\Test.log
    4. assemblypath = C:\Test\Test.exe
    5. Keine öffentlichen Installer mit dem RunInstallerAttribute.Yes-Attribut in der Assembly C:\Test\Test.exe gefunden.
    6. Die InstallState-Datei wird entfernt, da keine Installer vorhanden sind.
    7. Die InstallState-Datei wird entfernt, da keine Installer vorhanden sind.
    9. Die Commitphase wurde erfolgreich abgeschlossen.
    10. Die transaktive Installation ist abgeschlossen.





    VB.NET-Quellcode

    1. Imports System.ComponentModel
    2. Imports System.ServiceProcess
    3. Imports System.Timers
    4. Imports System.Management
    5. Imports System.Configuration.Install
    7. <RunInstaller(True)>
    8. Public Class Service1
    9. Inherits ServiceBase
    10. Private WithEvents timer As Timer
    12. Protected Overrides Sub OnStart(ByVal args() As String)
    13. timer = New Timer()
    14. timer.Interval = 300000 ' 5 Minuten
    15. AddHandler timer.Elapsed, AddressOf OnTimerElapsed
    16. timer.Enabled = True
    17. End Sub
    19. Protected Overrides Sub OnStop()
    20. timer.Enabled = False
    21. StopTaskIfRunning()
    22. End Sub
    24. Private Sub OnTimerElapsed(ByVal sender As Object, ByVal e As ElapsedEventArgs)
    25. If IsTaskRunning() Then
    26. StopTaskIfRunning()
    27. End If
    28. End Sub
    30. Private Function IsTaskRunning() As Boolean
    31. Dim query As String = "SELECT * FROM Win32_Process WHERE Name = 'notepad++.exe'"
    32. Dim searcher As New ManagementObjectSearcher(query)
    33. Dim processes As ManagementObjectCollection = searcher.Get()
    34. Return (processes.Count > 0)
    35. End Function
    37. Private Sub StopTaskIfRunning()
    38. Dim query As String = "SELECT * FROM Win32_Process WHERE Name = 'notepad++.exe'"
    39. Dim searcher As New ManagementObjectSearcher(query)
    40. Dim processes As ManagementObjectCollection = searcher.Get()
    41. If (processes.Count > 0) Then
    42. For Each process As ManagementObject In processes
    43. process.InvokeMethod("Terminate", Nothing)
    44. Next
    45. End If
    46. End Sub
    47. End Class

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „jnpanzer“ ()

Facebook
Telefonspende