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

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

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

 

[cpp] view plain copy

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

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

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

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

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

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

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

代码如下：

[cpp] view plain copy

1. CMyControlSite.h  

[cpp] view plain copy

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

[cpp] view plain copy

1. CMyControlSite.cpp  

[cpp] view plain copy

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

对话框头文件加入声明：

[cpp] view plain copy

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

 

对应源文件：

[cpp] view plain copy

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