从Java.exe到vb.net的实时提要

从Java.exe到vb.net的实时提要,java,vb.net,visual-studio-2010,web-services,Java,Vb.net,Visual Studio 2010,Web Services,我正在尝试为minecraft服务器制作前端 我正在尝试将来自java.exe的提要放入文本框中。但是,当我这样做的时候,我得到了前2行的提要,然后它就停止了,有人知道为什么吗 If Not System.IO.File.Exists(txtServerLocation.Text + "\" + ServerFileName) Then frmDownloader.Show() wbcDownload.DownloadFile("https://s3.a

我正在尝试为minecraft服务器制作前端

我正在尝试将来自java.exe的提要放入文本框中。但是,当我这样做的时候,我得到了前2行的提要,然后它就停止了,有人知道为什么吗

    If Not System.IO.File.Exists(txtServerLocation.Text + "\" + ServerFileName) Then

        frmDownloader.Show()
        wbcDownload.DownloadFile("https://s3.amazonaws.com/MinecraftDownload/launcher/minecraft_server.jar?", txtServerLocation.Text + "\" + ServerFileName)
        frmDownloader.Close()
    End If
    Me.txtConsole.Text = String.Empty
    Dim pi As New System.Diagnostics.Process()
    With pi.StartInfo
        .FileName = "C:\Program Files (x86)\Java\jre6\bin\java.exe"
        .WindowStyle = ProcessWindowStyle.Normal
        .UseShellExecute = False
        .RedirectStandardOutput = True
        .RedirectStandardInput = True
        .CreateNoWindow = True
        .Arguments = "-Xmx" + nudAllocatedRam.Value.ToString + "M -Xms" + nudAllocatedRam.Value.ToString + "M -jar " + ServerFileName ' + " nogui"
    End With
    pi.Start()
    While (pi.HasExited = False)
        Dim sLine As String = pi.StandardOutput.ReadLine
        If (Not String.IsNullOrEmpty(sLine)) Then
            Me.txtConsole.Text &= sLine & vbCrLf
        End If
        Application.DoEvents()
    End While