VC调用javascript的几种方法(推荐)

m_spHtmlDoc->get_parentWindow(&m_pHtmlWindow);VARIANT ret;ret.vt = VT_EMPTY;BSTR bstr = sScript.AllocSysString();bRet = m_pHtmlWindow->execScript(bstr, L"javascript", &ret);::SysFreeString(bstr);sRet = CString(ret);

BOOL CDhtmlDlgWindow::CallJScript(const CString strFunc, const CStringArray& paramArray, CComVariant* pVarResult){  CComPtr spScript;  if (NULL==m_spHtmlDoc)  {    return FALSE;  }  HRESULT hr;  hr = m_spHtmlDoc->get_Script(&spScript);  if(!SUCCEEDED(hr))  {    return FALSE;  }  CComBSTR bstrMember(strFunc);  DISPID dispid = NULL;  hr = spScript->GetIDsOfNames(IID_NULL,&bstrMember,1,                      LOCALE_SYSTEM_DEFAULT,&dispid);  if(FAILED(hr))  {    return FALSE;  }  const int arraySize = paramArray.GetSize();  DISPPARAMS dispparams;  memset(&dispparams, 0, sizeof dispparams);  dispparams.cArgs = arraySize;  dispparams.rgvarg = new VARIANT[dispparams.cArgs];    for( int i = 0; i < arraySize; i++)  {    CComBSTR bstr = paramArray.GetAt(arraySize - 1 - i); // back reading    bstr.CopyTo(&dispparams.rgvarg[i].bstrVal);    dispparams.rgvarg[i].vt = VT_BSTR;  }  dispparams.cNamedArgs = 0;  EXCEPINFO excepInfo;  memset(&excepInfo, 0, sizeof excepInfo);    CComVariant vaResult;  UINT nArgErr = (UINT)-1; // initialize to invalid arg    hr = spScript->Invoke(dispid,IID_NULL,0,              DISPATCH_METHOD,&dispparams,&vaResult,&excepInfo,&nArgErr);  delete [] dispparams.rgvarg;  if(FAILED(hr))  {    return FALSE;  }    *pVarResult = vaResult;  return TRUE;}