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

遇到一个问题：在用WebBrowser控件打开网页后，让网页中的滚动条滚动到最底部。<?xml:namespace prefix = o />

在网上找到了方法：用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;

pElement2->get_scrollHeight( &scrollTop );

// 设置滚动条与顶端的偏移量

pElement2->put_scrollTop( scrollTop );

}

在实现的过程中又发现另外一个问题，对于有多个Frame的网页，上面的方法不好用，于是采用了下面的方法：

 

boolput_scrollTop( IDispatch* pDisp )

{

HRESULT hr;

IHTMLDocument2 *spDoc = NULL;

IHTMLElementCollection* pCollection;

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

if ( FAILED( hr ) )

{

return false;

}

hr = spDoc->get_all(&pCollection);     

if ( FAILED( hr ) )

{

return false;

}

long len;     

hr = pCollection->get_length(&len);     

if ( FAILED( hr ) )

{

return false;

}

// 遍历所有的元素

for (long l=0; l <len; l++)     

{     

VARIANT varIndex, var2;     

VariantInit(&varIndex);     

VariantInit(&var2);     

varIndex.vt = VT_I4;     

varIndex.lVal = l;     

IDispatch* spDisp = NULL;     

pCollection->item( varIndex, var2, &spDisp );     

IHTMLElement* pElem;     

spDisp->QueryInterface( IID_IHTMLElement, (LPVOID*) &pElem );     

CComBSTR tagName;     

pElem->get_tagName(&tagName);     

CString str = tagName;     

str.MakeUpper(); 

//if ( str.Compare( _T( "IFRAME" ) ) == 0 || str.Compare( _T( "FRAME" ) ) == 0 )     

{     

IHTMLElement2* pElement2 = NULL;

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

if ( FAILED( hr ) )

{

return false;

}

long lScrollHeight;

hr = pElement2->get_scrollHeight( &lScrollHeight );

if ( FAILED( hr ) )

{

return false;

}

hr = pElement2->put_scrollTop( lScrollHeight );

if ( FAILED( hr ) )

{

return false;

}

pElement2->Release();

}     

pElem->Release();   

spDisp->Release();

}     

pCollection->Release();

spDoc->Release();

return true;

}