[Release + Source Code]Server Starter und Closer

Hairichi

Hi

ich möchte euch meinen Server Startet und Closer vorstellen

das ganze läuft in einer konsolen anwendung in visual basic ab

befehle :

[FELD="-s"]Alle Server Starten[/FELD]
[FELD="-b"]Alle Server Beenden[/FELD]
[FELD="c"]Konsole Schließen[/FELD]
[FELD="-h"]Hilfe anzeigen (Darin sind nochmal alle Befehle anthalten[/FELD]
[FELD="-r"]Bugs Reporten[/FELD]

Source Code ( visual basic 2008 express edition )

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. Login Server.exe") [COLOR="lime"]'Login Server Beenden...falls der Server anders heißt den namen des servers eingeben [/COLOR]Process.Start("2. Char Server.exe") [COLOR="lime"]'Login Server Beenden... falls der Server anders heißt den namen des servers eingeben [/COLOR]Process.Start("3. World Server.exe")[COLOR="lime"] 'World Server 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. Login Server.exe") [COLOR="lime"]'Login Server Beenden... falls der Server anders heißt den namen des servers eingeben[/COLOR]
a.Close()

Next
For Each b In Process.GetProcessesByName("2. Char Server.exe") [COLOR="lime"]'Char Server Beenden...falls der Server anders heißt den namen des servers eingeben[/COLOR]
b.Close()

Next
For Each c In Process.GetProcessesByName("3. World Server.exe") [COLOR="lime"]'World Server Beenden... falls der Server anders heißt den namen des servers eingeben[/COLOR] c.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
End Module

[FELD="Download Link"]http://ul.to/mm3l5h[/FELD]

Sakumi

Virustest?

/Edit: hab ihn mal reingestellt, ist clean :)

Datei Server_Starter.exe empfangen 2009.12.06 16:10:29
Ergebnis: 0/41 (0%)

Zitat

Antivirus Version letzte aktualisierung Ergebnis
a-squared 4.5.0.43 2009.12.06 -
AhnLab-V3 5.0.0.2 2009.12.06 -
AntiVir 7.9.1.92 2009.12.05 -
Antiy-AVL 2.0.3.7 2009.12.04 -
Authentium 5.2.0.5 2009.12.02 -
Avast 4.8.1351.0 2009.12.06 -
AVG 8.5.0.426 2009.12.06 -
BitDefender 7.2 2009.12.06 -
CAT-QuickHeal 10.00 2009.12.05 -
ClamAV 0.94.1 2009.12.06 -
Comodo 3103 2009.12.01 -
DrWeb 5.0.0.12182 2009.12.06 -
eSafe 7.0.17.0 2009.12.06 -
eTrust-Vet 35.1.7159 2009.12.04 -
F-Prot 4.5.1.85 2009.12.05 -
F-Secure 9.0.15370.0 2009.12.03 -
Fortinet 4.0.14.0 2009.12.06 -
GData 19 2009.12.06 -
Ikarus T3.1.1.74.0 2009.12.06 -
Jiangmin 13.0.900 2009.12.02 -
K7AntiVirus 7.10.912 2009.12.05 -
Kaspersky 7.0.0.125 2009.12.06 -
McAfee 5824 2009.12.06 -
McAfee+Artemis 5824 2009.12.06 -
McAfee-GW-Edition 6.8.5 2009.12.06 -
Microsoft 1.5302 2009.12.06 -
NOD32 4664 2009.12.06 -
Norman 6.03.02 2009.12.05 -
nProtect 2009.1.8.0 2009.12.06 -
Panda 10.0.2.2 2009.12.06 -
PCTools 7.0.3.5 2009.12.05 -
Prevx 3.0 2009.12.06 -
Rising 22.24.06.04 2009.12.06 -
Sophos 4.48.0 2009.12.06 -
Sunbelt 3.2.1858.2 2009.12.05 -
Symantec 1.4.4.12 2009.12.06 -
TheHacker 6.5.0.2.086 2009.12.05 -
TrendMicro 9.100.0.1001 2009.12.06 -
VBA32 3.12.12.0 2009.12.03 -
ViRobot 2009.12.4.2072 2009.12.04 -
VirusBuster 5.0.21.0 2009.12.05 -

Alles anzeigen

HEaRiX

Source is doch dabei lol...

LG

Sakumi

o_O

wurd bei mir nicht angezeigt

Hairichi

Zitat

o_O
wurd bei mir nicht angezeigt

musste auf Show Spoiler drücken XD

Picdos

ganz schönes kleines programmm ;D^^ finde jedoch das sollte man auch so können;D

