Dienst Starten/Stopen

    • VB.NET

    Es gibt 33 Antworten in diesem Thema. Der letzte Beitrag () ist von dive26.

      Dienst Starten/Stopen

      Hi heute zeige ich euch wie ihr mit vb einen Dienst Starten/Stoppen/Pausieren könnt.
      Dazu müsst ihr einen Verweis auf System.ServiceProcess setzen.
      Danach fügt ihr in eure Form folgenden Code ein:



      VB.NET-Quellcode

      1. Imports System.ServiceProcess
      2. Public Class Form1
      3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      4. Try
      5. Dim sc As New ServiceController("DerNameDesDienstes")
      6. sc.Start()
      7. MsgBox("Dienst Gestartet!", MsgBoxStyle.Information)
      8. Catch
      9. MsgBox("Starten Fehlgeschlagen", MsgBoxStyle.Exclamation)
      10. End Try
      11. End Sub
      12. End Class


      Ihr könnt auch statt

      VB.NET-Quellcode

      1. sc.start

      folgenden andere Funktionen verwenden:

      Dienst Starten:

      VB.NET-Quellcode

      1. sc.start

      Dienst Stoppen:

      VB.NET-Quellcode

      1. sc.stop

      Dienst Pausieren:

      VB.NET-Quellcode

      1. sc.pause

      Dienst Fortfahren:

      VB.NET-Quellcode

      1. sc.Continue



      Um zu überprüfen ob der Dienst gerade gestartet ist könnt ihr folgendens machen:

      VB.NET-Quellcode

      1. If sc.Status = ServiceControllerStatus.Running Then
      2. MsgBox("Dienst Gestartet!")
      3. End If


      Naja das wars soweit.
      Es gibt noch ein paar andere Funktionen. Schaut sie euch einfach mal an.

      Ich hoffe ich konnte ein paar Leuten helfen ;)
      MfG

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „.NET Fr3akY“ ()

      why geht das bei mir nicht


      Imports System.ServiceProcess

      Public Class Form1

      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      Timer1.Enabled = True
      End Sub

      Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
      Try
      Dim sc As New ServiceController(TextBox1.Text)
      sc.Pause()
      MsgBox("pause", MsgBoxStyle.Information)
      Catch
      MsgBox("pause Fehlgeschlagen", MsgBoxStyle.Exclamation)
      End Try
      End Sub

      Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
      Try
      Dim sc As New ServiceController(TextBox1.Text)
      sc.Continue()
      MsgBox("pause", MsgBoxStyle.Information)
      Catch
      MsgBox("pause Fehlgeschlagen", MsgBoxStyle.Exclamation)
      End Try
      End Sub

      Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
      Try
      Dim sc As New ServiceController(TextBox1.Text)
      sc.Stop()
      MsgBox("gestoppt", MsgBoxStyle.Information)
      Catch

      End Try
      End Sub

      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

      End Sub

      Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
      Timer1.Enabled = False
      End Sub
      End Class


      Opensource Audio-Bibliothek auf github: KLICK, im Showroom oder auf NuGet.
      Try
      Dim sc As New ServiceController(also zb der name)
      sc.Continue()
      MsgBox("pause", MsgBoxStyle.Information)
      Catch
      MsgBox("pause Fehlgeschlagen", MsgBoxStyle.Exclamation)
      End Try


      Opensource Audio-Bibliothek auf github: KLICK, im Showroom oder auf NuGet.
      weil henny umbedingt wollte, das wir die Lösungen schreiben, mach ich das mal kurz.

      Die ist aber sehr simpel:

      Dieser Code muss vor den IF Befehlen kommen, die mit dem Prozess Starten/Stoppen zu tun hat:

      VB.NET-Quellcode

      1. Dim sc As New ServiceController("Prozessname")


      Ich hatte diesen Code in die falsche zeile kopiert.
      Alex hat einen sehr schönen link dafür gepostet, was gefällt dir den ned?
      Moderatorin: "Apropo ritzen.." Shin Chan: "hoho sie hat Po ritze gesagt"
      "saying to buy a mac because your anti-virus expired is like saying you're out of condoms so you're just going to go fuck dudes"
      "Wie auch in anderen Threads kann ich leider nichts bieten außer vielleicht spaß beim Skypen aber mehr leider auch nicht." - Sind kinder pornos nicht verboten?
      Das hat er.
      Aber meine Frage war: Kann man Dienste Dauerhaft Beenden ?
      Und im Link wird nur erklärt wie Man sie Auflistet und Kontroliert.

      Allerdings könnte das schon meine Antwort sein :

      VB.NET-Quellcode

      1. ' Einen Dienst beenden (der beendet werden kann):
      2. If sc.CanStop Then
      3. sc.Stop()
      4. End If

      Allerdings besteht die Frage weiterhin werden sie dann dauerhaft beendet ?