我呼叫外部程式程式，運行時會出現這個界面，我想讀取運行界面里面的計算進度和時間，不知道該怎么讀取，其次是假如VB 在呼叫時，程式運行一般崩潰了，想在VB中出現提示框如“你輸出的資料有誤請重新計算”，最后在回傳到主界面form2重新輸入資料在呼叫程式計算。如果完美解決可有償或者追加積分。
uj5u.com熱心網友回復：
你上面那個界面是不是CMD運行視窗，如果是可采用管道通信技術。uj5u.com熱心網友回復：
參考一下我用的這個：https://bbs.csdn.net/topics/396125019uj5u.com熱心網友回復：
我現在讀出來了，但是整個螢屏的內容都出現了，我只想讀進度和時間，不知道可不可以uj5u.com熱心網友回復：
可以的，截取時間和進度，其他的不要。
uj5u.com熱心網友回復：
Option ExplicitPrivate Declare Function CreatePipe Lib "kernel32" (phReadPipe As Long, phWritePipe As Long, lpPipeAttributes As SECURITY_ATTRIBUTES, ByVal nSize As Long) As Long
Private Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, ByVal lpBuffer As String, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, ByVal lpOverlapped As Any) As Long
Private Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type
Private Type STARTUPINFO
cb As Long
lpReserved As String
lpDesktop As String
lpTitle As String
dwX As Long
dwY As Long
dwXSize As Long
dwYSize As Long
dwXCountChars As Long
dwYCountChars As Long
dwFillAttribute As Long
dwFlags As Long
wShowWindow As Integer
cbReserved2 As Integer
lpReserved2 As Long
hStdInput As Long
hStdOutput As Long
hStdError As Long
End Type
Private Type PROCESS_INFORMATION
hProcess As Long
hThread As Long
dwProcessId As Long
dwThreadId As Long
End Type
Private Declare Function CreateProcessAsUser Lib "advapi32.dll" Alias "CreateProcessAsUserA" (ByVal hToken As Long, ByVal lpApplicationName As String, ByVal lpCommandLine As String, ByVal lpProcessAttributes As SECURITY_ATTRIBUTES, ByVal lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, ByVal lpEnvironment As String, ByVal lpCurrentDirectory As String, ByVal lpStartupInfo As STARTUPINFO, ByVal lpProcessInformation As PROCESS_INFORMATION) As Long
Private Declare Function CreateProcessA Lib "kernel32" (ByVal lpApplicationName As Long, ByVal lpCommandLine As String, lpProcessAttributes As SECURITY_ATTRIBUTES, lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Const NORMAL_PRIORITY_CLASS = &H20
Private Const STARTF_USESTDHANDLES = &H100
Private Const STARTF_USESHOWWINDOW = &H1
Private Function ExecuteCommandLineOutput(commandline As String, Optional BufferSize As Long = 256, Optional TimeOut As Long) As String
Dim Proc As PROCESS_INFORMATION
Dim Start As STARTUPINFO
Dim sa As SECURITY_ATTRIBUTES
Dim hReadPipe As Long
Dim hWritePipe As Long
Dim lBytesRead As Long
Dim sBuffer As String
If VBA.Len(commandline) > 0 Then
sa.nLength = Len(sa)
'sa.nLength = vba.Len(sa)
sa.bInheritHandle = 1&
sa.lpSecurityDescriptor = 0&
If CreatePipe(hReadPipe, hWritePipe, sa, 0) > 0 Then
Start.cb = Len(Start)
Start.dwFlags = STARTF_USESTDHANDLES Or STARTF_USESHOWWINDOW
Start.hStdOutput = hWritePipe
Start.hStdError = hWritePipe
If CreateProcessA(0&, commandline, sa, sa, 1&, NORMAL_PRIORITY_CLASS, 0&, 0&, Start, Proc) = 1 Then
CloseHandle hWritePipe
sBuffer = VBA.String(BufferSize, VBA.Chr(0))
If TimeOut > 0 Then
Dim BeginTime As Date
BeginTime = VBA.Now
End If
Do Until ReadFile(hReadPipe, sBuffer, BufferSize, lBytesRead, 0&) = 0
DoEvents
If TimeOut < 0 Then
If DateDiff("s", BeginTime, VBA.Now) > TimeOut Then
ExecuteCommandLineOutput = "Timeout"
Exit Do
End If
End If
ExecuteCommandLineOutput = ExecuteCommandLineOutput & VBA.Trim(Replace(Left(sBuffer, lBytesRead), VBA.Chr(0), ""))
Text1.Text = ExecuteCommandLineOutput
Loop
CloseHandle Proc.hProcess
CloseHandle Proc.hThread
CloseHandle hReadPipe
Else
ExecuteCommandLineOutput = "File or command not found"
Text1.Text = ExecuteCommandLineOutput
End If
Else
ExecuteCommandLineOutput = "CreatePipe failed.Error:" & Err.LastDllError & "."
Text1.Text = ExecuteCommandLineOutput
End If
End If
End Function
Private Sub Command1_Click()
ExecuteCommandLineOutput "C:\Users\Administrator\Documents\Visual Studio 2010\Projects\Console12\Console12\Debug\Console12.exe"
End Sub
Private Sub Command2_Click()
Open "C:\GuangXiGuanQu\jieguo.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
Private Sub Form_Load()
End Sub
Private Sub Text1_Change()
Text1.SelStart = Len(Text1.Text)
End Sub
我是照著別人這樣寫的，但是把全部內容都讀出來了，不知道怎么改才能只讀進度和時間
uj5u.com熱心網友回復：
哥們有好的方法嗎uj5u.com熱心網友回復：
哥們有好的方法嗎uj5u.com熱心網友回復：
能讀取到內容，那就從讀取到的內容中把“需要的”那些文本分離出來不就行了？轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/8905.html
標籤：VB基礎類
上一篇：查找程式是否已經運行的三種方法:
下一篇：物件參考無法識別