WTL IWebBrowser2调用网页中javascript函数

转自:http://blog.csdn.net/tujiaw/article/details/6556880

1.简单的含有js的网页:

 

[javascript] view plaincopy
 
  1. <html>  
  2.     <head>  
  3.     <mce:script type = "text/javascript"><!--  
  4.     function test(){  
  5.     document.write("hello world!");  
  6.     }  
  7.     function test2(){  
  8.     alert("hello, world");  
  9.     }  
  10.     function link(){  
  11.     window.location.href = "http://www.baidu.com";  
  12.     }  
  13.     test();  
  14.       
  15. // --></mce:script>  
  16.     </head>  
  17.     <body>  
  18.         <p><a href = "javascript:link()">this is js link</a></p>  
  19.     </body>  
  20. </html>  

 

2.WebBrowser ActiveX控件成员变量:

 

[c-sharp] view plaincopy
 
  1. CComPtr<IWebBrowser2> m_pWb2;   

 

3.在OnInitDialog中

 

[c-sharp] view plaincopy
 
  1. CAxWindow wndIE = GetDlgItem(IDC_IE);     
  2. HRESULT hr;     
  3. hr = wndIE.QueryControl(&m_pWb2);     
  4. if (m_pWb2)     
  5. {     
  6.     CComVariant v;     
  7.     m_pWb2->Navigate(CComBSTR(_T("...//test.html")), &v, &v, &v, &v);   // 这里地址省略了,注意要用//  
  8. }   

 

4.在OnOk函数里测试

 

[c-sharp] view plaincopy
 
  1. LRESULT OnOK(WORD /*wNotifyCode*/, WORD wID, HWND /*hWndCtl*/, BOOL& /*bHandled*/)  
  2.     {  
  3.         // TODO: Add validation code   
  4.         HRESULT hr;  
  5.         CComPtr<IDispatch> spdispDoc;     
  6.         hr = m_pWb2->get_Document(&spdispDoc);  
  7.         if (FAILED(hr))     
  8.         {     
  9.             return hr;     
  10.         }     
  11.         CComQIPtr<IHTMLDocument2> spDoc = spdispDoc;  
  12.           
  13.         VARIANT ret;  
  14.         ret.vt = VT_EMPTY;  
  15.         return WtlCallJavascript(spDoc, CComBSTR("test2()"), &ret);  
  16.         //CloseDialog(wID); // 屏蔽掉回车关闭对话框  
  17.     }  

 

上面需要的函数

 

[c-sharp] view plaincopy
 
  1. LRESULT WtlCallJavascript(CComQIPtr<IHTMLDocument2> htmlDoc, BSTR strCode, VARIANT *pvarRet)  
  2. {  
  3.     HRESULT hr = -1;  
  4.     if (!(htmlDoc && strCode))  
  5.     {  
  6.         return hr;  
  7.     }  
  8.     IHTMLWindow2 *pHtmlWnd;  
  9.     hr = htmlDoc->get_parentWindow(&pHtmlWnd);  
  10.     if (SUCCEEDED(hr))  
  11.     {  
  12.         hr = pHtmlWnd->execScript(strCode, CComBSTR(_T("javascript")), pvarRet);  
  13.     }  
  14.     return hr;  
  15. }  

 

运行程序后它会打开我们的html网页, 然后按Enter键会弹出hello, world小的提示窗口说明js里的那个函数执行了。

 

插入WebBrowser控件的方法可以看这里:WTL 通过IWebBrowser2接口使WebBrowser控件在自己的窗口打开网页

郑重声明:本站内容如果来自互联网及其他传播媒体,其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享,并不代表本站赞同其观点和对其真实性负责,也不构成任何其他建议。