51Testing软件测试论坛

标题: 各位达人，问一个qtp录web需要scrollbar操作的问题 [打印本页]

作者: tonyrain 时间: 2008-1-25 15:54
标题: 各位达人，问一个qtp录web需要scrollbar操作的问题
各位达人，问一个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 时间: 2008-1-25 17:34
如果只要到最下面的话，用Ctrl+End好了
Set WshShell = CreateObject("WScript.Shell")
WshShell.sendkeys "^{END}"

作者: tonyrain 时间: 2008-1-28 11:04
标题: 是要抓所有的screenshot，不是只要最后一页
是要抓所有的screenshot，不是只要最后一页

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

作者: hellen_ma 时间: 2008-2-22 10:33
超级期待中

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)