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

发表于 由

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

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

效果非常好，可以说立竿见影。但是随之问题又来了，在登录银行网站时会出现无法打开网页的错误，原来这个Silent把银行的选择证书窗口也给禁止了。
翻了翻MSDN，发现原来这个参数要么都不禁止，要么都禁止……这显然不符合要求
搜索引擎真是个好东西，就在准备放弃的时候发现这么一篇文章CDHtmlDialog探索----WebBrowser扩展和网页Javascript错误处理
这会儿真想对着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, 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。

  1. da shang
    donate-alipay
               donate-weixin weixinpay

发表评论↓↓