关于MFC项目中使用WebBrowser控件禁止脚本错误的方法

最近一个项目中要在对话框上使用WebBrowser控件进行页面浏览，但在开发过程中发现WebBrowser控件会在浏览一些页面的时候出现JavaScript脚本错误，严重影响用户体验，而在IE和其他第三方浏览器中均没有这个现象。于是搜索一下发现原来可以通过下面的代码禁止这个错误提示：

 

1. m_WebBrowser.put_Silent(TRUE);//禁止脚本错误提示  

效果非常好，可以说立竿见影。但是随之问题又来了，在登录银行网站时会出现无法打开网页的错误，原来这个Silent把银行的选择证书窗口也给禁止了.

翻了翻MSDN，发现原来这个参数要么都不禁止，要么都禁止……这显然不符合要求

 

搜索引擎真是个好东西，就在准备放弃的时候发现这么一篇文章  CDHtmlDialog探索----WebBrowser扩展和网页Javascript错误处理 作者：thinkingfor

这会儿真想对着thinkingfor鞠一个大大的躬，真的。

因为一直都搞不懂COM这个东西，所以就抱着试试看的想法把thinkingfor的代码加进工程一编译，除了少数头文件等改动以外，完美运行。

 

为了备忘也希望能给遇到相同问题的人一点帮助，故将编译通过的代码列出，环境vs2008 + xp

代码如下：

 

CMyControlSite.h  

 

1. #pragma once   
2. #include "afxocc.h"   
3. #include "Mshtml.h"//应该加入这个头文件   
4. #include "Mshtmhst.h"//这个也是   
5. class CMyControlSite :public COleControlSite  
6. {  
7. public:  
8.     CMyControlSite(COleControlContainer *pCntr):COleControlSite(pCntr) {}  
9.     ~CMyControlSite(void);  
10. protected:  
11.     DECLARE_INTERFACE_MAP()    
12.     BEGIN_INTERFACE_PART(OleCommandTarget, IOleCommandTarget)    
13.         STDMETHOD(QueryStatus)(const GUID *pguidCmdGroup, ULONG cCmds, OLECMD prgCmds[], OLECMDTEXT *pCmdText);    
14.         STDMETHOD(Exec)(const GUID* pguidCmdGroup, DWORD nCmdID, DWORD nCmdexecopt, VARIANTARG* pvaIn, VARIANTARG* pvaOut);    
15.     END_INTERFACE_PART(OleCommandTarget)    
16. };  

 

 

CMyControlSite.cpp  

（OLECMDID 信息参看下篇博文）   

