WTL IWebBrowser2调用网页中javascript函数

时间：2015-03-31 19:27:48 阅读：172 评论：0 收藏：0 [点我收藏+]

标签：

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

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

[javascript] view plain copy

2.WebBrowser ActiveX控件成员变量：

[c-sharp] view plain copy

3.在OnInitDialog中

[c-sharp] view plain copy

CAxWindow wndIE = GetDlgItem(IDC_IE);
HRESULT hr;
hr = wndIE.QueryControl(&m_pWb2);
if (m_pWb2)
{
CComVariant v;
m_pWb2->Navigate(CComBSTR(_T("...//test.html")), &v, &v, &v, &v); // 这里地址省略了，注意要用//
}

4.在OnOk函数里测试

[c-sharp] view plain copy

LRESULT OnOK(WORD /*wNotifyCode*/, WORD wID, HWND /*hWndCtl*/, BOOL& /*bHandled*/)
{
// TODO: Add validation code
HRESULT hr;
CComPtr<IDispatch> spdispDoc;
hr = m_pWb2->get_Document(&spdispDoc);
if (FAILED(hr))
{
return hr;
}
CComQIPtr<IHTMLDocument2> spDoc = spdispDoc;
VARIANT ret;
ret.vt = VT_EMPTY;
return WtlCallJavascript(spDoc, CComBSTR("test2()"), &ret);
//CloseDialog(wID); // 屏蔽掉回车关闭对话框
}

上面需要的函数

[c-sharp] view plain copy

LRESULT WtlCallJavascript(CComQIPtr<IHTMLDocument2> htmlDoc, BSTR strCode, VARIANT *pvarRet)
{
HRESULT hr = -1;
if (!(htmlDoc && strCode))
{
return hr;
}
IHTMLWindow2 *pHtmlWnd;
hr = htmlDoc->get_parentWindow(&pHtmlWnd);
if (SUCCEEDED(hr))
{
hr = pHtmlWnd->execScript(strCode, CComBSTR(_T("javascript")), pvarRet);
}
return hr;
}

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

标签：

原文地址：http://www.cnblogs.com/dps001/p/4381531.html

踩

(0)

评论一句话评论（0）

分享档案

更多>

周排行