QTP往下拉IE的滚动条

QTP下拉IE滚动条的方法：

1、

Dim pageobj '//定义画面对象
Set pageobj = Browser("百度搜索_helloworld").Page("百度搜索_helloworld")'//画面对象赋值
pageobj.RunScript("scroll(0,document.body.scrollHeight);")

2、

x = Browser("b").Page("p").WebElement("WebElement").GetROProperty("width")
 y = Browser("b").Page("p").WebElement("WebElement").GetROProperty("height")
 Browser("b").Page("p").WebElement("WebElement").Drag x,100
 Browser("b").Page("p").WebElement("WebElement").Drop x,y
点击：
x_ = Browser("b").Page("p").SlvWindow("s").SlvButton("bt").GetROProperty("x")+10
 y_= Browser("b").Page("p").SlvWindow("s").SlvButton("bt").GetROProperty("y")+10
 Browser("b").Page("p").WinObject("MicrosoftSilverlight").Click x_,y_