無法重定向標準輸入

Question

在我確切地知道我在找什麼之前，我用不同的標題問了這個問題;希望我能得到一些答案，並以明確的標題重新發布。

我試圖將標準輸入重定向到應用程序，所以我可以從我的Visual Basic程序控制它。

Public Class MyClass 
    Dim StreamWriteUtility As System.IO.StreamWriter 
    Dim StreamReadUtility As System.IO.StringReader 
    Dim ProcessInfo As ProcessStartInfo 
    Dim Process As Process 

    Public Sub StartUSBCapture(ByVal DataStorageLocation As String) 

     ProcessInfo = New ProcessStartInfo("C:\FW_Qualification_Suite\data-center-windows\data-center\bin\datacenter.cmd", "-c ") 
     ProcessInfo.CreateNoWindow = True 
     ProcessInfo.UseShellExecute = False 'Must be changed if redirect set to True 
     ProcessInfo.RedirectStandardInput = True 

     Process.Start(ProcessInfo) 

     StreamWriteUtility = Process.StandardInput 

     While True 
     StreamWriteUtility.WriteLine("run") 'Looping for test to ensure this isn't a timing issue 
     End While 
    End Sub 
End Class 

Answer 1

我看到一些語法錯誤，可能會給你帶來麻煩。例如，您需要讀取StreamWriter的標準輸入，而不是SWUtility（您從未定義過）的任何內容，同時啓動進程的sytnax只是process.start而不是process = process.start。最後，你錯過了process.WaitForExit()這肯定會把所有東西搞亂。

Public Class MyClass 
    Dim sw As System.IO.StreamWriter 
    Dim sr As System.IO.StreamReader 
    Dim ProcessInfo As New ProcessStartInfo 
    Dim Process As New Process 

    Public Sub StartUSBCapture(ByVal DataStorageLocation As String) 

     ProcessInfo = New ProcessStartInfo("C:\FW_Qualification_Suite\data-center-windows\data-center\bin\datacenter.cmd") 
     ProcessInfo.Arguments = "-c" 
     ProcessInfo.CreateNoWindow = True 
     ProcessInfo.UseShellExecute = False 
     ProcessInfo.RedirectStandardInput = True 
     ProcessInfo.RedirectStandardOutput = True 
     Process.Startinfo = ProcessInfo 
     Process.Start() 

     Process.StandardInput.WriteLine("Your Line") 
     Process.StandardInput.WriteLine("Your Line 2") 
     Process.StandardInput.WriteLine("Exit") 

     sw = Process.StandardInput 
     sr = Process.StandardOutput 

     Dim line As String 
     Do 
      Line = sr.ReadLine() 
      MsgBox(line) 
     Loop Until line Is Nothing 
     sr.Close() 
    End Sub 
End Class