1. #include "StdAfx.h"    
2. #include "MyControlSite.h"
3.    
4. BEGIN_INTERFACE_MAP(CMyControlSite, COleControlSite)    
5.     INTERFACE_PART(CMyControlSite, IID_IOleCommandTarget, OleCommandTarget)  
6. END_INTERFACE_MAP()    
7.   
8.   
9.   
10. CMyControlSite::~CMyControlSite(void)  
11. {  
12. }  
13.   
14. HRESULT CMyControlSite::XOleCommandTarget::Exec    
15. (const GUID* pguidCmdGroup, DWORD nCmdID,    
16.  DWORD nCmdexecopt, VARIANTARG* pvaIn, VARIANTARG* pvaOut )    
17. {    
18.     HRESULT hr = OLECMDERR_E_NOTSUPPORTED;    
19.     //return S_OK;     
20.     if (pguidCmdGroup && IsEqualGUID(*pguidCmdGroup, CGID_DocHostCommandHandler))    
21.     {    
22.   
23.         switch (nCmdID)     
24.         {    
25.   
26.         case OLECMDID_SHOWSCRIPTERROR:    
27.             {    
28.                 IHTMLDocument2*             pDoc = NULL;    
29.                 IHTMLWindow2*               pWindow = NULL;    
30.                 IHTMLEventObj*              pEventObj = NULL;    
31.                 BSTR                        rgwszNames[5] =     
32.                 {     
33.                     SysAllocString(L"errLine"),    
34.                     SysAllocString(L"errCharacter"),    
35.                     SysAllocString(L"errCode"),    
36.                     SysAllocString(L"errMsg"),    
37.                     SysAllocString(L"errUrl")    
38.                 };    
39.                 DISPID                      rgDispIDs[5];    
40.                 VARIANT                     rgvaEventInfo[5];    
41.                 DISPPARAMS                  params;    
42.                 BOOL                        fContinueRunningScripts = false;  //修改此处为false禁止脚本错误提示   
43.   
44.                 params.cArgs = 0;    
45.                 params.cNamedArgs = 0;    
46.                   
47.                 hr = pvaIn->punkVal->QueryInterface(IID_IHTMLDocument2, (void **) &pDoc);        
48.                    
49.                 hr = pDoc->get_parentWindow(&pWindow);    
50.                 pDoc->Release();    
51.                   
52.                 hr = pWindow->get_event(&pEventObj);    
53.                   
54.                 for (int i = 0; i < 5; i++)     
55.                 {      
56.                       
57.                     hr = pEventObj->GetIDsOfNames(IID_NULL, &rgwszNames[i], 1,     
58.                         LOCALE_SYSTEM_DEFAULT, &rgDispIDs[i]);    
59.                   
60.                     hr = pEventObj->Invoke(rgDispIDs[i], IID_NULL,    
61.                         LOCALE_SYSTEM_DEFAULT,    
62.                         DISPATCH_PROPERTYGET, ¶ms, &rgvaEventInfo[i],    
63.                         NULL, NULL);    
64.                     //可以在此记录错误信息                    //必须使用SysFreeString来释放SysAllocString分配的内存,SysAllocString在分配的内存中记录了字符的长度   
65.                     SysFreeString(rgwszNames[i]);    
66.                 }    
67.   
68.                 // At this point, you would normally alert the user with      
69.                 // the information about the error, which is now contained     
70.                 // in rgvaEventInfo[]. Or, you could just exit silently.     
71.   
72.                 (*pvaOut).vt = VT_BOOL;    
73.                 if (fContinueRunningScripts)    
74.                 {    
75.                     // 在页面中继续执行脚本    
76.                     (*pvaOut).boolVal = VARIANT_TRUE;    
77.                 }    
78.                 else   
79.                 {    
80.                     // 停止在页面中执行脚本     
81.                     (*pvaOut).boolVal = VARIANT_FALSE;       
82.                 }     
83.                 break;    
84.             }    
85.         default:    
86.             hr =OLECMDERR_E_NOTSUPPORTED;   
87.             break;    
88.         }    
89.     }    
90.     else   
91.     {    
92.         hr = OLECMDERR_E_UNKNOWNGROUP;  
93.     }    
94.     return (hr);    
95. }    
96.   
97.   
98. ULONG FAR EXPORT CMyControlSite::XOleCommandTarget::AddRef()     
99. {     
100.     METHOD_PROLOGUE(CMyControlSite, OleCommandTarget)     
101.         return pThis->ExternalAddRef();     
102. }     
103.   
104.   
105. ULONG FAR EXPORT CMyControlSite::XOleCommandTarget::Release()     
106. {     
107.     METHOD_PROLOGUE(CMyControlSite, OleCommandTarget)     
108.         return pThis->ExternalRelease();     
109. }     
110.   
111. HRESULT FAR EXPORT CMyControlSite::XOleCommandTarget::QueryInterface(REFIID riid, void **ppvObj)     
112. {     
113.     METHOD_PROLOGUE(CMyControlSite, OleCommandTarget)     
114.         HRESULT hr = (HRESULT)pThis->ExternalQueryInterface(&riid, ppvObj);     
115.     return hr;     
116. }    
117.   
118. STDMETHODIMP CMyControlSite::XOleCommandTarget::QueryStatus(     
119.      const GUID __RPC_FAR *pguidCmdGroup,     
120.      ULONG cCmds,     
121.      OLECMD __RPC_FAR prgCmds[ ],     
122.      OLECMDTEXT __RPC_FAR *pCmdText     
123.     )     
124. {     
125.     METHOD_PROLOGUE(CMyControlSite, OleCommandTarget)     
126.         return OLECMDERR_E_NOTSUPPORTED;     
127. }     

对话框头文件加入声明：

 

1. virtual BOOL CreateControlSite(COleControlContainer* pContainer,   
2.         COleControlSite** ppSite, UINT  nID , REFCLSID  clsid );  

 

对应源文件：

 

1. BOOL CXDlg::CreateControlSite(COleControlContainer* pContainer,   
2.         COleControlSite** ppSite, UINT  nID , REFCLSID  clsid )  
3. {  
4.         if(ppSite == NULL)  
5.     {  
6.         ASSERT(FALSE);  
7.         return FALSE;  
8.     }  
9.   
10.     CMyControlSite *pBrowserSite =   
11.         new CMyControlSite (pContainer);//   
12.     if (!pBrowserSite)  
13.         return FALSE;  
14.   
15.     *ppSite = pBrowserSite;  
16.     return TRUE;  
17. }  

此外，thinkingfor原文中为CDHtmlDialog，同样适用于CDialog.

再次感谢thinkingfor