Time2Chill

Source Code ( visual basic 2008 express edition ) - Erweitert !!!!!!

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

Währe das dann der Code, für Offi FIles? xD

Hab mal bissl RUmprobiert *gg* xD

Hab kein Visual Basic 2008 deshalb weis ich nicht, obs geht ^^

xSayHellox

[FONT="Tahoma"][COLOR="DarkOrange"][SIZE="2"]Ich hab mir das nicht genauer Angeschaut XD , aber ein Starter für die Caali Files zu machen ist bisschen zu spät :D
Naja die Version von Time2Chill müsste eig funktionieren , wenn ich da nix übersehen habe :D[/SIZE][/COLOR][/FONT]

Time2Chill

Zitat von xSayHellox;54403

[FONT="Tahoma"][COLOR="DarkOrange"][SIZE="2"]Ich hab mir das nicht genauer Angeschaut XD , aber ein Starter für die Caali Files zu machen ist bisschen zu spät :D
Naja die Version von Time2Chill müsste eig funktionieren , wenn ich da nix übersehen habe :D[/SIZE][/COLOR][/FONT]

Ich hoffe mal xD weil war eig. nur Logisches Denken ...^^

Sakumi

Zitat von Hairichi;54398

musste auf Show Spoiler drücken XD

Dumm bin ich net aber die Spoiler werden bei mir nicht geöffnet!

Time2Chill

Zitat von Sakumi;54413

Dumm bin ich net aber die Spoiler werden bei mir nicht geöffnet!

Anderer Browser ?!?

Hairichi

@ Sakumi : Wie mans nimmt :P
@xSayHelloy : welche neue version? :o
wurden doch nur die namen der server geändert wies hinter dem [COLOR="Yellow"]'[/COLOR] steht :D

~Hairichi

kyraa

Code

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

Alles anzeigen

Hab das ganze mal schnell überarbeitet (konntes aber noch nich testen :P) .. vllt kanns noch jmd gebrauchen

g0dskeks

[FONT="Comic Sans MS"][COLOR="Cyan"][SIZE="2"][COLOR="Cyan"]Ich würde mal nen Tipp geben:
Dort wo die Server gestartet werden(ProcStart("Name....")) einen Sleep von mind. 500ms zu machen...
Sonst könnte es sein das es fehler beim starten gibt.
Bei Offi Files kann man den eig. auch noch nutzen nur muss man dann die Sleeps höher machen(z.B. beim Trans Server einen Sleep von mind. 2-3Sekunden(2000-3000ms))
Aber sonst sollte er eig. klappen...
Würds ja gerne für euch testen usw. aber hab keine Caali/Offi Files mehr aufm PC.
Und was mir gerade noch auffällt ist folgendes:
Undzwar wo die Server gestartet werden.

Zitat

Private Sub StartServer()
ProcStart("1. Login Server.exe") 'Login Server Beenden...falls der Server anders heißt den namen des servers eingeben
ProcStart("2. Char Server.exe") 'Login Server Beenden... falls der Server anders heißt den namen des servers eingeben
ProcStart("3. World Server.exe") 'World Server Beenden... falls der Server anders heißt den namen des servers eingeben
WriteMessage("Die Server wurden gestartet")
End Sub

Sollte es nicht heißen:

Zitat

Private Sub StartServer()
ProcStart("1. Login Server.exe") 'Login Server Starten...falls der Server anders heißt den namen des servers eingeben
ProcStart("2. Char Server.exe") 'Char Server Starten... falls der Server anders heißt den namen des servers eingeben
ProcStart("3. World Server.exe") 'World Server Starten... falls der Server anders heißt den namen des servers eingeben
WriteMessage("Die Server wurden gestartet")
End Sub

Naja Auskommentierungen sind ja auch eig. nicht wichtig. Wichtigste ist der Code allgemein :)[/COLOR][/SIZE][/COLOR][/FONT]

kyraa

ich hab auch vergessen die ganzen ".exe"s beim aufruf von endproc und startproc zu entfernen .. naja war schnell ausm kopf programmiert also isses kein wunder wenn fehler auftauchen

HEaRiX

Man könnte das sogar mit Pfaden machen, die dann in ne Ini speichern und beim start auslesen :x

LG

Hairichi

achne XD
es gibt codes die sind schwer ( nich für leute ohne vb kentnisse ) und es gibt leichte ( die man auch so versteht :D )

[Release + Source Code]Server Starter und Closer

Jetzt mitmachen!

SCHNELLZUGRIFF

HILFE & COMMUNITY

RECHTLICHES