Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        'MySQL Datenbank Server
        Dim mysqld As String = "mysqld"
        Dim mysql_b As Boolean = CheckProcessIsRun(mysqld)
        If mysql_b Then
            Label5.Text = "Online"
            Label5.ForeColor = Color.Green
        Else
            Label5.Text = "Offline"
            Label5.ForeColor = Color.Red()
 
            Dim mysqld_oprocess As New Process
            With mysqld_oprocess.StartInfo
                .FileName = "mysqlserver51/bin/mysqld.exe"
                .WindowStyle = ProcessWindowStyle.Hidden
            End With
            mysqld_oprocess.Start()
            'Dim mysqlserver As System.Diagnostics.Process = 
            ' System.Diagnostics.Process.Start("mysqlserver51/bin/mysqld.exe")
        End If
 
        'Apache Webserver
        Dim httpd As String = "httpd"
        Dim httpd_b As Boolean = CheckProcessIsRun(httpd)
        If httpd_b Then
            Label6.Text = "Online"
            Label6.ForeColor = Color.Green
        Else
            Label6.Text = "Offline"
            Label6.ForeColor = Color.Red()
 
            Dim httpd_oprocess As New Process
            With httpd_oprocess.StartInfo
                .FileName = "apache22/bin/httpd.exe"
                .WindowStyle = ProcessWindowStyle.Hidden
            End With
            httpd_oprocess.Start()
            'Dim httpd_server As System.Diagnostics.Process = 
            ' System.Diagnostics.Process.Start("apache22/bin/httpd.exe")
        End If
 
        'Logon Server
        Dim authserver As String = "authserver"
        Dim authserver_b As Boolean = CheckProcessIsRun(authserver)
        If authserver_b Then
            Label4.Text = "Online"
            Label4.ForeColor = Color.Green
        Else
            Label4.Text = "Offline"
            Label4.ForeColor = Color.Red()
 
            Dim authserver_oprocess As New Process
            With authserver_oprocess.StartInfo
                .UseShellExecute = False
                .FileName = "core/authserver.exe"
                .Arguments = "-c core/authserver.conf"
                .CreateNoWindow = True
                .RedirectStandardOutput = True
            End With
            authserver_oprocess.Start()
            Dim authserver_output = _
              authserver_oprocess.StandardOutput.ReadToEnd()
            logonserverauslesen.TextBox1.Text = (authserver_output)
            'Dim httpd_server As System.Diagnostics.Process = 
            ' System.Diagnostics.Process.Start("core/authserver.exe")
        End If
 
        'worldserver Server
        Dim worldserver As String = "worldserver"
        Dim worldserver_b As Boolean = CheckProcessIsRun(worldserver)
        If worldserver_b Then
            Label7.Text = "Online"
            Label7.ForeColor = Color.Green
        Else
            Label7.Text = "Offline"
            Label7.ForeColor = Color.Red()
 
            Dim worldserver_oprocess As New Process
            With worldserver_oprocess.StartInfo
                .FileName = "core/worldserver.exe"
                .Arguments = "-c core/worldserver.conf"
                .WindowStyle = ProcessWindowStyle.Hidden
            End With
            worldserver_oprocess.Start()
            'Dim httpd_server As System.Diagnostics.Process = 
            ' System.Diagnostics.Process.Start("core/worldserver.exe")
        End If
    End Sub

    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles PictureBox2.Click
        'Timer allge. Stoppen
        Timer1.Stop()
 
        'worldserver stoppen
        For Each worldserver_core In _
          System.Diagnostics.Process.GetProcessesByName("worldserver")
            worldserver_core.Kill()
        Next
        Label7.Text = "Offline"
        Label7.ForeColor = Color.Red()
 
        'authserver stoppen
        For Each authserver_core In _
          System.Diagnostics.Process.GetProcessesByName("authserver")
            authserver_core.Kill()
        Next
        Label4.Text = "Offline"
        Label4.ForeColor = Color.Red()
 
        'mySQL Server Stoppen
        For Each mysqlserver In System.Diagnostics.Process.GetProcessesByName( _
          "mysqld")
            mysqlserver.Kill()
        Next
        Label5.Text = "Offline"
        Label5.ForeColor = Color.Red()
 
        'apache webserber stoppen
        For Each httpdserver In System.Diagnostics.Process.GetProcessesByName( _
          "httpd")
            httpdserver.Kill()
        Next
        Label6.Text = "Offline"
        Label6.ForeColor = Color.Red()
    End Sub