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_