调用Shell运行DOS程序时，怎样才能得到DOS程序运行的结果呢？

xingming_sun 2004-12-31 10:10:50

我想把DOS程序的运行结果显示到窗体上，应该怎样做？

...全文

187 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

padin 2005-01-28

打赏
举报

楼上正解!

limitworld 2005-01-05

打赏
举报

看看我的文章吧，用DOS 输入输出重新定向。
http://dev.csdn.net/develop/article/47/47095.shtm
哎，不知道为什么发到。NET里去了，郁闷！

asmgirl 2005-01-01

打赏
举报

学习

pcwak 2004-12-31

打赏
举报

Private Const STILL_ALIVE = &H103
Private Const PROCESS_QUERY_INFORMATION = &H400

lProcessId = Shell()

hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, lProcessId)
Do
Call GetExitCodeProcess(hProcess, lEnd)
DoEvents
Loop While lEnd = STILL_ALIVE

Lisk应用链 2004-12-31

打赏
举报

用DOS命令执行后输出定向到一个文件，然后在用VB读取（仅供参考）

lbskln 2004-12-31

打赏
举报

同问！

maskdata 2004-12-31

打赏
举报

你最好在shell下边加一个延迟

maskdata 2004-12-31

打赏
举报

需要调用MS Scripting Runtime

maskdata 2004-12-31

打赏
举报

Private Sub Command1_Click()
On Error GoTo myerr
Dim strtemp As String
Shell "C:\winnt\system32\cmd.exe /k ipconfig >> C:\tempfile.tmp"
myerr:
Open "C:\tempfile.tmp" For Input As #1
Do Until EOF(1)
Line Input #1, strtemp
Print strtemp
Loop
Close #1
Dim filedel As New FileSystemObject '删除用过的临时文件
filedel.DeleteFile ("C:\tempfile.tmp")
End Sub

抢分