ActiveX组件与JavaScript交互

1．在COM组件中调用JavaScript函数// 连接点方式页面javascript脚本// 事件属性方式页面javascript脚本function onState(s){        alert("onState(" + s + ")");        return 456;}var o = new ActiveXObject("TestATL.TestCom");o.onstaTe=onState;o.FireStateEvent("Hello");// Com组件VC7.1 ATL代码__interface _ITestComEvents{        [id(1), helpstring("State事件")] HRESULT State([in] BSTR str);};__event __interface _ITestComEvents;IDispatchPtr m_onState;        // 事件属性STDMETHOD(get_onState)(IDispatch** pVal) {        *pVal = m_onState;        return S_OK;};STDMETHOD(put_onState)(IDispatch* newVal) {        m_onState = newVal;        return S_OK;};STDMETHOD(FireStateEvent)(BSTR str) {        __raise State(str);        // 激发连接点事件        CComVariant result;        CComVariant avarParams[1] = {str};        DISPPARAMS dispParams = {avarParams, NULL, 1, 0};        EXCEPINFO excepInfo;        memset(&excepInfo, 0, sizeof excepInfo);        UINT nArgErr = (UINT)-1;      // initialize to invalid arg        if (m_onState)        // 激发属性事件            HRESULT hr = m_onState->Invoke(0, IID_NULL, LOCALE_USER_DEFAULT,                DISPATCH_METHOD, &dispParams, &result, &excepInfo, &nArgErr);        return S_OK;}参见：How To Call a Script Function from a VC WebBrowser Application如何在COM object中使用 Javascript function object?在COM组件中调用JavaScript函数2．从页面javascript向Com组件传递结构数组// 页面脚本var o = new ActiveXObject("TestATL.TestCom");o.onstaTe=onState;o.Put("array", {0: 123, 1: "abc"});o.Put("array", [456, "def"]);o.Put("array", [{name: "tom", age: 8}, {name: "jack", age: 10}]);var a = new Array(789, "ghi"); // has "length" propertyo.Put("array", a);// Com组件VC7.1 ATL代码STDMETHODIMP CTestCom::Put(BSTR key, VARIANT value){WCHAR output[4096] = L"";if(0 == wcsicmp(key, L"array") && VT_DISPATCH == value.vt){     IDispatchPtr spDisp = value.pdispVal;     DISPID dispID = 0;     DISPPARAMS dispParams = {NULL, NULL, 0, 0};     CComVariant result;     EXCEPINFO excepInfo;     memset(&excepInfo, 0, sizeof excepInfo);     UINT nArgErr = (UINT)-1; // initialize to invalid arg     unsigned int length = 0; // 数组长度 或 属性 个数     LPOLESTR func = L"length";     HRESULT hr = spDisp->GetIDsOfNames(GUID_NULL, &func, 1, LOCALE_SYSTEM_DEFAULT, &dispID);     if(S_OK == hr){       // 如果有"length"属性      hr = spDisp->Invoke(dispID, IID_NULL, LOCALE_USER_DEFAULT,DISPATCH_PROPERTYGET, &dispParams, &result, &excepInfo,&nArgErr);      if(S_OK == hr && VT_I4 == result.vt)       length = result.intVal;       // 直接读取数组长度     }else{      unsigned int nTypeInfo = 0;      hr = spDisp->GetTypeInfoCount(&nTypeInfo);      ATLASSERT(1 == nTypeInfo);      ITypeInfoPtr spTypeInfo;      hr = spDisp->GetTypeInfo(0, 0, &spTypeInfo);      TYPEATTR *pTypeAttr = NULL;      hr = spTypeInfo->GetTypeAttr(&pTypeAttr);      //ATLASSERT("{C59C6B12-F6C1-11CF-8835-00A0C911E8B2}" == pTypeAttr->guid);     // JScript:      length = pTypeAttr->cVars;       // 从类型信息读取数组长度      spTypeInfo->ReleaseTypeAttr(pTypeAttr);     }     for(unsigned int i=0; i     {      WCHAR buf[32];      _itow(i, buf, 10);      func = buf;      hr = spDisp->GetIDsOfNames(GUID_NULL, &func, 1, LOCALE_SYSTEM_DEFAULT, &dispID);      hr = spDisp->Invoke(dispID, IID_NULL, LOCALE_USER_DEFAULT,DISPATCH_PROPERTYGET, &dispParams, &result, &excepInfo,&nArgErr);      if(S_OK != hr)       continue;      if(VT_DISPATCH == result.vt){       IDispatchPtr spItem = result.pdispVal;       func = L"name";       hr = spItem->GetIDsOfNames(GUID_NULL, &func, 1, LOCALE_SYSTEM_DEFAULT, &dispID);       hr = spItem->Invoke(dispID, IID_NULL, LOCALE_USER_DEFAULT,DISPATCH_PROPERTYGET, &dispParams, &result, &excepInfo,&nArgErr);       if(S_OK == hr && VT_BSTR == result.vt)        swprintf(output + wcslen(output), L"name=%s", result.bstrVal);       func = L"age";       hr = spItem->GetIDsOfNames(GUID_NULL, &func, 1, LOCALE_SYSTEM_DEFAULT, &dispID);       hr = spItem->Invoke(dispID, IID_NULL, LOCALE_USER_DEFAULT,DISPATCH_PROPERTYGET, &dispParams, &result, &excepInfo,&nArgErr);       if(S_OK == hr && VT_I4 == result.vt)        swprintf(output + wcslen(output), L" age=%d\n", result.intVal);      }else if(VT_BSTR == result.vt)       swprintf(output + wcslen(output), L"BSTR:%s\n", result.bstrVal);      else if(VT_I4 == result.vt)       swprintf(output + wcslen(output), L"I4:%d\n", result.intVal);      else       swprintf(output + wcslen(output), L"item.vt=%d\n", result.vt);     }}FireStateEvent(output);return S_OK;}3．枚举IE窗口的内容，并调用其中的脚本#import        // Internet Explorer 5#import        SHDocVw::IShellWindowsPtr spSHWinds;        spSHWinds.CreateInstance(__uuidof(SHDocVw::ShellWindows));        long nCount = spSHWinds->GetCount();        IDispatchPtr spDisp;        for (long i = 0; i        {         _variant_t va(i, VT_I4);         spDisp = spSHWinds->Item(va);         SHDocVw::IWebBrowser2Ptr spBrowser(spDisp);         if (spBrowser != NULL)         {          _bstr_t location = spBrowser->GetLocationName();          if(_bstr_t(L"Test DapCtrl") == location)       // 找指定IE窗口          {           IHTMLDocument2Ptr spDoc(spBrowser->GetDocument());           if (spDoc != NULL)           {            _bstr_t exp = m_onState;            IDispatch *pdis = NULL;            hr = spDoc->get_Script(&pdis);            if(pdis){             DISPID tmpDispID = 0;             LPOLESTR func = L"Test"; // javascript 函数名             hr = pdis->GetIDsOfNames(GUID_NULL, &func, 1, LOCALE_SYSTEM_DEFAULT, &tmpDispID);             if(S_OK == hr)              hr = pdis->Invoke(tmpDispID, IID_NULL, LOCALE_USER_DEFAULT,               DISPATCH_METHOD, &dispParams, &result, &excepInfo, &nArgErr);            }           }          }         }        }参见：HOWTO: Connect to a Running Instance of Internet ExplorerActiveX组件与JavaScript交互ActiveX组件控制其所在的IE窗口4．在VC中执行脚本#import        // msscript.ocxusing namespace MSScriptControl;        IScriptControlPtr pScriptControl(__uuidof(ScriptControl));        LPSAFEARRAY psa;        SAFEARRAYBOUND rgsabound[]       = { 1, 0 }; // 1 elements, 0-based        int i;        psa = SafeArrayCreate(VT_VARIANT, 1, rgsabound);        if (!psa)        {         return E_OUTOFMEMORY;        }        VARIANT vFlavors[1];        for (i = 0; i        {         VariantInit(&vFlavors[i]);         V_VT(&vFlavors[i]) = VT_BSTR;        }        V_BSTR(&vFlavors[0]) = SysAllocString(bstr);        long lZero = 0;        hr = SafeArrayPutElement(psa, &lZero,&vFlavors[0]);        for(i=0;i        {         SysFreeString(vFlavors[i].bstrVal);        }        pScriptControl->Language = "JScript";        pScriptControl->AllowUI = TRUE;        _bstr_t exp = L"1+2+3";        _variant_t outpar = pScriptControl->Eval(exp);        //_variant_t outpar = pScriptControl->ExecuteStatement(exp);        //_variant_t outpar = pScriptControl->Run("MyStringFunction", &psa);        _bstr_t bstrReturn = (_bstr_t)outpar;        char *pResult = (char *)bstrReturn;        SafeArrayDestroy(psa);