vb6 - 来自 FFMPEG 中的转码过程的 VB 6.0 中的进度条

Question

首先对不起我的英语是 super 怪胎。对不起

我有一个大问题，我需要在 VB6.0 中完成我的应用程序以便在我的高中进行测试，但我找不到解决方案，我的应用程序打开一个 FFmpeg.EXE 文件，该文件打开一个 cmd 窗口提示并开始一个转码过程，我需要将生成的最后一行链接到 CMD 窗口(或顶部底部)的提示中，在这一行中存在值发生了什么变化，在这个转码过程中，结果是比特率，它根据其他变量而波动。
我的应用程序形式的想法是我可以实时读取此行以构建进度条(文件大小/比特率平均值)=处理时间。

你能帮助我吗。感谢你的回答....

Answer 1

引用 Windows Scripting Host Object Model 并尝试此代码段

Option Explicit

Private Sub Command1_Click()
    Dim oExec       As WshExec
    Dim sRow        As String

    With New WshShell
        Set oExec = .Exec("tasklist.exe")
    End With
    Do While oExec.Status = WshRunning
        sRow = oExec.StdOut.ReadLine
        If InStr(1, sRow, "vb6.exe", vbTextCompare) > 0 Then
            MsgBox sRow, vbExclamation
        End If
    Loop
End Sub

基本上尝试执行 FFmpeg.EXE 和 ReadLine 直到找到一些关键文本。