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

在 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, 所以没有提供这个属性.

 

另外参考: