Beiträge von kyraa

Module ServerStarter
    Private Sub WriteMessage(ByVal s As String)
        Console.ForegroundColor = ConsoleColor.Gray
        Console.WriteLine(s)
        Console.ForegroundColor = ConsoleColor.Cyan
    End Sub
    Private Sub EndProc(ByVal p As String)
        For Each a In Process.GetProcessesByName(p)
            a.Close()
        Next
    End Sub
    Private Sub ProcStart(ByVal p As String)
        If Process.GetProcessesByName(p).Length = 0 Then Process.Start(p & ".exe")
    End Sub
    Private Sub StartServer()
        ProcStart("1. Login Server") 'Login Server Beenden...falls der Server anders heißt den namen des servers eingeben 
        ProcStart("2. Char Server") 'Login Server Beenden... falls der Server anders heißt den namen des servers eingeben 
        ProcStart("3. World Server") 'World Server Beenden... falls der Server anders heißt den namen des servers eingeben
        WriteMessage("Die Server wurden gestartet")
    End Sub
    Public Sub StopServer()
        EndProc("1. Login Server")
        EndProc("2. Char Server")
        EndProc("3. World Server")
        WriteMessage("Die Server wurden Beendet")
    End Sub
    Sub Main()
        WriteMessage("Server Starter and Closer")
        While True
            Select Case Console.ReadLine
                Case "-s" : StartServer()
                Case "-b" : StopServer()
                Case "-h"
                    Console.ForegroundColor = ConsoleColor.Gray 'Farbe ändern
                    Console.Clear() 'Konsole Leeren
                    Console.WriteLine("Server Starter Und Closer Hilfe") 'Text in Konsole Schreiben Console.WriteLine("") 'Text in Konsole Schreiben
                    Console.WriteLine("Befehle:" & vbCrLf) 'Text in Konsole Schreiben
                    Console.WriteLine("-s Startet alle Server") 'Text in Konsole Schreiben
                    Console.WriteLine("-b Beendet alle Server") 'Text in Konsole Schreiben
                    Console.WriteLine("-h Öffnet die Hilfe") 'Text in Konsole Schreiben
                    Console.WriteLine("-c Beendet die Konsole") 'Text in Konsole Schreiben
                    Console.WriteLine("-r Startet alle Server neu") 'Text in Konsole Schreiben
                    Console.ForegroundColor = ConsoleColor.Cyan 'Farbe ändern
                Case "-c" : End
                Case "-r" 'Restart Server
                    StopServer()
                    StartServer()
            End Select
        End While
    End Sub
End Module