Question

在VC++中调用VBS程序，并且需要得到这个VBS程序的返回值，怎么做，

我需要在执行一个VBS程序之后得到这个VBS程序的返回值，我现在已经能够让我的程序执行一个VBS程序 但是就是不知道怎么让这个VBS程序返回我需要的值啊！希望那个高手来解释一下，不用给我讲太多理论，直接给我一个小程序，然后执行要求说一下就行了，我的是环境VC6.0

Answer 1

没有过多的理论, 但有些内容是必要的.

在 C++ 中执行一段 Script 的方法相当的多, 但你需要其返回值, 这可能需要使用 MS 提供的 MSScript.ocx (在 C++ 中引用该 ActiveX Object).

先来个例子, 假定一段 VBScript 的过程如下:
Private Function GetValue()
GetValue=5
End Function

你期望在 C++ 中执行此过程, 并将返回值 5 保存到 C++ 中定义的变量中.
这好办, 在 C++ 需要引用 MSScript.ocx, 以下是一个Win32 Console Application (控制台程式, 但这与本主题无关):

main.cpp

#include <windows.h>
#include <stdio.h>
#import "D:\WINDOWS\System32\msscript.ocx" raw_interfaces_only, raw_native_types, no_namespace, named_guids

int main()
{
_variant_t vReturn; // Script 的返回值, Script 是返回 Variant 的
short returnValue; // 从返回值提取有用的值, 因为例子返回 5, 所以用 short 保存
::CoInitialize(NULL);

::IScriptControlPtr p(__uuidof(ScriptControl));
p.AddRef();
p->put_Language(_bstr_t("VBScript")); // 必要, Script 为 VBScript, 当然还可以是 JScript 等
p->put_AllowUI(TRUE); // 可选, 若 VBScript 出现对话框, 并希望在响应之前, C++ 的窗口要等待, 则用 TRUE
p->AddCode(_bstr_t("Private Function GetValue()\nGetValue=5\nEnd Function"));
p->Eval(_bstr_t("GetValue"), &vReturn); // 执行过程, 另还有 Run 和 ExecuteStatement 方法, 但这是关联返回值的.
returnValue = vReturn.iVal; // 因为例子返回 5, 所以使用 _variant_t 的 iVal
p->Release();

printf("%d\n", returnValue);
system("pause");

return 0;
}

执行之后, GetValue 过程的返回值 5 就保存到了 returnValue 中.

----------------------------
关键是使用 MSScript.ocx

需要注意的是:
本例使用了 ::CoInitialize 来初始化 ocx 提供的内容, 但没有使用 ::CoUninitialize (因为这会导致出问题)
所以使用 AddRef 和 Release.

-----
-----
一点错误, 在上面出现, 现在指出:
p.AllowUI(TRUE); // 这个应是允许 Script 有 UI
而等待 C++ 窗口的属性应是 SiteHWnd
即 p->put_SiteHWnd(hwnd);
由于这个例子用 Console, 所以没有提供这个属性.