How To Call Run() Method of the Microsoft Script Control in C++_microsoft script control run-优快云博客

本文介绍如何使用Microsoft Script控件来调用JavaScript或VBScript中定义的函数或子程序。通过设置脚本语言、允许用户界面操作并添加特定脚本到控件中，可以实现跨语言的功能调用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

This article demonstrates how to use the Microsoft Script control to call functions or subroutines defined in JavaScript or VBScript.

The Script control has four methods. One of them is Run(), which runs a subroutine or a function. Before you call this method, specify the language of the script, set AllowUI, and add the following script to the script control:

脚本控件都有四种方法。其中之一是运行子例程或函数的 Run()。调用此方法之前，指定脚本语言，设置 AllowUI，并将下面的脚本添加到脚本控件：

//---------------------- Begin ---------------------------





#include <stdio.h>


#import "C:/winnt/system32/msscript.ocx"  // msscript.ocx 


using namespace MSScriptControl;





int main(void)


{


	HRESULT hr = CoInitialize(NULL);





	IScriptControlPtr pScriptControl(__uuidof(ScriptControl));





	// Create a VARIANT array of VARIANTs which hold BSTRs


	LPSAFEARRAY psa;


	SAFEARRAYBOUND rgsabound[]  = { 3, 0 }; // 3 elements, 0-based


	int i;





	psa = SafeArrayCreate(VT_VARIANT, 1, rgsabound);


	if (!psa)


	{


		return E_OUTOFMEMORY;


	}





	VARIANT vFlavors[3];


	for (i = 0; i < 3; i++)


	{


		VariantInit(&vFlavors[i]);


		V_VT(&vFlavors[i]) = VT_BSTR;


	}





	V_BSTR(&vFlavors[0]) = SysAllocString(OLESTR("Vanilla"));


	V_BSTR(&vFlavors[1]) = SysAllocString(OLESTR("Chocolate"));


	V_BSTR(&vFlavors[2]) = SysAllocString(OLESTR("Espresso Chip"));





	long lZero = 0;


	long lOne = 1;


	long lTwo = 2;





	// Put Elements to the SafeArray:


	hr = SafeArrayPutElement(psa, &lZero,&vFlavors[0]);


	hr = SafeArrayPutElement(psa, &lOne,&vFlavors[1]);


	hr = SafeArrayPutElement(psa, &lTwo,&vFlavors[2]);





	// Free Elements from the SafeArray:


	for(i=0;i<3;i++)


	{


		SysFreeString(vFlavors[i].bstrVal);


	}





	// Set up Script control properties


	pScriptControl->Language = "JScript";


	pScriptControl->AllowUI = TRUE;


	pScriptControl->AddCode(


		"function MyStringFunction(Argu1,Argu2,Argu3)/ 


		{  return /"hi there/" ;}" );





	//  Call MyStringFunction with the two args:


	_variant_t outpar = pScriptControl->Run("MyStringFunction", &psa);


	





	// Convert VARIANT to C string:


	_bstr_t bstrReturn = (_bstr_t)outpar;


	char *pResult = (char *)bstrReturn;








	// Print the result out:


	printf("func=%s/n",pResult);


	


	//  Clean up:


	SafeArrayDestroy(psa);





	CoUninitialize();


	return(0);


}





// --------------- End -----------------------