从 Visual Basic 6 向控制台程序发送命令

Question

我在windows上有一个控制台程序（curl命令行的编译版本），您可以在其中编写命令并返回。我怎样才能发送命令到这个控制台应用程序并将结果返回到VB6？我知道您可以通过 Windows Script Host 使用 DOS 命令来执行此操作，但正如您所看到的，我要运行的命令不在 command.exe 中，

谢谢！

Answer 1

您可以使用 Microsoft.XMLHTTP ActiveX 对象发出 HTTP 请求，如下所示：

Set request = CreateObject("Microsoft.XMLHTTP")
request.open "POST", url, false
request.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
request.send postData
response = request.responseText

Answer 2

Domingo -

嗯，我假设既然您提到了它，您就知道如何使用 WSH 库。您需要的唯一其他信息是执行所需命令的字符串。您可以在 Windows 95/98/Me 中使用此字符串运行 DOS 命令：

Dim sMyCommandLine As String

sMyCommandLine = "command.exe /c MYCOMMAND"

但是，您似乎更有可能使用基于 NT 的操作系统，例如 Windows NT、2000、XP、Vista 或 7，在这种情况下，您应该使用：

sMyCommandLine = "cmd.exe /c MYCOMMAND"

Answer 3

您应该能够将这个curl 东西作为子进程运行，将其标准I/O 流重定向到匿名管道。然而，VB6 中没有任何东西可以直接支持这一点。

一种方法是通过添加对 Windows 脚本宿主对象模型的引用来使用与 WSH 脚本中相同的内容。另一种不产生控制台窗口的更简洁的方法涉及大量 API 调用来创建子进程、管理子进程以及在 VB6 程序中读/写匿名管道。如果您还没有创建用于执行此操作的组件，那么这将是更多工作。

Answer 4

您可以使用Shell函数来启动控制台应用程序，但它不会返回子进程的结果——即批处理脚本中所谓的Errorlevel。

要阻止替换 Shell，您可以 查看此处发布的 ShellWait 函数。