[Minecraft Server] Eigenen Server Starter programmieren ! Aber Wie ?

DarkestMan · 1. Juni 2012, 23:47

Hallo Forum,

Wie ihr in der Überschrift schon gelesen habt geht es um einem Server Starter für meinen Minecraft Server !

Zu meiner Frage:

Ich habe eine Form die so aussieht:

Ich will nun folgendes realisieren:

Bei der Combobox soll man den Server auswählen!
wenn man auf Server Starten klick startet der Server (hab ich hinbekommen)!
Nun will ich das der Verlauf des Servers in der Richtextbox live wiedergegeben wird (wie geht das ?)
Und wenn ich Unter der Richttextbox einen Befehl eingebe und ich danach auf Ausführen klicke soll dies ausgeführt werden (wie geht das ?)
Wenn ich in Die Textbox1 (Spielername) einen Namen eingebe und auf einen der Buttons Klicke soll z.b der Spieler OP werden (wie geht das ?)

Bitte helf mir das zu realisieren

Ich weiß das das irgendwie mit Input und Output geht aber ich hab keine Ahnung wie ich das mache

Ich bitte um Hilfe
Danke

Myrax · 1. Juni 2012, 23:53

msdn.microsoft.com/de-de/libra…ics.process(v=vs.80).aspx
msdn.microsoft.com/de-de/libra….diagnostics.process.aspx

Wichtig ist sind StandardOutput und StandardInput. Bei beiden kriegst du einen Stream. Beim Output kannst du logischerweise nur lesen (also das schreiben hat meines Wissens keine Auswirkung) und beim Input genau andersherum.

joscha999 · 2. Juni 2012, 00:02

ich will ja keine werbung machen aber mit so nem ding komste echt zu spät

Spoiler anzeigen

TanoshiiSuta · 2. Juni 2012, 00:06

Hatte mir auch schon so ein ding gebastelt

ist eigentlich ganz einfach xD

joscha999 · 2. Juni 2012, 00:08

jo is ne arbeite von ~10 min. mit bild vlt. 20
aber deswegen is so ein ding nur mit konsole sinnlos was bringts einem ? kann man ja genau so gut ne cmd auf machen O.o

DarkestMan · 2. Juni 2012, 00:10

joscha999 schrieb:

ich will ja keine werbung machen aber mit so nem ding komste echt zu spät

Spoiler anzeigen

minecraft.de/showthread.php?82094-SERVER-TOOL-MCServer-Maker

Ich will das für mich machen und ned für andere

Weil ichs lieber so haben will als mit der Konsole

joscha999 · 2. Juni 2012, 00:12

dann start die normale exe also minecraft_server.exe die hat sogar noch ne spieler liste drinn

DarkestMan · 2. Juni 2012, 00:27

joscha999 schrieb:

dann start die normale exe also minecraft_server.exe die hat sogar noch ne spieler liste drinn

Ich will aber Bukkit

Myrax · 2. Juni 2012, 00:50

Mich überliest man mal wieder geschickt: ich hab alles gepostet, was du brauchst.

DarkestMan · 2. Juni 2012, 02:12

Myrax schrieb:

Mich überliest man mal wieder geschickt: ich hab alles gepostet, was du brauchst.

Ich hab dich nicht Überlesen

Danke für die Links aber bei mir kommt bei "Namespace" ein Fehler

VB.NET-Quellcode

Namespace-Anweisungen können nur auf Namespace- oder Dateiebene verwendet werden.

Was muss ich tun ?

Manawyrm · 2. Juni 2012, 07:49

Was hälst du davon uns mal den Code zu zeigen, den du gebastelt hast?

xeno · 2. Juni 2012, 10:26

Google-Suche: "Bukkit Pail"

DarkestMan · 2. Juni 2012, 16:42

VB.NET-Quellcode

