אני בונה ממשק גרפי לאחי עבור תוכנה שעובדת דרך ה-CMD
אני מנסה לקלוט את הפלט של התוכנה חזרה לממשק כדי לקבל אינדיקציה על מצב ההתקדמות וכ"ד

ולצערי אני מסתבך עם זה לגמרי.

נסתי את השורות הבאות, אבל זה נותן לי רק 6 שורות מהפלט הסופיות

קוד:

Dim sampleProcess = New Process()
sampleProcess.StartInfo = New ProcessStartInfo(txt_avrdude_path.Text, Mid(txt_exe.Text, txt_avrdude_path.Text.Length + 1))
sampleProcess.StartInfo.FileName = txt_avrdude_path.Text
sampleProcess.StartInfo.Arguments = Mid(txt_exe.Text, txt_avrdude_path.Text.Length + 1)
sampleProcess.StartInfo.RedirectStandardOutput = True
sampleProcess.StartInfo.UseShellExecute = False
sampleProcess.Start()
txt_log.AppendText(sampleProcess.BeginOutputReadLi  ne())
sampleProcess.WaitForExit()
txt_log.Text = sampleProcess.StandardOutput.ReadToEnd()

לא ברור לי למה כתבת את הפרמטרים פעמים, ואיך ולמה הדוגמא שלך לא עובדת, אבל יש לי רעיון ל-"walk around"

פשוט קרא ל-CMD עם הפרמטרים הנחוצים. הנה דוגמא:

קוד:

 Dim start_info AsNew ProcessStartInfo("cmd.exe", "/k ""D:\Documents and Settings\Admin\Desktop\Assembly\TASM.EXE""")
 
start_info.UseShellExecute = False
 
start_info.CreateNoWindow = True
 
start_info.RedirectStandardOutput = True
 
start_info.RedirectStandardError = True
 
' Make the process and set its start information.
 
Dim proc AsNew Process()
 
proc.StartInfo = start_info
 
' Start the process.
 
proc.Start()
 
' Attach to stdout and stderr.
 
Dim std_out As IO.StreamReader = proc.StandardOutput()
 
 
 
' Display the results.
 
TxtOutPut.Text = std_out.ReadToEnd()
 
 
 
' Clean up.
 
std_out.Close()
 
proc.Close()
 

בהצלחה!

עריכה:
שמתי לב, שמשום מה, ה-As New ב-start_info וב-proc השתבש. פשוט שים רווח בין as ל-New

תודה, אני אבדוק את הנושא

תודה רבה על העזרה, מצאתי בסופו של דבר קוד שהצליח לעבוד לי יפה
אז אני מרוצה כרגע

תודה רבה על העזרה

קוד PHP:

 Private Sub btn_exe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_exe.Click
        If (My.Computer.FileSystem.FileExists(txt_avrdude_pat  h.Text)) Then

            Dim p As New Process
            p.StartInfo.FileName = txt_avrdude_path.Text
            p.StartInfo.Arguments = Mid(txt_exe.Text, txt_avrdude_path.TextLength + 1, txt_exe.TextLength)
            'MsgBox(Mid(txt_exe.Text, txt_avrdude_path.TextLength + 1, txt_exe.TextLength))
            p.StartInfo.UseShellExecute = False
            p.StartInfo.CreateNoWindow = True
            p.StartInfo.RedirectStandardOutput = True
            AddHandler p.OutputDataReceived, AddressOf HelloMum
            txt_log.Text = "--------------- Starting execution ---------------" & Environment.NewLine
            p.Start()
            p.BeginOutputReadLine()

        Else
            MsgBox("File """ & txt_avrdude_path.Text & """ does not exist !", MsgBoxStyle.Exclamation, "File not found")
        End If

    End Sub
    Sub HelloMum(ByVal sender As Object, ByVal e As DataReceivedEventArgs)
        UpdateTextBox(e.Data)
    End Sub
    Private Delegate Sub UpdateTextBoxDelegate(ByVal Text As String)
    Private Sub UpdateTextBox(ByVal Tex As String)
        If Me.InvokeRequired Then
            Dim del As New UpdateTextBoxDelegate(AddressOf UpdateTextBox)
            Dim args As Object() = {Tex}
            Me.Invoke(del, args)
        Else
            txt_log.AppendText(Tex & Environment.NewLine)
        End If
    End Sub