Minecraft Server

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von VincentTB.

    Vielleicht hilft dir ja das weiter:

    VB.NET-Quellcode

    1. Option Strict On
    3. 'StartServer("C:\Program Files (x86)\Java\jre7\bin\java.exe", "-Xmx1024M -Xms1024M -jar craftbukkit.jar -nojline")
    5. ''' <summary>
    6. ''' Startet und Verwaltet einen Konsolenbasierenden Server
    7. ''' </summary>
    8. ''' <remarks></remarks>
    9. Public Class ServerManager : Inherits ComponentModel.Component
    11. #Region "Declarations"
    13. ''' <summary>
    14. ''' Gibt ausgaben der Konsole aus
    15. ''' </summary>
    16. ''' <param name="sOutput">Ausgabe</param>
    17. ''' <remarks></remarks>
    18. Event OutputChanged(ByVal sOutput As String)
    20. ''' <summary>
    21. ''' Server gestartet
    22. ''' </summary>
    23. ''' <remarks></remarks>
    24. Event ServerStarted()
    26. ''' <summary>
    27. ''' Server am starten
    28. ''' </summary>
    29. ''' <remarks></remarks>
    30. Event ServerStarting()
    32. ''' <summary>
    33. ''' Server beendet
    34. ''' </summary>
    35. ''' <remarks></remarks>
    36. Event ServerClosed()
    38. Public ConsolenManager As System.IO.StreamWriter
    39. WithEvents p As New Process()
    40. Friend isRunning As Boolean = False
    42. #End Region
    44. ''' <summary>
    45. ''' Startet eine neue Instanz eines Konsolen-Servers
    46. ''' </summary>
    47. ''' <param name="FileName">Serverdatei</param>
    48. ''' <param name="Arguments">Startargumente</param>
    49. ''' <remarks></remarks>
    50. Public Sub StartServer(ByVal FileName As String, Optional ByVal Arguments As String = "")
    51. RaiseEvent ServerStarting()
    52. p.StartInfo.FileName = FileName
    53. p.StartInfo.Arguments = Arguments
    54. p.StartInfo.RedirectStandardError = True
    55. p.StartInfo.RedirectStandardInput = True
    56. p.StartInfo.RedirectStandardOutput = True
    57. p.StartInfo.CreateNoWindow = True
    58. p.StartInfo.UseShellExecute = False
    59. p.Start()
    60. p.BeginErrorReadLine()
    61. p.BeginOutputReadLine()
    62. ConsolenManager = p.StandardInput
    63. RaiseEvent ServerStarted()
    64. End Sub
    66. Private Sub p_OutputDataReceived(ByVal sender As Object, ByVal e As DataReceivedEventArgs) Handles p.OutputDataReceived
    67. RaiseEvent OutputChanged(e.Data)
    68. End Sub
    70. Private Sub p_ErrorDataReceived(ByVal sender As Object, ByVal e As DataReceivedEventArgs) Handles p.ErrorDataReceived
    71. RaiseEvent OutputChanged(e.Data)
    72. End Sub
    74. Private Sub p_exited(ByVal sender As Object, ByVal e As System.EventArgs) Handles p.Exited
    75. RaiseEvent ServerClosed()
    76. End Sub
    78. ''' <summary>
    79. ''' Führt einen Befehl in der Konsole des Server aus
    80. ''' </summary>
    81. ''' <param name="sCommand">Befehl der ausgeführt werden soll</param>
    82. ''' <remarks></remarks>
    83. Public Sub runCommand(ByVal sCommand As String)
    84. If isRunning = True Then
    85. ConsolenManager.WriteLine(sCommand)
    86. Else
    87. MsgBox("Befehl konnte nicht ausgeführt werden, da keine Instanz eines Server gestartet ist", MsgBoxStyle.OkOnly, "Fehler")
    88. End If
    89. End Sub
    91. ''' <summary>
    92. ''' Stoppt die laufende Instanz des Servers
    93. ''' </summary>
    94. ''' <remarks></remarks>
    95. Public Sub killServer()
    96. If isRunning = True Then
    97. p.Kill()
    98. isRunning = False
    99. Else
    100. MsgBox("Server konnte nicht gestoppt werden, da keine laufende Instanz besteht", MsgBoxStyle.OkOnly, "Fehler")
    101. End If
    102. End Sub
    104. End Class


    :D

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Mario K.“ ()