sBuffer, lBytesRead) Loop CloseHandle Proc.hProcess CloseHandle Proc.hThread CloseHandle hReadPipe Else ExecuteCommandLineOutput = "File or command not found" End If Else ExecuteCommandLineOutput = "CreatePipe failed. Error: " & Err.LastDllError & "." End If End If End Function Private Sub Command1_Click() ''''测试 ''''VBA.MsgBox ExecuteCommandLineOutput("ping www.sina.com.cn") VBA.MsgBox ExecuteCommandLineOutput("ping www.xxxx.com.cn", , 2) End Sub
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
