[Release] Service (Re-)Starter

[AllCowsAreBurgers]

Hey
Ich wollt ma eben euer 4Story ServerAdmin Leben einfacher machen und hab ein kleines programm geschrieben, das die services (wenn nötig) mit einem button stoppt und sie wieder startet.
screen:

Source (Könnt ihr wenn ihr wollt selbst compilen, ich hab nix dagegen):

 Spoiler

Imports System.IO
Imports System.ServiceProcess


Public Class Form1

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

    End Sub
    Private Sub start()
        Label1.Text = "Services werden Gestartet"
        ProgressBar1.Value = "50"
        Try
            Dim sc As New ServiceController("TCTRL_GSP")
            sc.Start()
        Catch
            MsgBox("Error!!" + vbNewLine + "TCTRL_GSP Konnte nicht Gestatet werden.", MsgBoxStyle.Critical, "Error!")
        End Try
        ProgressBar1.Value = "58,33333"
        Try
            Dim sc As New ServiceController("TLOGIN_GSP")
            sc.Start()
        Catch
            MsgBox("Error!!" + vbNewLine + "TLOGIN_GSP Konnte nicht Gestatet werden.", MsgBoxStyle.Critical, "Error!")
        End Try
        ProgressBar1.Value = "66,666666666"
        Try
            Dim sc As New ServiceController("TWORLD_GSP")
            sc.Start()
        Catch
            MsgBox("Error!!" + vbNewLine + "TWORLD_GSP Konnte nicht Gestatet werden.", MsgBoxStyle.Critical, "Error!")
        End Try
        ProgressBar1.Value = "75"
        Try
            Dim sc As New ServiceController("TRELAY_GSP")
            sc.Start()
        Catch
            MsgBox("Error!!" + vbNewLine + "TRELAY_GSP Konnte nicht Gestatet werden.", MsgBoxStyle.Critical, "Error!")
        End Try
        ProgressBar1.Value = "83,33333"
        Try
            Dim sc As New ServiceController("TMAP_GSP")
            sc.Start()
        Catch
            MsgBox("Error!!" + vbNewLine + "TMAP_GSP Konnte nicht Gestatet werden.", MsgBoxStyle.Critical, "Error!")
        End Try
        ProgressBar1.Value = "91,666666633333"
        'Try
        'Dim sc As New ServiceController("TLOG0")
        'sc.Start()
        'Catch
        'MsgBox("Error!!" + vbNewLine + "TLOG0 Konnte nicht Gestatet werden.", MsgBoxStyle.Critical, "Error!")
        'End Try
        ProgressBar1.Value = "100"
        Label1.Text = "Fertig"
    End Sub
    Private Sub stops()
        Label1.Text = "Services werden Gestoppt"
        Try
            Dim sc As New ServiceController("TCTRL_GSP")
            sc.Stop()
        Catch
        End Try
        Try
            Dim sc As New ServiceController("TLOGIN_GSP")
            sc.Stop()
        Catch
        End Try
        Try
            Dim sc As New ServiceController("TWORLD_GSP")
            sc.Stop()
        Catch
        End Try
        Try
            Dim sc As New ServiceController("TRELAY_GSP")
            sc.Stop()
        Catch
        End Try
        Try
            Dim sc As New ServiceController("TMAP_GSP")
            sc.Stop()
        Catch
        End Try
        Try
            Dim sc As New ServiceController("TLOG0")
            sc.Stop()
        Catch
        End Try

    
        ProgressBar1.Value = "25"
        Timer1.Start()
        If checkserviceon() = True Then
            Label1.Text = "Services on, press button..."
        ElseIf checkserviceon() = False Then
            Label1.Text = "Services off, starting..."


            start()
        End If
    End Sub
    
    Dim stcheck As Boolean = False


    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
      

    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Control.CheckForIllegalCrossThreadCalls = False
        BackgroundWorker1.RunWorkerAsync()

    End Sub

    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Call stops()
    End Sub

    Function checkserviceon()
        If stcheck = False Then


            Dim count As Integer
            Dim Wait As String = ""

            Dim TCTRL_GSP As New ServiceController("TCTRL_GSP")
            Dim TLOGIN_GSP As New ServiceController("TLOGIN_GSP")
            Dim TWORLD_GSP As New ServiceController("TWORLD_GSP")
            Dim TRELAY_GSP As New ServiceController("TRELAY_GSP")
            Dim TMAP_GSP As New ServiceController("TMAP_GSP")
            If TCTRL_GSP.Status = ServiceControllerStatus.Running Then
                count = count + 1
                Wait &= "TCTRL,"
            Else

            End If

            If TLOGIN_GSP.Status = ServiceControllerStatus.Running Then
                count = count + 1
                Wait &= "TLOGIN_GSP,"
            Else


            End If

            If TWORLD_GSP.Status = ServiceControllerStatus.Running Then
                count = count + 1
                Wait &= "TWORLD_GSP,"
            Else


            End If

            If TRELAY_GSP.Status = ServiceControllerStatus.Running Then
                count = count + 1
                Wait &= "TRELAY_GSP,"
            Else


            End If

            If TMAP_GSP.Status = ServiceControllerStatus.Running Then
                count = count + 1
                Wait &= "TMAP_GSP,"
            Else


            End If
            If count >= "1" Then
                Label1.Text = "Waiting For " + count + " to close:" + vbNewLine + Wait
                Return True
            Else
                stcheck = True
                Label1.Text = "services stopped!"
                Return False
            End If


        ElseIf stcheck = True Then
            Label1.Text = "services stopped!"
            Return False

        End If

    End Function
   
