在VC里调用javascript - VC/MFC / 基础类

void CWEHelperDlg::OnOK(){
CString code;

//调用VBSCRIPT，能弹出消息框,也能正确返回 hello
code = "function main()\r\n\tMsgBox \"ok\"\r\n\tmain=\"hello\"\r\nend function";

//调用Javascript，无法弹出消息框，返回值只是几个无法正常显示的字符(我跟踪了内存位置，确实不是我想要的结果
//code = "function main(){\r\n\talert('ok');\r\n\treturn 'hello'; \r\n}";

_variant_t ret = eval(code);
AfxMessageBox((CString)ret.bstrVal);
}

_variant_t CWEHelperDlg::eval(CString code){
_variant_t vReturn;
::IScriptControlPtr p(__uuidof(ScriptControl)); 
p.AddRef(); 
CString str = code;
str.MakeLower();
BOOL bVBScript = str.Find("end sub")>=0||str.Find("end function")>=0;
p->put_Language(_bstr_t(bVBScript?"VBScript":"JavaScript"));
p->AddCode(_bstr_t(code)); 
p->Eval(_bstr_t("main"), &vReturn); 
p->Release(); 
return vReturn; 
}

---

up

---

ding...