怎样滚动Webbrowser!100分(100分)

怎样发送消息使Webbrowser自动上下滚动呢？

postmessage(webbrowser.handle,wm_char,vk_down);

var
htmldoc: IHTMLDocument2;
wb: tembeddedwb;
begin
WB := GetVisibleWebBrowser;
if wb <> nil then
begin
htmldoc := wb.Document as IHTMLDocument2;
MaxScrollHeight := htmldoc.body.getAttribute('ScrollHeight', 0);
ScrollHeight := ScrollHeight + scrspeed;
if ScrollHeight < MaxScrollHeight then
htmldoc.Get_ParentWindow.ScrollBy(0, scrspeed)
end ;
end;

uses mshtml;

var
　Doc: IHTMLDocument2;
begin
Doc :=WebBrowser1.Document as IHTMLDocument2;
Doc.Get_ParentWindow.Scroll(x,y);
end; ^^^你要滚动的位置

多人接受答案了。

TO honghs and unreal:
请问你们在《怎样发送消息使Webbrowser自动上下滚动呢？》中，你们给出的代码应该
放在哪个事件中，是在什么情况下它才滚动？