[Release] Service (Re-)Starter

09/13/2013 17:40 AllCowsAreBurgers#1

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:
[Only registered and activated users can see links. Click Here To Register...]
Source (K�nnt ihr wenn ihr wollt selbst compilen, ich hab nix dagegen):

Spoiler

Code:

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: [Only registered and activated users can see links. Click Here To Register...]
1/47 : virenscanner k�nnen auch mal irren :)
Kleine anmerkung am rande: Nicht schnell hintereinander den button dr�cken, sonst kommen viele errors raus ;)

09/13/2013 17:46 AZB TPT OhSorrY#2

Virus Total?

Screens?

09/13/2013 17:48 stotterer09#3

er hat ein source gepostet das is besser als jeden vt

09/13/2013 17:49 AllCowsAreBurgers#4

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

09/13/2013 17:54 AZB TPT OhSorrY#5

Quote:

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 :(^^

09/13/2013 17:57 SkillartzHD#6

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:

Quote:

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

09/13/2013 18:04 AllCowsAreBurgers#7

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

09/13/2013 19:14 jibi1996#8

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?

09/13/2013 19:22 AllCowsAreBurgers#9

Quote:

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.

09/13/2013 20:21 AZB TPT OhSorrY#10

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

Code:

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

09/13/2013 20:57 AllCowsAreBurgers#11

Quote:

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

Code:

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