End Class

VT:
1/47 : virenscanner können auch mal irren
Kleine anmerkung am rande: Nicht schnell hintereinander den button drücken, sonst kommen viele errors raus

[AZB TPT OhSorrY]

Virus Total?

Screens?

[stotterer09]

er hat ein source gepostet das is besser als jeden vt

[AllCowsAreBurgers]

Vt is glaub ich überflüssig, da es open source is aba ok.
Screen mach ich ma, Danke fürn hinweis

[AZB TPT OhSorrY]

Originally Posted by stotterer09

er hat ein source gepostet das is besser als jeden vt

Oh da ist ja wirklich die Source xD hab die wohl nicht gesehen ^^

[SkillartzHD]

Es gibt Zwar schon ein Programm davon aber schaden Tut es ja nicht.
Allerdings würde ich noch eine Funktion "Kill Process" einbauen.
Mit dieser sollte man Prozesse die sich nicht mehr normal beenden lassen (Weil sich z.B. ein Service aufgehängt hat) killen können.

Btw:

Originally Posted by [GA]Zero

Oh da ist ja wirklich die Source xD hab die wohl nicht gesehen ^^

Wie schon des öfteren erwähnt:
Bitte nachdenken und erst dann Posten!

Grezz

[AllCowsAreBurgers]

Das hatte ich schon mal, damals hat´s meine dbs zerschossen, die prozedur ist im original code vorhanden, doch nicht mehr eingebaut.
Wers braucht:

 Spoiler

  Private Sub Hardresett()
        Label1.Text = "Hardreset Wird Durchgeführt"
        Try
            Dim p() As Process = Process.GetProcessesByName("TControlSvr")
            p(0).Kill()
        Catch ex As Exception
        End Try
        Try
            Dim p() As Process = Process.GetProcessesByName("TLOG0")
            p(0).Kill()
        Catch ex As Exception
        End Try
        Try
            Dim p() As Process = Process.GetProcessesByName("TLoginSvr")
            p(0).Kill()
        Catch ex As Exception
        End Try
        Try
            Dim p() As Process = Process.GetProcessesByName("TMapSvr")
            p(0).Kill()
        Catch ex As Exception
        End Try
        Try
            Dim p() As Process = Process.GetProcessesByName("TRelaySvr")
            p(0).Kill()
        Catch ex As Exception
        End Try
        Try
            Dim p() As Process = Process.GetProcessesByName("TControlSvr")
            p(0).Kill()
        Catch ex As Exception
        End Try
        Try
            Dim p() As Process = Process.GetProcessesByName("TWorldSvr")
            p(0).Kill()
        Catch ex As Exception
        End Try






        ProgressBar1.Value = "50"
        start()

