WebBrowser控件——设置滚动条位置

 

遇到一个问题：在用WebBrowser控件打开网页后，让网页中的滚动条滚动到最底部。

在网上找到了方法：用DCOM组件技术，获取HTML接口指针。（前一阵做调用网页中的JavaScript函数也是采用这种技术）。代码如下：

boolput_scrollTop()

{

         HRESULT hr;

         CComPtr <IDispatch > spDisp;

         IHTMLDocument2 *spDoc = NULL;

         spDisp = m_objWebBrowser.GetDocument();

         hr = spDisp->QueryInterface( IID_IHTMLDocument2, ( void** )&spDoc );

         ASSERT( SUCCEEDED( hr ) );

 

         IHTMLElement* pElement = NULL;

         hr = spDoc->get_body( &pElement );

         ASSERT( SUCCEEDED( hr ) );

 

         IHTMLElement2* pElement2 = NULL;

         hr = pElement->QueryInterface( IID_IHTMLElement2, ( void** )&pElement2 );

         ASSERT( SUCCEEDED( hr ) );

         // 获得网页中滚动条的全部高度

         long scrollTop;