如何让命令执行完后返回执行结果.

[LuBingLin]

如：运行-> CMD -> Net View
---------------------------------------------
计算机A
计算机B
计算机C
计算机D

我想在VB中用 Shell"Net View" ，执行完后程序要获得执行结果。再输入到指定的文本框中。

[kmzs]

写在文件中、注册表中。。。

[LuBingLin]

你的回答太.........
不明白!

[zjcxc]

try:


Sub test()
Dim iStr$

Shell "net view > c:\a.txt", vbHide --将执行结果输出到c:\a.txt中
Open "c:\a.txt" For Input As #1 --从c:\a.txt文件中读取结果
While Not EOF(1)
Line Input #1, iStr
Debug.Print iStr
Wend
Close #1
End Sub

[Fnems]

win2k的Net命令实际是调用API实现的。有相当一部分使用了NetAPI32.dll中的API函数。这个问题可能与NetServerEnum有关。

[LuBingLin]

能否举个例子.

[Santos]

这样做
Shell"Net View > a.txt"
然后，再打开a.txt，将读取到的内容写入文本框

[LuBingLin]

各们老大，请打开你们的电脑运行你们的VB，试一个你们的语句，再发表好么...

[LuBingLin]

没人会么?

[black_ant]

可以用内存共享！

[LuBingLin]

请给个示例?

[jmserver]

太简单，建立管道吗！！！
msn:[e-mail]

[lsftest]

'98下用：
x = Shell("command /c ipconfig >c:\bohao\1.txt", 1)

’nt/2000下用
x = Shell("cmd /c ipconfig >c:\bohao\1.txt", 1)

以前试过行得通的，但net view不知道行不行，现在没有测试环境，自己试试吧

[jlum99]

论坛里相同的东西很多,自己查啊

[LuBingLin]

不好意思最较忙忘了上来看看，请多多见谅......
不会也帮忙顶顶......

[planetike]

'在他们的基础上,自己试了一下,是可以的.
Private Const WAIT_TIMEOUT = &H102&

Public Function ShellForWait(sAppName As String, Optional ByVal lShowWindow As VbAppWinStyle = vbMinimizedFocus, Optional ByVal lWaitTime As Long = 0) As Boolean
Dim lID As Long, lHnd As Long, lRet As Long
On Error Resume Next
lID = Shell(sAppName, lShowWindow)
If lID > 0 Then
lHnd = OpenProcess(SYNCHRONIZE, 0, lID)
If lHnd <> 0 Then
Do
lRet = WaitForSingleObject(lHnd, lWaitTime)
DoEvents
Loop While lRet = WAIT_TIMEOUT
CloseHandle lHnd
ShellForWait = True
Else
ShellForWait = False
End If
Else
ShellForWait = False
End If
End Function


Private Sub Command1_Click()
ShellForWait "cmd /c net view >c:\a.txt",,&HFFFF
Open "c:\a.txt" For Input As #1
While Not EOF(1)
Line Input #1, iStr
Debug.Print iStr
Wend
Close #1
End Sub