Dienst Starten

  • VB.NET

Es gibt 21 Antworten in diesem Thema. Der letzte Beitrag () ist von xater.

    Dienst Starten

    Hallo ich habe folgendes Problem bei diesem Code, und hoffe jemand kann mir helfen

    VB.NET-Quellcode

    1. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    3. Dim strItemCheck As String
    4. Dim objProcess As System.Diagnostics.Process
    5. Dim objDienst As ServiceController
    6. Dim blnFound As Boolean
    8. ' Durchläuft alle markierten Einträge
    9. For index As Integer = 0 To ListView1.CheckedItems.Count - 1
    10. ' Hilfsvariable für den Pfad
    11. Dim fullpath As String = ListView1.CheckedItems(index).Text
    13. ' Dateiname ohne Dateiendung (=ProcessName)
    14. Dim processname As String = IO.Path.GetFileNameWithoutExtension(fullpath)
    16. strItemCheck = ListView1.CheckedItems(index).Text
    17. If String.Compare(strItemCheck, "Prozess", False) = 0 Then
    18. ' Prüfen, ob Process mit dem aktuellen processname schon läuft
    20. For Each objProcess In System.Diagnostics.Process.GetProcesses
    21. blnFound = (String.Compare(strItemCheck, objProcess.ProcessName, False) = 0)
    22. If blnFound Then Exit For
    23. Next objProcess
    24. ' Versuche, Process zu starten
    25. If Not blnFound Then
    26. Try
    28. System.Diagnostics.Process.Start(fullpath)
    30. Catch ex As Exception
    31. ' MessageBox.Show(ex.Message)
    32. End Try
    33. End If ' Dienst
    34. ElseIf String.Compare(strItemCheck, "Dienst", False) = 0 Then
    35. ' Prüfen, ob Dienst mit dem aktuellen processname schon läuft
    37. For Each objDienst In
    38. blnFound = (String.Compare(strItemCheck, objDienst.ServiceName, False) = 0)
    39. If blnFound Then Exit For
    40. Next objDienst
    41. ' Versuche, Dienst zu starten
    42. If Not blnFound Then
    43. Try
    45. System.Diagnostics.Process.Start(fullpath)
    47. Catch ex As Exception
    48. ' MessageBox.Show(ex.Message)
    49. End Try
    50. End If
    51. End If
    53. Next index
    55. End Sub


    Die Probleme liegen an diesen beiden Zeilen

    VB.NET-Quellcode

    1. blnFound = (String.Compare(strItemCheck, objDienst.ServiceName, False) = 0)

    ServiceName ist nur ein Platzhalter für meinen fehlenden Member
    Wie gehört das richtig hat jemand eine Idee?

    Zweite Problem Zeile

    VB.NET-Quellcode

    1. System.Diagnostics.Process.Start(fullpath)


    Wie schreibt man das um einen Dienst zu starten ?

    Danke für eure Hilfe :)

    Ach ja vorher hab ich natürlich noch folgende Verweise gesetzt

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.ServiceProcess
    3. Imports System.Collections
    4. Imports System.Management

    Ja hatte ich ausprobiert
    Leider waren die Ergebnise alle voller Fehler.
    Da stimmten einige Member von SystemControl nicht überein mit der Library.

    Vil. kennt jemand ja eine Lösung und möchte sie mit dem Forum teilen

    Danke und Gruß

    Hallo,

    Ich sitze immer noch an dem Problem bin bisher nicht weiter gekommen.
    Es scheint echt schwer zu sein, einen Dienst zu starten wenn er noch nicht gestartet ist oder beendet wurde.

    oben mein Code kann mir da echt niemand helfen .

    Danke Danke

    und ein schönes We

    Gruß Björn

    Wenn alle Stricke reißen, könntest Du eine Batch-Datei erstellen, mit der man den Dienst starten kann. Dann kannst Du diese Datei ausführen lassen.

    Was genau bedeutet "Funktioniert nicht"? Hast Du Fehlermeldungen parat? Bedenke, dass man je nach Konfiguration Admin sein muss, um Dienste starten zu können.

    Natürlich verwendest du NT. Außerdem steht alles wunderbar auf der MSDN Seite dokumentiert.
    Öffne des Service Control Manager mit OpenSCManager() msdn.microsoft.com/en-us/library/ms684323%28v=vs.85%29.aspx
    Öffne den Service mit Hilfe des Managers mit OpenService() msdn.microsoft.com/en-us/library/ms684330%28v=vs.85%29.aspx
    Mit ControlService() kannst du nun alles steuern msdn.microsoft.com/en-us/library/ms682108%28v=vs.85%29.aspx
    Denk daran die Handles mit CloseServiceHandle() wieder zu schließen!
    pinvoke.net/ Hier findest du die dazugehörigen C#/VB Signaturen.

    Warum so kompliziert mit WMI oder der WinAPI??? .NET bietet dafür doch die "ServiceController"-Klasse. Damit kannst du Dienste starten, beenden, usw. Musst aber noch nen Verweis zu "System.ServiceProcess" setzen.

    msdn.microsoft.com/de-de/libra…econtroller(v=vs.80).aspx

    Stimmt, da hat GambaJo Recht. Ich habe diese Klasse nicht verwendet, da ich einen Dienst installiereb wollte und es dafür leider keine Methode gab (weshalb ich mir einfach einen kompletten Wrapper geschrieben habe). Aber stimmt, für dich sollte sie komplett ausreichen.

    Leider immer noch Fehler [HILFE]

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    3. Dim strItemCheck As String
    4. Dim objProcess As System.Diagnostics.Process
    5. Dim blnFound As Boolean
    6. Dim scServices() As ServiceController
    7. scServices = ServiceController.GetServices()
    9. ' Durchläuft alle markierten Einträge
    10. For index As Integer = 0 To ListView1.CheckedItems.Count - 1
    11. ' Hilfsvariable für den Pfad
    12. Dim fullpath As String = ListView1.CheckedItems(index).Text
    14. ' Dateiname ohne Dateiendung (=ProcessName)
    15. Dim processname As String = IO.Path.GetFileNameWithoutExtension(fullpath)
    17. strItemCheck = ListView1.CheckedItems(index).Text
    18. If String.Compare(strItemCheck, "Prozess", False) = 0 Then
    19. ' Prüfen, ob Process mit dem aktuellen processname schon läuft
    21. For Each objProcess In System.Diagnostics.Process.GetProcesses
    22. blnFound = (String.Compare(strItemCheck, objProcess.ProcessName, False) = 0)
    23. If blnFound Then Exit For
    24. Next objProcess
    25. ' Versuche, Process zu starten
    26. If Not blnFound Then
    27. Try
    29. System.Diagnostics.Process.Start(fullpath)
    31. Catch ex As Exception
    32. ' MessageBox.Show(ex.Message)
    33. End Try
    34. End If
    35. End If
    37. Next index
    38. ' Durchläuft alle markierten Einträge
    39. For index As Integer = 0 To ListView1.CheckedItems.Count - 1
    41. ' Hilfsvariable für den Dienst
    42. Dim fullpath As String = ListView1.CheckedItems(index).Text
    44. ' Dateiname ohne Dateiendung (=Dienst)
    45. Dim dienstname As String = IO.Path.GetFileNameWithoutExtension(fullpath)
    47. strItemCheck = ListView1.CheckedItems(index).Text
    48. If String.Compare(strItemCheck, "Dienst", False) = 0 Then
    49. ' Prüfen, ob Dienst mit dem aktuellen objDienst schon läuft
    51. For Each objDienst In scServices
    52. blnFound = (String.Compare(strItemCheck, objDienst.ServiceName, False) = 0)
    53. If blnFound Then Exit For
    54. Next objDienst
    55. ' Versuche,Dienst zu starten
    56. If Not blnFound Then
    57. Try
    58. Dim sc As New ServiceController(fullpath)
    59. If sc.Status.Equals(ServiceControllerStatus.Stopped) Or sc.Status.Equals(ServiceControllerStatus.StopPending) Then
    60. ' Start the service if the current status is stopped.
    61. Console.WriteLine("Starting the service...")
    62. sc.Start()
    63. End If
    64. ' Refresh and display the current service status.
    65. sc.Refresh()
    66. Console.WriteLine("The service status is now set to {0}.", sc.Status)
    68. Catch ex As Exception
    69. ' MessageBox.Show(ex.Message)
    70. End Try
    71. End If
    72. End If
    73. Next
    74. End Sub


    Kann mir jemand Helfen ?
    - Keine Fehlerausgabe bei VB

    Besten Dank

    Was für ein Fehler tritt den jetzt noch auf?
    Bricht das Programm ab, oder läuft es durch?

    Der Name des Dienstes muss nicht gleich dem Namen der Datei sein. Der Name, über den man den Dienst referenzieren kann, findest Du, wenn Du im Dienste-Manager in die Eigenschaften des Dienstes gehst, und dort den „Dienstnamen“ (Nicht den Anzeigenamen!) anschaust.

Facebook
Telefonspende