MFC WebBrowser控件如何实现滚动条滑动

最近在写一个自动刷流量的程序，用到了WebBrowser 控件，通过该控件往程序嵌入一个IE浏览器，MFC中如何嵌入该控件可以看下参考链接1。

由于要自动刷流量，所以就要模仿用户平时浏览网页的习惯，也就是打开网页，然后慢慢向下滚动鼠标。在程序中我是通过滑动右侧滚动条实现的。刚开始我的代码是参照链接3给的，不过该代码在有些网页下实现不了滚动条滑动，也就是没反应。我上网Google了下，发现好多人也遇到类似情况，比如链接2与链接4中的内容，不过都没人给出答案。我自己也试了好多种方法，比如修改WebBrowser的IE版本，最后也都是以失败告终。

过了几天在Google上搜索，无意间看到一段代码，试了下，有效果，在不同类型网页下都可以顺利滚动。哈哈哈。废话不多说，直接上代码：

void XXXXDlg::autoScroll()
{
HRESULT hr;
//m_MyIE为我们的WebBrowser控件绑定的变量
IDispatch *pDisp = m_MyIE.get_Document();
// get document interface
IHTMLDocument2 *pDocument = NULL;
hr = pDisp->QueryInterface( IID_IHTMLDocument2, (void**)&pDocument );
// take the body element from document...
IHTMLElement *pBody = NULL;
hr = pDocument->get_body( &pBody );
// from body we can get element2 interface,
// which allows us to do scrolling
IHTMLElement2 *pElement = NULL;
hr = pBody->QueryInterface(IID_IHTMLElement2,(void**)&pElement);
IHTMLDocument3 *pDocument3 = NULL;
IHTMLElement2 *pElement2 = NULL;
hr = pDisp->QueryInterface( IID_IHTMLDocument3, (void**)&pDocument3 );
IHTMLElement *docelmt = NULL;
hr = pDocument3->get_documentElement(&docelmt);
hr = docelmt->QueryInterface(IID_IHTMLElement2,(void**)&pElement2);
// now we are ready to scroll
long crvsrollpos,crvsrollpos2,scrolltop;
hr = pElement->get_scrollTop( &crvsrollpos );
hr = pElement2->get_scrollTop( &crvsrollpos2 ); 
scrolltop=crvsrollpos+crvsrollpos2; 
// scroll down to 100th pixel from top 
hr = pElement->put_scrollTop(100); 
hr = pElement2->put_scrollTop(100);
}