从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. }