附加輸出控制檯（CMD.EXE）到VB6文本框或PANAL

Question

如何附加輸出控制檯（CMD.EXE）到VB6文本框或PANAL： 我試圖遵循的步驟：

• 點擊按鈕（將運行批處理文件） 因此，我想在vb6文本框中顯示批處理文件的輸出，或者我想在VB6面板上顯示控制檯輸出。

所以，任何人都可以幫助我嗎？

我用下面簡單的代碼：

Private Sub Command11_Click(Index As Integer) 
Dim sPathUser As String 
sPathUser = Environ$("EENV") 
Shell sPathUser & "\Xyz.bat" 
End Sub 

所以，我只是想顯示上的臺詞框或文本編輯器或簡單的編輯器「Xyz.bat」控制檯輸出？

Answer 1

我給你我的工作示例，你使用process類使用Async事件，這樣你就可以得到輸出數據和錯誤。

Dim Proceso As New Process 

'Register Output async event 
AddHandler Proceso.OutputDataReceived, AddressOf CallbackProcesoAsync 
'Register error output async event 
AddHandler Proceso.ErrorDataReceived, AddressOf ErrorDataReceivedAsync 

Dim startInfo As New ProcessStartInfo 
startInfo.FileName = execFile 
startInfo.Arguments = CmdExeArguments 
startInfo.ErrorDialog = False 
startInfo.UseShellExecute = False 

Private Sub CallbackProcesoAsync(sender As Object, args As System.Diagnostics.DataReceivedEventArgs) 

     If Not args.Data Is Nothing AndAlso Not String.IsNullOrEmpty(args.Data) Then 
      'Do stuff with your output results  
     End If 
End Sub 



    Private Sub CallbackProcesoAsync(sender As Object, args As System.Diagnostics.DataReceivedEventArgs) 

     If Not args.Data Is Nothing AndAlso Not String.IsNullOrEmpty(args.Data) Then 
     'Do stuff with error output 

     End If 
    End Sub