[Release + Source Code]Server Starter und Closer

    • [Release + Source Code]Server Starter und Closer

      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]

    • Werbung zur Unterstützung des Forums ( Bitte AddBlocker deaktivieren )

    • Virustest?

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

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


      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 -

    • "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;54403 schrieb:

      [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 ...^^

    • Quellcode

      1. Module ServerStarter
      2. Private Sub WriteMessage(ByVal s As String)
      3. Console.ForegroundColor = ConsoleColor.Gray
      4. Console.WriteLine(s)
      5. Console.ForegroundColor = ConsoleColor.Cyan
      6. End Sub
      7. Private Sub EndProc(ByVal p As String)
      8. For Each a In Process.GetProcessesByName(p)
      9. a.Close()
      10. Next
      11. End Sub
      12. Private Sub ProcStart(ByVal p As String)
      13. If Process.GetProcessesByName(p).Length = 0 Then Process.Start(p & ".exe")
      14. End Sub
      15. Private Sub StartServer()
      16. ProcStart("1. Login Server") 'Login Server Beenden...falls der Server anders heißt den namen des servers eingeben
      17. ProcStart("2. Char Server") 'Login Server Beenden... falls der Server anders heißt den namen des servers eingeben
      18. ProcStart("3. World Server") 'World Server Beenden... falls der Server anders heißt den namen des servers eingeben
      19. WriteMessage("Die Server wurden gestartet")
      20. End Sub
      21. Public Sub StopServer()
      22. EndProc("1. Login Server")
      23. EndProc("2. Char Server")
      24. EndProc("3. World Server")
      25. WriteMessage("Die Server wurden Beendet")
      26. End Sub
      27. Sub Main()
      28. WriteMessage("Server Starter and Closer")
      29. While True
      30. Select Case Console.ReadLine
      31. Case "-s" : StartServer()
      32. Case "-b" : StopServer()
      33. Case "-h"
      34. Console.ForegroundColor = ConsoleColor.Gray 'Farbe ändern
      35. Console.Clear() 'Konsole Leeren
      36. Console.WriteLine("Server Starter Und Closer Hilfe") 'Text in Konsole Schreiben Console.WriteLine("") 'Text in Konsole Schreiben
      37. Console.WriteLine("Befehle:" & vbCrLf) 'Text in Konsole Schreiben
      38. Console.WriteLine("-s Startet alle Server") 'Text in Konsole Schreiben
      39. Console.WriteLine("-b Beendet alle Server") 'Text in Konsole Schreiben
      40. Console.WriteLine("-h Öffnet die Hilfe") 'Text in Konsole Schreiben
      41. Console.WriteLine("-c Beendet die Konsole") 'Text in Konsole Schreiben
      42. Console.WriteLine("-r Startet alle Server neu") 'Text in Konsole Schreiben
      43. Console.ForegroundColor = ConsoleColor.Cyan 'Farbe ändern
      44. Case "-c" : End
      45. Case "-r" 'Restart Server
      46. StopServer()
      47. StartServer()
      48. End Select
      49. End While
      50. End Sub
      51. End Module
      Alles anzeigen

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

    • [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.
      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:
      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]