[jibi1996]

That's nice program, great job. You can do it also to at intervals - if services are running or no, to restart them automatically.

But can you say me advantages that you get, using the backgroundWorker in your project?

[AllCowsAreBurgers]

Originally Posted by jibi1996

That's nice program, great job. You can do it also to at intervals - if services are running or no, to restart them automatically.

But can you say me advantages that you get, using the backgroundWorker in your project?

The advantage of the bgw is that the form is more stable if you use it.
You can also take a new thread, but in the backgroundworker are much more options.

[AZB TPT OhSorrY]

Habe mich kurz dran gesetzt um es in Englisch zu übersetzen.

Wenn "AllCowsAreBurgers" will das ich es entferne werde ich dies tun.

Resource Code:

 Spoiler

Imports System.IO
Imports System.ServiceProcess


Public Class Form1

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

    End Sub
    Private Sub start()
        Label1.Text = "Services will be Started."
        ProgressBar1.Value = "50"
        Try
            Dim sc As New ServiceController("TCTRL_GSP")
            sc.Start()
        Catch
            MsgBox("Error!!" + vbNewLine + "TCTRL_GSP Can't Start .", MsgBoxStyle.Critical, "Error!")
        End Try
        ProgressBar1.Value = "58,33333"
        Try
            Dim sc As New ServiceController("TLOGIN_GSP")
            sc.Start()
        Catch
            MsgBox("Error!!" + vbNewLine + "TLOGIN_GSP Can't Start.", MsgBoxStyle.Critical, "Error!")
        End Try
        ProgressBar1.Value = "66,666666666"
        Try
            Dim sc As New ServiceController("TWORLD_GSP")
            sc.Start()
        Catch
            MsgBox("Error!!" + vbNewLine + "TWORLD_GSP Can't Start.", MsgBoxStyle.Critical, "Error!")
        End Try
        ProgressBar1.Value = "75"
        Try
            Dim sc As New ServiceController("TRELAY_GSP")
            sc.Start()
        Catch
            MsgBox("Error!!" + vbNewLine + "TRELAY_GSP Can't Start.", MsgBoxStyle.Critical, "Error!")
        End Try
        ProgressBar1.Value = "83,33333"
        Try
            Dim sc As New ServiceController("TMAP_GSP")
            sc.Start()
        Catch
            MsgBox("Error!!" + vbNewLine + "TMAP_GSP Can't Start.", MsgBoxStyle.Critical, "Error!")
        End Try
        ProgressBar1.Value = "91,666666633333"
        'Try
        'Dim sc As New ServiceController("TLOG0")
        'sc.Start()
        'Catch
        'MsgBox("Error!!" + vbNewLine + "TLOG0 Can't Start.", MsgBoxStyle.Critical, "Error!")
        'End Try
        ProgressBar1.Value = "100"
        Label1.Text = "Finish"
    End Sub
    Private Sub stops()
        Label1.Text = "Services will be stopped"
        Try
            Dim sc As New ServiceController("TCTRL_GSP")
            sc.Stop()
        Catch
        End Try
        Try
            Dim sc As New ServiceController("TLOGIN_GSP")
            sc.Stop()
        Catch
        End Try
        Try
            Dim sc As New ServiceController("TWORLD_GSP")
            sc.Stop()
        Catch
        End Try
        Try
            Dim sc As New ServiceController("TRELAY_GSP")
            sc.Stop()
        Catch
        End Try
        Try
            Dim sc As New ServiceController("TMAP_GSP")
            sc.Stop()
        Catch
        End Try
        Try
            Dim sc As New ServiceController("TLOG0")
            sc.Stop()
        Catch
        End Try

    
        ProgressBar1.Value = "25"
        Timer1.Start()
        If checkserviceon() = True Then
            Label1.Text = "Services on, press button..."
        ElseIf checkserviceon() = False Then
            Label1.Text = "Services off, starting..."


            start()
        End If
    End Sub
    
    Dim stcheck As Boolean = False


    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
      

    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Control.CheckForIllegalCrossThreadCalls = False
        BackgroundWorker1.RunWorkerAsync()

    End Sub

    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Call stops()
    End Sub

    Function checkserviceon()
        If stcheck = False Then


            Dim count As Integer
            Dim Wait As String = ""

            Dim TCTRL_GSP As New ServiceController("TCTRL_GSP")
            Dim TLOGIN_GSP As New ServiceController("TLOGIN_GSP")
            Dim TWORLD_GSP As New ServiceController("TWORLD_GSP")
            Dim TRELAY_GSP As New ServiceController("TRELAY_GSP")
            Dim TMAP_GSP As New ServiceController("TMAP_GSP")
            If TCTRL_GSP.Status = ServiceControllerStatus.Running Then
                count = count + 1
                Wait &= "TCTRL,"
            Else

            End If

            If TLOGIN_GSP.Status = ServiceControllerStatus.Running Then
                count = count + 1
                Wait &= "TLOGIN_GSP,"
            Else


            End If

            If TWORLD_GSP.Status = ServiceControllerStatus.Running Then
                count = count + 1
                Wait &= "TWORLD_GSP,"
            Else


            End If

            If TRELAY_GSP.Status = ServiceControllerStatus.Running Then
                count = count + 1
                Wait &= "TRELAY_GSP,"
            Else


            End If

            If TMAP_GSP.Status = ServiceControllerStatus.Running Then
                count = count + 1
                Wait &= "TMAP_GSP,"
            Else


            End If
            If count >= "1" Then
                Label1.Text = "Waiting For " + count + " to close:" + vbNewLine + Wait
                Return True
            Else
                stcheck = True
                Label1.Text = "services stopped!"
                Return False
            End If


        ElseIf stcheck = True Then
            Label1.Text = "services stopped!"
            Return False

        End If

    End Function
   