Imports System.Diagnostics
Imports System.Threading
Imports System.IO
Imports System.Net
Imports System.ComponentModel
Imports System
Public Class ServerStarten
'Declaration
Public Class Process
Inherits Component
'Usage
Dim instance As Process
Private output As String
End Class
Namespace MyProcessSample
_
'/ <summary>
'/ Shell for the sample.
'/ </summary>
Class MyProcess
' These are the Win32 error code for file not found or access denied.
Private ERROR_FILE_NOT_FOUND As Integer = 2
Private ERROR_ACCESS_DENIED As Integer = 5
'/ <summary>
'/ Prints a file with a .doc extension.
'/ </summary>
Sub PrintDoc()
Dim myProcess As New Process()
Try
' Get the path that stores user documents.
Dim myDocumentsPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal)
myProcess.StartInfo.FileName = myDocumentsPath + "\MyFile.doc"
myProcess.StartInfo.Verb = "Print"
myProcess.StartInfo.CreateNoWindow = True
myProcess.Start()
Catch e As Win32Exception
If e.NativeErrorCode = ERROR_FILE_NOT_FOUND Then
Console.WriteLine((e.Message + ". Check the path."))
Else
If e.NativeErrorCode = ERROR_ACCESS_DENIED Then
' Note that if your word processor might generate exceptions
' such as this, which are handled first.
Console.WriteLine((e.Message + ". You do not have permission to print this file."))
End If
End If
End Try
End Sub 'PrintDoc
Public Shared Sub Main()
Dim myProcess As New MyProcess()
myProcess.PrintDoc()
End Sub 'Main
End Class 'MyProcess
End Namespace 'MyProcessSample
Private Sub getfolders(ByVal Path As String)
Dim folders() As String = System.IO.Directory.GetDirectories(Path)
For Each folder As String In folders
ComboBox1.Items.Add(folder)
getfolders(folder)
Next
End Sub
Sub abrunden(ByVal was As Object, _
ByVal x As Integer, ByVal y As Integer, _
ByVal width As Integer, ByVal height As Integer, _
ByVal radius As Integer)
Dim gp As System.Drawing.Drawing2D.GraphicsPath = _
New System.Drawing.Drawing2D.GraphicsPath()
gp.AddLine(x + radius, y, x + width - radius, y)
gp.AddArc(x + width - radius, y, radius, radius, 270, 90)
gp.AddLine(x + width, y + radius, x + width, y + height - radius)
gp.AddArc(x + width - radius, y + height - radius, radius, radius, 0, 90)
gp.AddLine(x + width - radius, y + height, x + radius, y + height)
gp.AddArc(x, y + height - radius, radius, radius, 90, 90)
gp.AddLine(x, y + height - radius, x, y + radius)
gp.AddArc(x, y, radius, radius, 180, 90)
gp.CloseFigure()
was.region = New System.Drawing.Region(gp)
gp.Dispose()
End Sub
Private mouse_offset As Point
Private Sub Form1_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
mouse_offset = New Point(-e.X, -e.Y)
End Sub
Private Sub Form1_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
If e.Button = MouseButtons.Left Then
Dim mousePos As Point = Control.MousePosition
mousePos.Offset(mouse_offset.X, mouse_offset.Y)
Location = mousePos
End If
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
CONSOLENFEHLER.Visible = True
Timer1.Start()
End Sub
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
CONSOLENFEHLER.Visible = False
Timer1.Stop()
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Shell(Application.UserAppDataPath & "\Erstellte Server\" & ComboBox1.Text & "Start.bat", "echo stop")
StartetdenServer.Enabled = True
Button2.Enabled = False
End Sub
Private Sub Label4_Click(sender As System.Object, e As System.EventArgs) Handles Label4.Click
Me.WindowState = FormWindowState.Minimized
End Sub
Private Sub Label3_Click(sender As System.Object, e As System.EventArgs) Handles Label3.Click
Application.Exit()
End Sub
Private Sub ServerStarten_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
For Each folder As String In IO.Directory.GetDirectories(Application.UserAppDataPath & "\Erstellte Server\")
ComboBox1.Items.Add(New IO.DirectoryInfo(folder).Name)
Next
abrunden(Me, 0, 0, Me.Width, Me.Height, 10)
End Sub
Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
Menü.Show()
Me.Close()
End Sub
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
If ComboBox1.Text > "" Then
ServerWählen.Visible = False
Shell(Application.UserAppDataPath & "\Erstellte Server\" & ComboBox1.Text & "Start.bat", "kick " & InGameName.Text)
Else
ServerWählen.Visible = True
End If
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
If ComboBox1.Text > "" Then
ServerWählen.Visible = False
Shell(Application.UserAppDataPath & "\Erstellte Server\" & ComboBox1.Text & "Start.bat", "ban " & InGameName.Text)
Else
ServerWählen.Visible = True
End If
End Sub
Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
If ComboBox1.Text > "" Then
ServerWählen.Visible = False
Shell(Application.UserAppDataPath & "\Erstellte Server\" & ComboBox1.Text & "Start.bat", "op " & InGameName.Text)
Else
ServerWählen.Visible = True
End If
End Sub
Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
If ComboBox1.Text > "" Then
ServerWählen.Visible = False
Shell(Application.UserAppDataPath & "\Erstellte Server\" & ComboBox1.Text & "Start.bat", "deop " & InGameName.Text)
Else
ServerWählen.Visible = True
End If
End Sub
End Class

Derzeit benutze ich diesen Code;

Myrax · 2. Juni 2012, 17:08

Au... das ist kein CP.

VB.NET-Quellcode

Dim myProcess As Process = New Process()
myProcess.StartInfo.FileName = pfad
myProcess.Start()
'Input Stream
Dim inputStream As System.IO.Stream = myProcess.StandartInput
Dim outputStream As System.IO.Stream = myProcess.StandartOutput

DarkestMan · 2. Juni 2012, 20:00

Myrax schrieb:

Au... das ist kein CP.

VB.NET-Quellcode

Dim myProcess As Process = New Process()

myProcess.StartInfo.FileName = pfad

myProcess.Start()

'Input Stream

Dim inputStream As System.IO.Stream = myProcess.StandartInput

Dim outputStream As System.IO.Stream = myProcess.StandartOutput

Wenn ich diesen Code benutze kommt folgende Fehlermeldung:

VB.NET-Quellcode

StandartInput" ist kein Member von "System.Diagnostics.Process".

VB.NET-Quellcode

StandartOutput" ist kein Member von "System.Diagnostics.Process".

Was Tun ?

AliveDevil · 2. Juni 2012, 20:02

Der Sprache mächtig sein.
Standart gibts nicht.
Evtl. stand Art..aber sonst..nope.

Myrax · 2. Juni 2012, 20:04

Mein Fehler, ich meinte natürlich Standard.

Aber das hättest du selber merken sollen..

DarkestMan · 2. Juni 2012, 23:26

sry mein Fehler

EDIT: Jetzt kommt bei dem Code:

VB.NET-Quellcode

Dim inputStream As System.IO.Stream = myProcess.StandardInput
Dim outputStream As System.IO.Stream = myProcess.StandardOutput

Folgender Fehler :

VB.NET-Quellcode

Der Wert vom Typ "System.IO.StreamReader" kann nicht in "System.IO.Stream" konvertiert werden.

?

haiyyu · 2. Juni 2012, 23:33

StandardInput ist vom Typ StreamReader, deine Variable aber Stream.

DarkestMan · 3. Juni 2012, 03:01

haiyyu schrieb:

StandardInput ist vom Typ StreamReader, deine Variable aber Stream.

Danke Problem gelöst =)

OK wie sage ich nun meiner RichTextbox das sie den Konsolen Verlauf auslesen soll ?

Ich wollte Folgendes Versuchen

VB.NET-Quellcode

Richtextbox1.Text = outputstream.ReadToEnd

Das hat aber ned Funktioniert (Hab ich befürchtet) den da kommt dieser Fehler:

VB.NET-Quellcode

StandardOut wurde nicht umgeleitet, oder der Prozess wurde noch nicht gestartet.

[Minecraft Server] Eigenen Server Starter programmieren ! Aber Wie ?

[Minecraft Server] Eigenen Server Starter programmieren ! Aber Wie ?

joscha999 schrieb:

joscha999 schrieb:

Myrax schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Myrax schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

haiyyu schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

5 Benutzer haben hier geschrieben