方法 1ReDos text1.text,Temptext2.text=Temp "***************读取DOS文本*****************
"* ReDos "Net Share",TempTxt *
"* TempTxt 为返回的文本 *
"* 作者：Christly QQ:105120185 *
"*******************************************Option Explicit
Private Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, _
ByVal lpCommandLine As String, _
lpProcessAttributes As Any, _
lpThreadAttributes As Any, _
ByVal bInheritHandles As Long, _
ByVal dwCreationFlags As Long, _
lpEnvironment As Any, _
ByVal lpCurrentDriectory As String, _
lpStartupInfo As STARTUPINFO, _
lpProcessInformation As PROCESS_INFORMATION) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As Any) As LongPublic Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As LongPrivate Declare 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 Long
lpDesktop As Long
lpTitle As Long
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 Byte
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 = &H20
Private Const STARTF_USESTDHANDLES = &H100
Private Const STARTF_USESHOWWINDOW = &H1
Private Const SW_HIDE = 0
Private Const INFINITE = &HFFFF " Infinite timeout
Public Sub UniteByteArray(B1() As Byte, B2() As Byte, ByRef RetB() As Byte) "合并数组
Dim TB() As Byte
Dim LB1 As Integer
Dim LB2 As Integer
Dim i As Integer
LB1 = UBound(B1)
LB2 = UBound(B2)
ReDim TB(0 To LB1 + LB2 + 1) As Byte
For i = 0 To LB1
TB(i) = B1(i)
Next i
For i = LB1 + 1 To UBound(TB)
TB(i) = B2(i - LB1 - 1)
Next i
RetB = TB
" SDBug UBound(TB)
End Sub
Public Sub ReDos(commandline As String, ByRef ReturnTxt As String)
Dim si As STARTUPINFO "userd to send info the createProcess
Dim pi As PROCESS_INFORMATION "used to receive info about the created process
Dim retval As Long "return value
Dim hRead As Long "the handle to the read end of pipe
Dim hWrite As Long "the handle to the write end of the pipe
Dim sBuffer(0 To 63) As Byte "the buffer to store data as we read it from the pipe
Dim lgSize As Long "returned number of bytes read by readfile
Dim sa As SECURITY_ATTRIBUTES
Dim strResult As String "returned results of the command line
Dim TB() As Byte, FristT As Boolean
"set up security attributes structure
With sa
.nLength = Len(sa)
.bInheritHandle = 1& "ingerit,needed for this to work
.lpSecurityDescriptor = 0&
End With
"create our anonymous pipe an check for success
"note we use the default buffer size
"this could cause problems if the process tries to write more than this buffer size
retval = CreatePipe(hRead, hWrite, sa, 0&)
If retval = 0 Then
MsgBox "错误提示：创建管道失败！"
ReturnTxt = ""
Exit Sub
End If
"set up startup info
With si
.cb = Len(si)
.dwFlags = STARTF_USESHOWWINDOW Or STARTF_USESTDHANDLES "tell it to use(not ignore)the values below
.wShowWindow = SW_HIDE
.hStdOutput = hWrite "pass the write end of the pipe as the processes standard output
End With
"run the command line and check for success
retval = CreateProcess(vbNullString, commandline & vbNullChar, sa, sa, 1&, NORMAL_PRIORITY_CLASS, ByVal 0&, vbNullString, si, pi)
If retval Then
"wait until the command line finishes
"trouble if the app doesnt end ,or waits for user input,etc
WaitForSingleObject pi.hProcess, &H10000 "等待10000毫秒
FristT = True
"read from the pipe until theres no more(bytes actually read if less than what we told it to )
Do
Erase sBuffer()
If ReadFile(hRead, sBuffer(0), 64, lgSize, ByVal 0&) Then
SDBug "lgSize=" & lgSize
If FristT = True Then
"convert byte array to string and append to our result
TB = sBuffer
FristT = False
Else
UniteByteArray TB, sBuffer, TB
End If
Else
SDBug "fuck"
End If
"todo = whats in the tall end of the byte array when lgSize if less than 64???
If lgSize <> 64 Then Exit Do
DoEvents
Loop
strResult = strResult & StrConv(TB(), vbUnicode)
"close the handles of the process
CloseHandle pi.hProcess
CloseHandle pi.hThread
Else
MsgBox "错误提示：创建进程失败!" & vbCrLf
End If
"close pipe handles
CloseHandle hRead
CloseHandle hWrite
"return the command line output
ReturnTxt = Replace(strResult, vbNullChar, "")
End Sub
贝贝
分享好知识！