在C++中调用Jscript/VBscript的函数非常简单,Windows提供了一个msscript.ocx的控件,利用这个控件可以直接操作Jscript/VBscript: 执行一段Jscript/VBscript脚本,或者调用指定的函数。以下是一个简单的例子:
1、 导入msscript.ocx。下面这条指令会在项目目录中生成msscript.tli和msscript.tlh两个文件,里面有msscript.ocx中所有接口的描述和IID的定义。
#import "msscript.ocx"no_namespace
2、 声明一个对象。
CComPtr m_iScriptControl;
3、 创建对象实例
if(SUCCEEDED(m_iScriptControl.CoCreateInstance(__uuidof(ScriptControl))))
4、设置语言等属性。
m_iScriptControl->PutLanguage(L"JScript");
m_iScriptControl->PutAllowUI(VARIANT_FALSE);
5、 加入Jscript代码。
m_iScriptControl->AddCode(L"function test(str1, str2) { return str1 + /"-ok-/" + str2; }");
6、 获得函数,这里要说明的是GetItem的参数是1到n,而不是0到n-1。
CComPtr aProcedureSet= m_iScriptControl->GetProcedures();
long n= aProcedureSet->GetCount();
CComPtr aProcedure= aProcedureSet->GetItem(_variant_t(n));
_bstr_t strFunction= aProcedure->GetName();
7、 准备函数参数。
VARIANT va= {0};
va.vt= VT_BSTR ;
n= 2;
SAFEARRAYBOUND bounds[1] = {0};
bounds[0].cElements= n
SAFEARRAY* psa= SafeArrayCreate(VT_VARIANT, 1, bounds);
long i= 0;
for(i= 0; i< n; i++)
{
va.bstrVal= SysAllocString(L"test");
SafeArrayPutElement(psa, &i, &va);
}
8、 调用函数。
_variant_tResult= m_iScriptControl->Run(strFunction, &psa);
9、 释放参数。
for(i= 0; i< n; i++)
{
va.bstrVal= SysAllocString(L"test");
SafeArrayGetElement(psa, &i, &va);
SysFreeString(va.bstrVal);
}
SafeArrayDestroy(psa);
1、 导入msscript.ocx。下面这条指令会在项目目录中生成msscript.tli和msscript.tlh两个文件,里面有msscript.ocx中所有接口的描述和IID的定义。
#import "msscript.ocx"no_namespace
2、 声明一个对象。
CComPtr m_iScriptControl;
3、 创建对象实例
if(SUCCEEDED(m_iScriptControl.CoCreateInstance(__uuidof(ScriptControl))))
4、设置语言等属性。
m_iScriptControl->PutLanguage(L"JScript");
m_iScriptControl->PutAllowUI(VARIANT_FALSE);
5、 加入Jscript代码。
m_iScriptControl->AddCode(L"function test(str1, str2) { return str1 + /"-ok-/" + str2; }");
6、 获得函数,这里要说明的是GetItem的参数是1到n,而不是0到n-1。
CComPtr aProcedureSet= m_iScriptControl->GetProcedures();
long n= aProcedureSet->GetCount();
CComPtr aProcedure= aProcedureSet->GetItem(_variant_t(n));
_bstr_t strFunction= aProcedure->GetName();
7、 准备函数参数。
VARIANT va= {0};
va.vt= VT_BSTR ;
n= 2;
SAFEARRAYBOUND bounds[1] = {0};
bounds[0].cElements= n
SAFEARRAY* psa= SafeArrayCreate(VT_VARIANT, 1, bounds);
long i= 0;
for(i= 0; i< n; i++)
{
va.bstrVal= SysAllocString(L"test");
SafeArrayPutElement(psa, &i, &va);
}
8、 调用函数。
_variant_tResult= m_iScriptControl->Run(strFunction, &psa);
9、 释放参数。
for(i= 0; i< n; i++)
{
va.bstrVal= SysAllocString(L"test");
SafeArrayGetElement(psa, &i, &va);
SysFreeString(va.bstrVal);
}
SafeArrayDestroy(psa);