VB6 将shell调用的结果从TEXT1输出

来源：百度知道 编辑：UC知道 时间：2024/06/08 14:17:16
Private Sub ExBtn1_Click()
shell "cmd /c %systemroot%\system32\ipconfig.exe /all",vbhide
End Sub
我在窗体上添加了一个TEXT1的文本控件,我想将上面的输出结果调用到
TEXT1并输出,请问代码该怎么写,麻烦大家给出代码,谢谢大家!!!

最简单就是这样了。
Private Sub Command1_Click()
Dim temp As String
Shell "cmd /c ipconfig/all >z:\test.txt",vbhide
Open "z:\test.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, temp
Text1.Text = Text1.Text & temp & vbCrLf
Loop
Close #1
End Sub

楼上说的办法很变通，我想，查询自己IP用Winsock控件吧，他的LocalIP就是本地的IP