vc使用script控件执行javascript函数，并得到javascript返回值

JavaScript函数代码：

function A()

{

   return 5;

}

VC代码：       
CScriptControl Test;

CRect rect;

Test.Create("TestScript",0,rect,this,100);

Test.SetLanguage("JavaScript");

CString strStat="function A(){"return 5;"} ret=A();"

Test.AddCode(strStat);

VARIANT A=Test.Eval("ret");

AfxMessageBox(_bstr_t(A));

这样就可以做到脚本与调用程序的交互了