在C++中调用Jscript/VBscript中的函数

在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);