Private _process As Process = Nothing
Dim psi As New ProcessStartInfo()
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'启动cmd.exe
psi.FileName = "cmd.exe"
psi.Arguments = "/c @ECHO OFF && ""C:\Program Files (x86)\Java\jre7\bin\java.exe"" -Xmx1024M -Xms1024M -jar cauldron-1.7.10-1.1240.06.213-server.jar"
psi.UseShellExecute = False
psi.RedirectStandardOutput = True
psi.CreateNoWindow = True
_process = New Process()
_process.StartInfo = psi
' 定义接收消息的Handler
AddHandler _process.OutputDataReceived, New DataReceivedEventHandler(AddressOf Process1_OutputDataReceived)
_process.Start()
' 开始接收
_process.BeginOutputReadLine()
End Sub
Private Delegate Sub AddMessageHandler(ByVal msg As String)
Private Sub Process1_OutputDataReceived(ByVal sender As Object, ByVal e As System.Diagnostics.DataReceivedEventArgs) Handles Process1.OutputDataReceived
Dim handler As AddMessageHandler = Function(msg As String)
Me.TextBox1.Text += msg + Environment.NewLine
Me.TextBox1.[Select](Me.TextBox1.Text.Length - 1, 0)
Me.TextBox1.ScrollToCaret()
End Function
If Me.TextBox1.InvokeRequired Then
Me.TextBox1.Invoke(handler, e.Data)
End If
End Sub
通过百度找到怎么获取内容了
但我想想里面发送help怎么办？
点启动之后，进程里会有一个windows 命令处理程序

出门左转VB吧

向输入缓冲区写文字就行了。
--来自相机+平板电脑+手机融合成的的Lumia 1520

你自己写了重定向stdin，但不知道那句的作用？
--来自相机+平板电脑+手机融合成的的Lumia 1520

1.7.10

看这样子像是1.7.10的开服器
我现在在做1.8的

额，
lz
，没搞懂。能把源代码发给我看看吗？