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

<script src="win.js" type="text/javascript"></script>  

遇到一个问题：在用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** )&pElement