从IWebBrowser2获取IHTMLDocument2的Script对象,执行指定的JS脚本

ATL控件嵌入在一个网页内, 在ATL控件内获取网页的IWebBrowser2指针, 并获取对应的网页元素对象, 如Document, Script等

[cpp]  view plain copy
  1. CComPtr<IWebBrowser2>   m_pIWebBrowser;  
  2. CComPtr<IHTMLDocument2>   m_pDocument;  
  3. CComPtr<IDispatch>   m_pScript;  
  4. BOOL GetIWebBrowser()  
  5. {  
  6.    IOleClientSite* pClientSite;  
  7.    GetClientSite(&pClientSite);     
  8.   
  9.    if (pClientSite == NULL)  
  10.      return FALSE;  
  11.    CComQIPtr<IServiceProvider> pISP(pClientSite);  
  12.    if (pISP == NULL)  
  13.      return FALSE;  
  14.    pISP->QueryService(IID_IWebBrowserApp,   IID_IWebBrowser2,(void   **)&m_pIWebBrowser);  
  15.    if (m_pIWebBrowser == NULL)  
  16.      return FALSE;  
  17.    //取得IHTMLDocument2  
  18.    m_pIWebBrowser->get_Document((IDispatch**)&m_pDocument);  
  19.    if (m_pDocument == NULL)  
  20.      return FALSE;  
  21.    //获取脚本对象  
  22.    m_pDocument->get_Script(&m_pScript);  
  23.    if (m_pScript == NULL)  
  24.     return FALSE;  
  25.      
  26.    return TRUE;  
  27. }  
  28.   
  29. //根据获取到的脚本对象, 可执行一段脚本函数  
  30. void InvokeWebScript(BSTR srciptName)  
  31. {  
  32.     CComBSTR bstrMember(srciptName);  
  33.     DISPID dispid;  
  34.     HRESULT hr;  
  35.     if(m_pScript!=NULL)  
  36.     {  
  37.       hr = m_pScript->GetIDsOfNames(IID_NULL,&bstrMember,1,LOCALE_SYSTEM_DEFAULT,&dispid);  
  38.       if (SUCCEEDED(hr))  
  39.       {  
  40.         DISPPARAMS dispparams;  
  41.         memset(&dispparams, 0, sizeof(DISPPARAMS));  
  42.         dispparams.cArgs = 0;  
  43.         dispparams.cNamedArgs = 0;  
  44.   
  45.         EXCEPINFO excepInfo;  
  46.         memset(&excepInfo, 0, sizeof(EXCEPINFO));  
  47.         CComVariant vaResult;  
  48.         // initialize to invalid arg  
  49.         UINT nArgErr = (UINT)-1;  
  50.         // 执行js代码  
  51.         hr = m_pScript->Invoke(dispid,IID_NULL,0,DISPATCH_METHOD,&dispparams,&vaResult,&excepInfo,&nArgErr);  
  52.       }  
  53.     }  
  54. }   

你可能感兴趣的:(从IWebBrowser2获取IHTMLDocument2的Script对象,执行指定的JS脚本)