Public Delegate Sub InvokeWithString(ByVal text As String)
 
Private Sub Core_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  Dim systemencoding As System.Text.Encoding = System.Text.Encoding.GetEncoding( _
    Globalization.CultureInfo.CurrentUICulture.TextInfo.OEMCodePage)
 
  Dim startInfo As New ProcessStartInfo
  With startInfo
    .FileName = "rtmpdump.exe"
    .Arguments = "-v -r " & currentStreamer & " -y " & currentServerFile & " -o" & _
      "" & currentLocalFile & ".flv"
    .UseShellExecute = False
    .RedirectStandardError = True
    .RedirectStandardOutput = True
    .RedirectStandardInput = True
    .CreateNoWindow = True
    .StandardOutputEncoding = systemencoding
    .StandardErrorEncoding = systemencoding
  End With
 
  Dim rtmpdump As New Process With {.StartInfo = startInfo, _
    .EnableRaisingEvents = True}
 
  AddHandler rtmpdump.ErrorDataReceived, AddressOf Async_Data_Received
  AddHandler rtmpdump.OutputDataReceived, AddressOf Async_Data_Received
  AddHandler rtmpdump.Exited, AddressOf CMD_Exited
 
  rtmpdump.Start()
  rtmpdump.BeginOutputReadLine()
  rtmpdump.BeginErrorReadLine()
End Load
 
Private Sub CMD_Exited(ByVal sender As Object, ByVal e As EventArgs)
  MessageBox.Show("RTMP Thread was terminated", "Warning", _
    MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Sub
 
Private Sub Async_Data_Received(ByVal sender As Object, ByVal e As _
  DataReceivedEventArgs)
  Invoke(New InvokeWithString(AddressOf Sync_Output), e.Data)
End Sub
 
Private Sub Sync_Output(ByVal text As String)
  TextBox_log.AppendText(text & Environment.NewLine)
  TextBox_log.ScrollToCaret()
End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist