[转载][VB6] 获取CMD命令的输出

在VB中不用文件（而用内存，再精确点是管道）来获取DOS程序的输出

方法：

1.新建工程
2.添加一个Class模块，命名为DOSOutputs，在Class内粘贴以下代码：

1. Option Explicit
2. ‘Class Module Named “DOSOutputs”
3. ‘The CreatePipe function creates an anonymous pipe,
4. ‘and returns handles to the read and write ends of the pipe.
5. Private Declare Function CreatePipe Lib “kernel32” ( _
6.     phReadPipe As Long, _
7.     phWritePipe As Long, _
8.     lpPipeAttributes As Any, _
9.     ByVal nSize As Long) As Long
11. ‘Used to read the the pipe filled by the process create
12. ‘with the CretaProcessA function
13. Private Declare Function ReadFile Lib “kernel32” ( _
14.     ByVal hFile As Long, _
15.     ByVal lpBuffer As String, _
16.     ByVal nNumberOfBytesToRead As Long, _
17.     lpNumberOfBytesRead As Long, _
18.     ByVal lpOverlapped As Any) As Long
20. ‘Structure used by the CreateProcessA function
21. Private Type SECURITY_ATTRIBUTES
22.     nLength As Long
23.     lpSecurityDescriptor As Long
24.     bInheritHandle As Long
25. End Type
27. ‘Structure used by the CreateProcessA function
28. Private Type STARTUPINFO
29.     cb As Long
30.     lpReserved As Long
31.     lpDesktop As Long
32.     lpTitle As Long
33.     dwX As Long
34.     dwY As Long
35.     dwXSize As Long
36.     dwYSize As Long
37.     dwXCountChars As Long
38.     dwYCountChars As Long
39.     dwFillAttribute As Long
40.     dwFlags As Long
41.     wShowWindow As Integer
42.     cbReserved2 As Integer
43.     lpReserved2 As Long
44.     hStdInput As Long
45.     hStdOutput As Long
46.     hStdError As Long
47. End Type
49. ‘Structure used by the CreateProcessA function
50. Private Type PROCESS_INFORMATION
51.     hProcess As Long
52.     hThread As Long
53.     dwProcessID As Long
54.     dwThreadID As Long
55. End Type
57. ‘This function launch the the commend and return the relative process
58. ‘into the PRECESS_INFORMATION structure
59. Private Declare Function CreateProcessA Lib “kernel32” ( _
60.     ByVal lpApplicationName As Long, _
61.     ByVal lpCommandLine As String, _
62.     lpProcessAttributes As SECURITY_ATTRIBUTES, _
63.     lpThreadAttributes As SECURITY_ATTRIBUTES, _
64.     ByVal bInheritHandles As Long, _
65.     ByVal dwCreationFlags As Long, _
66.     ByVal lpEnvironment As Long, _
67.     ByVal lpCurrentDirectory As Long, _
68.     lpStartupInfo As STARTUPINFO, _
69.     lpProcessInformation As PROCESS_INFORMATION) As Long
71. ‘Close opened handle
72. Private Declare Function CloseHandle Lib “kernel32” ( _
73.     ByVal hHandle As Long) As Long
75. ‘Consts for the above functions
76. Private Const NORMAL_PRIORITY_CLASS = &H20&
77. Private Const STARTF_USESTDHANDLES = &H100&
78. Private Const STARTF_USESHOWWINDOW = &H1
81. Private mCommand As String          ‘Private variable for the CommandLine property
82. Private mOutputs As String          ‘Private variable for the ReadOnly Outputs property
83. ‘This property set and get the DOS command line
84. ‘It’s possible to set this property directly from the
85. ‘parameter of the ExecuteCommand method
86. Public Property Let CommandLine(DOSCommand As String)
87.     mCommand = DOSCommand
88. End Property
90. Public Property Get CommandLine() As String
91.     CommandLine = mCommand
92. End Property
94. ‘This property ReadOnly get the complete output after
95. ‘a command execution
96. Public Property Get Outputs()
97.     Outputs = mOutputs
98. End Property
100. Public Function ExecuteCommand(Optional CommandLine As String) As String
101.     Dim proc As PROCESS_INFORMATION     ’Process info filled by CreateProcessA
102.     Dim ret As Long                     ’long variable for get the return value of the
103.                                         ‘API functions
104.     Dim start As STARTUPINFO            ’StartUp Info passed to the CreateProceeeA
105.                                         ‘function
106.     Dim sa As SECURITY_ATTRIBUTES       ‘Security Attributes passeed to the
107.                                         ‘CreateProcessA function
108.     Dim hReadPipe As Long               ’Read Pipe handle created by CreatePipe
109.     Dim hWritePipe As Long              ’Write Pite handle created by CreatePipe
110.     Dim lngBytesread As Long            ’Amount of byte read from the Read Pipe handle
111.     Dim strBuff As String * 256         ’String buffer reading the Pipe
113.     ‘if the parameter is not empty update the CommandLine property
114.     If Len(CommandLine) > 0 Then
115.         mCommand = CommandLine
116.     End If
117.     
118.     ‘if the command line is empty then exit whit a error message
119.     If Len(mCommand) = 0 Then
120.         MsgBox “Command Line empty”, vbCritical
121.         Exit Function
122.     End If
123.     
124.     ‘Create the Pipe
125.     sa.nLength = Len(sa)
126.     sa.bInheritHandle = 1&
127.     sa.lpSecurityDescriptor = 0&
128.     ret = CreatePipe(hReadPipe, hWritePipe, sa, 0)
129.     
130.     If ret = 0 Then
131.         ’If an error occur during the Pipe creation exit
132.         MsgBox “CreatePipe failed. Error: “ & Err.LastDllError, vbCritical
133.         Exit Function
134.     End If
135.     
136.     ‘Launch the command line application
137.     start.cb = Len(start)
138.     start.dwFlags = STARTF_USESTDHANDLES Or STARTF_USESHOWWINDOW
139.     ‘set the StdOutput and the StdError output to the same Write Pipe handle
140.     start.hStdOutput = hWritePipe
141.     start.hStdError = hWritePipe
142.     ‘Execute the command
143.     ret& = CreateProcessA(0&, mCommand, sa, sa, 1&, _
144.         NORMAL_PRIORITY_CLASS, 0&, 0&, start, proc)
145.         
146.     If ret <> 1 Then
147.         ’if the command is not found ….
148.         MsgBox “File or command not found”, vbCritical
149.         Exit Function
150.     End If
151.     
152.     ‘Now We can … must close the hWritePipe
153.     ret = CloseHandle(hWritePipe)
154.     mOutputs = “”
155.     
156.     ‘Read the ReadPipe handle
157.     Do
158.         ret = ReadFile(hReadPipe, strBuff, 256, lngBytesread, 0&)
159.         mOutputs = mOutputs & StrConv(LeftB((StrConv(strBuff, vbFromUnicode)), lngBytesread), vbUnicode)
160.         
161.         ’原来为 mOutputs = mOutputs & Left(strBuff, lngBytesread)，感谢mr_gjd 提供关键性修改！
162.     Loop While ret <> 0
163.     
164.     ‘Close the opened handles
165.     ret = CloseHandle(proc.hProcess)
166.     ret = CloseHandle(proc.hThread)
167.     ret = CloseHandle(hReadPipe)
168.     
169.     ‘Return the Outputs property with the entire DOS output
170.     ExecuteCommand = mOutputs
171. End Function

3.在窗体内添加两个TextBox：txtCmdInput和txtDosOutput并将后者的MultiLine属性改为True
4.在窗体内粘贴以下的代码

5.运行！

注：直接复制可能会有错误，建议直接下载（点击链接下载～）
**
**

  CMD输出到VB.zip