Module Module1
Sub Main()
Console.ForegroundColor = ConsoleColor.Gray [COLOR="lime"]'Farbe ändern [/COLOR]
Console.WriteLine("Server Starter and Closer") [COLOR="lime"]'Text in Konsole Schreiben[/COLOR] Console.Title = "Server Starter and Closer" [COLOR="lime"]'Title setzen[/COLOR]
Console.ForegroundColor = ConsoleColor.Cyan [COLOR="lime"]'Farbe ändern[/COLOR]
While 1
Dim s As String = Console.ReadLine
If s = "-s" Then
Process.Start("1.Accountserver.exe") [COLOR="lime"]'1.Accountserver Server Beenden...falls der Server anders heißt den namen des servers eingeben [/COLOR]
Process.Start("2. Databaseserver.exe") [COLOR="lime"]'2.Databaseserver Beenden... falls der Server anders heißt den namen des servers eingeben [/COLOR]
Process.Start("3.CoreServer.exe")[COLOR="lime"] 'CoreServer Beenden... falls der Server anders heißt den namen des servers eingeben[/COLOR]
Process.Start("4.Certifier.exe")[COLOR="lime"] 'Certifier Beenden... falls der Server anders heißt den namen des servers eingeben[/COLOR]
Process.Start("5.LoginServer.exe")[COLOR="lime"] 'LoginServer Beenden... falls der Server anders heißt den namen des servers eingeben[/COLOR]
Process.Start("6.CacheServer.exe")[COLOR="lime"] 'CacheServer Beenden... falls der Server anders heißt den namen des servers eingeben[/COLOR]
Process.Start("7.WorldServer.exe")[COLOR="lime"] 'WorldServer Beenden... falls der Server anders heißt den namen des servers eingeben[/COLOR]
Console.ForegroundColor = ConsoleColor.Green
Console.WriteLine("Die Server wurden gestartet")
Console.ForegroundColor = ConsoleColor.Black
End If
If s = "-b" Then
For Each a In Process.GetProcessesByName("1.AccountServer.exe") [COLOR="lime"]'AccountServer Beenden... falls der Server anders heißt den namen des servers eingeben[/COLOR]
a.Close()
Next
For Each a In Process.GetProcessesByName("2.DatabaseServer.exe") [COLOR="lime"]'DatabaseServer Beenden... falls der Server anders heißt den namen des servers eingeben[/COLOR]
a.Close()
Next
For Each a In Process.GetProcessesByName("3.CoreServer.exe") [COLOR="lime"]'CoreServer Beenden... falls der Server anders heißt den namen des servers eingeben[/COLOR]
a.Close()
Next
For Each a In Process.GetProcessesByName("4.Certifier.exe") [COLOR="lime"]'Certifier Beenden... falls der Server anders heißt den namen des servers eingeben[/COLOR]
a.Close()
Next
For Each a In Process.GetProcessesByName("5.LoginServer.exe") [COLOR="lime"]'LoginServer Beenden... falls der Server anders heißt den namen des servers eingeben[/COLOR]
a.Close()
Next
For Each a In Process.GetProcessesByName("6.CacheServer.exe") [COLOR="lime"]'CacheServer Beenden... falls der Server anders heißt den namen des servers eingeben[/COLOR]
a.Close()
Next
For Each b In Process.GetProcessesByName("7. WorldServer.exe") [COLOR="lime"]'WorldServer Beenden...falls der Server anders heißt den namen des servers eingeben[/COLOR]
b.Close()
Next
Console.ForegroundColor = ConsoleColor.Green
Console.WriteLine("Die Server wurden Beendet")
Console.ForegroundColor = ConsoleColor.Black
End If
If s = "-h" Then
Console.ForegroundColor = ConsoleColor.Gray [COLOR="lime"]'Farbe ändern[/COLOR]
Console.Clear() [COLOR="lime"]'Konsole Leeren[/COLOR]
Console.WriteLine("Server Starter Und Closer Hilfe") [COLOR="lime"]'Text in Konsole Schreiben[/COLOR] Console.WriteLine("") 'Text in Konsole Schreiben
Console.WriteLine("Befehle:") 'Text in Konsole Schreiben
Console.WriteLine("") 'Text in Konsole Schreiben
Console.WriteLine("-s Startet alle Server") [COLOR="Lime"]'Text in Konsole [/COLOR]Schreiben
Console.WriteLine("") 'Text in Konsole Schreiben
Console.WriteLine("-b Beendet alle Server") [COLOR="lime"]'Text in Konsole [/COLOR]Schreiben
Console.WriteLine("") 'Text in Konsole Schreiben
Console.WriteLine("-h Öffnet die Hilfe") [COLOR="lime"]'Text in Konsole Schreiben[/COLOR]
Console.WriteLine("") 'Text in Konsole Schreiben
Console.WriteLine("-c Beendet die Konsole") [COLOR="lime"]'Text in Konsole [/COLOR]Schreiben
Console.WriteLine("") 'Text in Konsole Schreiben
Console.WriteLine("-r Bug Report") [COLOR="lime"]'Text in Konsole Schreiben[/COLOR]
End If
If s = "-c" Then
End
End If
If s = "-r" Then
Process.Start("mailto:[COLOR="lightblue"]MAIL ADDRESSE[/COLOR]")
End If
End While
End Sub
'Copyright 2009 by Hairichi & Time2Chill
End Module