VB创建可等待进程并获取Stdout输出的代码计算机等级考试

文章作者 100test 发表时间 2010:01:01 10:53:13
来源 100Test.Com百考试题网

　　Attribute VB_Name = "Run_Command"
　　Option Explicit
　　Option Base 0
　　Private Declare Function CreateProcess()Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, _
　　ByVal lpCommandLine As String, lpProcessAttributes As SECURITY_ATTRIBUTES, lpThreadAttributes As SECURITY_ATTRIBUTES, _
　　ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, lpEnvironment As Any, ByVal lpCurrentDirectory As String, _
　　lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long
　　Private Declare Function CloseHandle()Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) As Long
　　Private Declare Function ReadFile()Function ReadFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As Long) As Long
　　Private Declare Function WaitForSingleObject()Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
　　Private Declare Function CreatePipe()Function CreatePipe Lib "kernel32" (phReadPipe As Long, phWritePipe As Long, lpPipeAttributes As SECURITY_ATTRIBUTES, ByVal nSize As Long) As Long
　　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 Type SECURITY_ATTRIBUTES
　　nLength As Long
　　lpSecurityDescriptor As Long
　　bInheritHandle As Long
　　End Type
　　Private Const NORMAL_PRIORITY_CLASS As Long =