Question

vb执行DOS命令并返回结果

就是按下Command控件执行DOS命令然后把结果返回在TEXT控件内

Answer 1

假设你的Text支持换行，即Multiline=TRUE
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
Dim FF As Long
Dim Strtemp As String
Shell "cmd.exe /c ipconfig /all >C:\1.txt ", vbHide
While Dir("C:\1.txt") = ""
DoEvents
Sleep 500
Wend
FF = FreeFile
Open "C:\1.txt" For Input As #FF
Strtemp = InputB(LOF(FF), #FF)
Close #FF
Text1 = StrConv(Strtemp, vbUnicode)
Kill "C:\1.txt"
End Sub