Question

vb 获取cmd返回值

我想做个模拟windows 的cmd程序，一开始用
shell "cmd /c xxx>>1.txt"
然后在读取可是有一些命令无法保存返回值请问如何解决？

Answer 1

我给你一个实现方法，cmdstr是你要执行的命令

代码：

Shell "cmd.exe /c " & Trim(cmdstr) & "&exit", vbHide
Else
Shell "cmd.exe /c " & Trim(cmdstr) & " >" & WinPath & "shell.rlt&exit", vbHide
Sleep 200
Call tranrlt ‘调用记录函数实现重定向到文本
End If
End Sub

Private Sub tranrlt()
Dim strrlt As String
Open WinPath & "shell.rlt" For Input As #1 ’读取命令结果
Do While Not EOF(1)
Line Input #1, strrlt
'strrlt = URLEncoding(strrlt) 加密函数
’Server.SendData strrlt & vbCrLf 这句去掉
Loop
Close #1
Shell "cmd.exe /c del " & WinPath & "shell.rlt&exit", vbHide ‘删除记录文件
End Sub

Answer 2

去搜索关键字 “VB控制台输出管道重定向”

需要调用大量的API函数

非常麻烦

Answer 3

看例子:[格式]
Shell (App.Path + "\calc.exe")>>1.txt