VB6 管道命令，调用DOS或其它exe，把运行结果显示在Text1中。2023年11月22日 09:45
新建From1（窗体），新建Text1（TextBox），Command1（按钮CommandButton），代码：
Private CMD As Object
Private Sub Command1_Click()
strCMD = "ipconfig/all"
Set CMD = New DosCMD '启动CMD
Call CMD.DosInput(strCMD)
Text1.Text = CMD.DosOutPutEx(10000)
Set CMD = Nothing
End Sub添加一个类模块modDosCMD.cls，代码：
具体代码只能由VIP查看，请升级 。
全部回复（0）