各位达人，问一个qtp录web需要scrollbar操作的问题

tonyrain

各位达人，问一个qtp录web需要scrollbar操作的问题

ie version: 7.0
qtp version: 9.0

工作原因，需要把web上所有的区域都抓到screenshot，但是现在qtp录不到scrollbar。也察看了一些以前类似问题的帖子，不过试了以后好像都没有搞定。
我是想通过调用某种方法能得到整个page的height，然后每次pagedown的时候把当前scrollbar postion跟整个page height比较，来控制scrollbar能到达最下端，来抓每一页的screenshot。但是现在没找到能取到整个page height的方法，scrollbar也不能用doscroll()来进行控制。
用window("HWND:="&WinID).WinObject("nativeclass:=Internet Explorer_Server").Type micPgDwn倒是可以实现翻页，但是不能判断是不是翻到最后一页。
百思不得其解，各位达人帮看一下是什么问题，多谢了！！   
qtp script:
Dim str_browser_name,str_page_name
        Dim pageobj '//定义画面对象
        Set pageobj = Browser("BrowserName").Page("iSQL*Plus Help").Frame("main") '//画面对象赋值
        print "overflow="&pageobj.Object.body.currentStyle.overflow
        print "overflowx="&pageobj.Object.body.currentStyle.overflowx
        print "overflowy="&pageobj.Object.body.currentStyle.overflowy
        print "scrollhight="&pageobj.object.body.scrollHeight
        print "scrolltop="&pageobj.object.body.scrollTop
        print "clientHeight="&pageobj.object.body.clientHeight
        print "offsetheight="&pageobj.object.body.offsetheight
        print "object's scrollLeft="&pageobj.object.body.scrollLeft
         pageobj.object.body.doScroll("scrollbarPageDown")  '//这句没work

print返回值如下：
overflow=visible
overflowx=visible
overflowy=visible
scrollhight=718
scrolltop=0
clientHeight=718
offsetheight=718
object's scrollLeft=0

[ 本帖最后由 tonyrain 于 2008-1-25 16:41 编辑 ]

frankwangzy1103

如果只要到最下面的话，用Ctrl+End好了
Set WshShell = CreateObject("WScript.Shell")
WshShell.sendkeys "^{END}"

tonyrain

是要抓所有的screenshot，不是只要最后一页

那位达人能给提供点四路？ 谢谢

hellen_ma

超级期待中