End Class

[AllCowsAreBurgers]

Originally Posted by [GA]Zero

Habe mich kurz dran gesetzt um es in Englisch zu übersetzen.

Wenn "AllCowsAreBurgers" will das ich es entferne werde ich dies tun.

Resource Code:

 Spoiler

Imports System.IO
Imports System.ServiceProcess


Public Class Form1

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

    End Sub
    Private Sub start()
        Label1.Text = "Services will be Started."
        ProgressBar1.Value = "50"
        Try
            Dim sc As New ServiceController("TCTRL_GSP")
            sc.Start()
        Catch
            MsgBox("Error!!" + vbNewLine + "TCTRL_GSP Can't Start .", MsgBoxStyle.Critical, "Error!")
        End Try
        ProgressBar1.Value = "58,33333"
        Try
            Dim sc As New ServiceController("TLOGIN_GSP")
            sc.Start()
        Catch
            MsgBox("Error!!" + vbNewLine + "TLOGIN_GSP Can't Start.", MsgBoxStyle.Critical, "Error!")
        End Try
        ProgressBar1.Value = "66,666666666"
        Try
            Dim sc As New ServiceController("TWORLD_GSP")
            sc.Start()
        Catch
            MsgBox("Error!!" + vbNewLine + "TWORLD_GSP Can't Start.", MsgBoxStyle.Critical, "Error!")
        End Try
        ProgressBar1.Value = "75"
        Try
            Dim sc As New ServiceController("TRELAY_GSP")
            sc.Start()
        Catch
            MsgBox("Error!!" + vbNewLine + "TRELAY_GSP Can't Start.", MsgBoxStyle.Critical, "Error!")
        End Try
        ProgressBar1.Value = "83,33333"
        Try
            Dim sc As New ServiceController("TMAP_GSP")
            sc.Start()
        Catch
            MsgBox("Error!!" + vbNewLine + "TMAP_GSP Can't Start.", MsgBoxStyle.Critical, "Error!")
        End Try
        ProgressBar1.Value = "91,666666633333"
        'Try
        'Dim sc As New ServiceController("TLOG0")
        'sc.Start()
        'Catch
        'MsgBox("Error!!" + vbNewLine + "TLOG0 Can't Start.", MsgBoxStyle.Critical, "Error!")
        'End Try
        ProgressBar1.Value = "100"
        Label1.Text = "Finish"
    End Sub
    Private Sub stops()
        Label1.Text = "Services will be stopped"
        Try
            Dim sc As New ServiceController("TCTRL_GSP")
            sc.Stop()
        Catch
        End Try
        Try
            Dim sc As New ServiceController("TLOGIN_GSP")
            sc.Stop()
        Catch
        End Try
        Try
            Dim sc As New ServiceController("TWORLD_GSP")
            sc.Stop()
        Catch
        End Try
        Try
            Dim sc As New ServiceController("TRELAY_GSP")
            sc.Stop()
        Catch
        End Try
        Try
            Dim sc As New ServiceController("TMAP_GSP")
            sc.Stop()
        Catch
        End Try
        Try
            Dim sc As New ServiceController("TLOG0")
            sc.Stop()
        Catch
        End Try

    
        ProgressBar1.Value = "25"
        Timer1.Start()
        If checkserviceon() = True Then
            Label1.Text = "Services on, press button..."
        ElseIf checkserviceon() = False Then
            Label1.Text = "Services off, starting..."


            start()
        End If
    End Sub
    
    Dim stcheck As Boolean = False


    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
      

    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Control.CheckForIllegalCrossThreadCalls = False
        BackgroundWorker1.RunWorkerAsync()

    End Sub

    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Call stops()
    End Sub

    Function checkserviceon()
        If stcheck = False Then


            Dim count As Integer
            Dim Wait As String = ""

            Dim TCTRL_GSP As New ServiceController("TCTRL_GSP")
            Dim TLOGIN_GSP As New ServiceController("TLOGIN_GSP")
            Dim TWORLD_GSP As New ServiceController("TWORLD_GSP")
            Dim TRELAY_GSP As New ServiceController("TRELAY_GSP")
            Dim TMAP_GSP As New ServiceController("TMAP_GSP")
            If TCTRL_GSP.Status = ServiceControllerStatus.Running Then
                count = count + 1
                Wait &= "TCTRL,"
            Else

            End If

            If TLOGIN_GSP.Status = ServiceControllerStatus.Running Then
                count = count + 1
                Wait &= "TLOGIN_GSP,"
            Else


            End If

            If TWORLD_GSP.Status = ServiceControllerStatus.Running Then
                count = count + 1
                Wait &= "TWORLD_GSP,"
            Else


            End If

            If TRELAY_GSP.Status = ServiceControllerStatus.Running Then
                count = count + 1
                Wait &= "TRELAY_GSP,"
            Else


            End If

            If TMAP_GSP.Status = ServiceControllerStatus.Running Then
                count = count + 1
                Wait &= "TMAP_GSP,"
            Else


            End If
            If count >= "1" Then
                Label1.Text = "Waiting For " + count + " to close:" + vbNewLine + Wait
                Return True
            Else
                stcheck = True
                Label1.Text = "services stopped!"
                Return False
            End If


        ElseIf stcheck = True Then
            Label1.Text = "services stopped!"
            Return False

        End If

    End Function
   
End Class

Is mir eig. eh egal, is open source, find ich aba trozdem unnötig, weils nur1 button is xD