VB 6.0의 진행률 막대에서 FFIFEG의 변환 과정에서

Question

firts 내 영어로 변명이야. 죄송합니다

큰 문제가 있습니다. 내 고등학교에서 테스트를 위해 VB6.0에서 내 응용 프로그램을 끝내야하고, 솔루션을 찾을 수 없습니다. 내 응용 프로그램은 cmd.exe 창을 열어 FFmpeg.EXE 파일을 엽니 다. 그리고 trascoding 프로세스를 시작, 마지막 라인은 CMD 창 (또는 상단 하단)의 프롬프트에 생성 된 링크가 필요합니다이 라인에 존재합니다.이 trascoding 프로세스에서 결과는 비트입니다 다른 사람에 따라 변동하는 속도 var . 내 앱의 형태에 대한 아이디어는 실시간으로 진행률 막대 (파일 크기/비트 전송률 평균) = 처리 시간으로이 줄을 읽을 수 있습니다.

나를 도와 줄 수 있습니까? 답변 주셔서 감사합니다 ....

Answer 1

출력을 텍스트 파일로 보내고이 텍스트 파일을 읽으십시오.

이

ping >e:\test.txt 

핑이 FFmpge.EXE 및 전자입니다

가 : \ TEST.TXT

Answer 2

TEXTFILE 출력이 Windows 스크립트 호스트 개체 모델에 대한 참조를 놓고이 조각을 시도 는 다음과 같이 보일 것이다

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을 실행 해보십시오.

Answer 3

rdkleine

나는 당신의 대답을 읽고이는 죽음의 값을 로그 "텍스트"로 표시 것만 위대한 작품 아주 좋은, 그리고 내가 실시간으로 변경 변환의 변동하기의 비트 레이트의 값을, 필요 cmd 창 프롬프트에서. 나는 wqw의 소스 코드로 지금 노력하고있다, 나는 거기에서 일하고있다.

답장을드립니다.