查了很多的相关资料,有谁知道QTP是如何抓取Scroller Bar?

Dorpnight

具体问题:

当页面加载的内容太长,屏幕出现分屏,用鼠标滚动右边的滚动条,QTP无法获取到这个对象,有什么好的方法没有?请指教!我查了虚拟对象,它不支持滚动条

wssgily

你想实现什么功能呢?是上下托动Scroller Bar?还是别的,要是上下托动,我可能有方法

wssgily

用sendkeys

Dorpnight

真的?!!!太好了, 就是上下拖动的功能

wssgily

原帖由 Dorpnight 于 2007-1-31 17:49 发表
真的?!!!太好了, 就是上下拖动的功能

但是有一点,不知你发现没有,当你mouse或者焦点在输入栏或者文本框内,这种做法是不行的.

Dorpnight

我现在关注的是整个页面的上下拖动功能,你能不能告诉我如何实现?

你所说的可以用别的方法,我先解决了这个问题再帮你看看,因为这个现在急需要解决,你所说的以前我再Robot里实现过的

wssgily

原帖由 Dorpnight 于 2007-1-31 20:10 发表
我现在关注的是整个页面的上下拖动功能,你能不能告诉我如何实现?

你所说的可以用别的方法,我先解决了这个问题再帮你看看,因为这个现在急需要解决,你所说的以前我再Robot里实现过的

用sendkeys就能实现上下托动啊,只是托动的时候,你要定义到点击几下.

Dorpnight

代码如何实现啊?
我查了帮助,也试运行了,怎么也不能通过,请大侠赐教啊

wssgily

就是实现滚动条上下动是不?注意mouse或者焦点不能在输入栏或者文本框内

for j=1 to 5                            '一共来回托动5次

for i=1 to 10                          '这是往下托动
Set aa = CreateObject("WScript.Shell")
aa.SendKeys "{down}"        
next   

for i=1 to 10                          '这是往上托动
Set aa = CreateObject("WScript.Shell")
aa.SendKeys "{up}"        
next                     
next

Dorpnight

Browser(" Login").Page(" Login").WebEdit("Login1$txtUserName").Set "aa"
Browser(" Login").Page(" Login").WebEdit("Login1$txtPassword").SetSecure "aa"
Browser(" Login").Page(" Login").WebList("Login1$lstDatabase").Select "UnitTest"
Browser(" Login").Page(" Login").Image("Login1$lblLogin").Click 15,7
Browser(" Central").Page(" Central").Link("CSR").Click

'下面这段是我写的跑不下去:
<script language="VBScript">
set WshShell =CreateObject("WScript.Shell")
WshShell.SendKeys "{PGDN}"　　　　　
</script>



Browser(" Central").Page("Customers Module").Link("Contacts").Click
Browser(" Central").Page("Customers Module").WebButton("ctl00$bodyCPH$udcBody$udcTabSt").Click
Browser(" Central").Page("Customers Module").WebElement("Add Contacts").Click
Browser(" Central").Window("Add Contacts -- Web Page").Page("Add Contacts").Frame("mainIF").WebList("ctl00$bodyCPH$ucContacts$cboCa").Select "TRANSMISSION - ANALOGUE"
Browser(" Central").Window("Add Contacts -- Web Page").Page("Add Contacts").Frame("mainIF").WebList("ctl00$bodyCPH$ucContacts$cboCo").Select "Phone Call"
Browser(" Central").Window("Add Contacts -- Web Page").Page("Add Contacts").Frame("mainIF").WebList("ctl00$bodyCPH$ucContacts$cboCo_2").Select "Captured"
Browser(" Central").Window("Add Contacts -- Web Page").Page("Add Contacts").Frame("mainIF").Image("WebResource").Click
Browser(" Central").Window("Add Contacts -- Web Page").Window("Order Advance Search --").Page("Order Advance Search").Frame("mainIF").WebEdit("ctl00$bodyCPH$ucOrderAdvanceSe").Set "5"
Browser(" Central").Window("Add Contacts -- Web Page").Window("Order Advance Search --").Page("Order Advance Search").Frame("mainIF").WebButton("Search").Click
Browser(" Central").Window("Add Contacts -- Web Page").Window("Order Advance Search --").Page("Order Advance Search").Frame("mainIF").WebElement("Select").Click
Browser(" Central").Window("Add Contacts -- Web Page").Page("Add Contacts").Frame("mainIF").WebButton("Ok").Click
Browser(" Central").Page("Customers Module").WebButton("ctl00$bodyCPH$udcBody$udcTabSt_2").Click
Browser(" Central").Page("Customers Module").Sync
Browser(" Central").Close
Browser(" Login").Page(" Login_2").Sync

wssgily

原帖由 Dorpnight 于 2007-2-1 15:39 发表
Browser(" Login").Page(" Login").WebEdit("Login1$txtUserName").Set "aa"
Browser(" Login").Page(" Login").WebEdit("Login1$txtPassw ...

'下面这段是我写的跑不下去:
'<script language="VBScript">
set WshShell =CreateObject("WScript.Shell")
WshShell.SendKeys "{DOWN}"　　　　　
'</script>

换成这样后,滚动条肯定会有变化的。

Dorpnight

谢谢wssgily

再向你你请教一个问题

我如何在webtabel里取到这个tabel里的值?如图:

紫色圈住的是webtable,我要取Contacts,就是红色圈住的那个值,因为一个tabel被挤的太小,我没办法用你说的那种方法取到contacts,帮我看看吧,我自己研究了几天都没办法实现

wssgily

图在哪?

Dorpnight

图片里要实现的步骤:

1 拖动右侧的滚动条
2 可点击Contacts

谢谢

Dorpnight

发上来了,呵呵,谢谢

wssgily

可以试一下
.....webtable("name").childitem()
.....webtable("name").getcelldata()

childitem,getcelldata你看下帮助试试吧。

Dorpnight

好的,呵呵,谢谢!!

Dorpnight

这个问题我用录制的方法解决了,谢谢你!!太感谢了!!

QTP好像不能识别Web Page Dialog啊,是吗?

你有什么好的方法吗?

wssgily

原帖由 Dorpnight 于 2007-2-5 18:03 发表
这个问题我用录制的方法解决了,谢谢你!!太感谢了!!

QTP好像不能识别Web Page Dialog啊,是吗?

你有什么好的方法吗?

不明白你说的什么意思?

Dorpnight

这是我的代码

Browser("Browser").Window("Contacts -- Web Page Dialog").Page("Contacts").Frame("mainIF").Check CheckPoint("mainIF")


每次运行到这里就不行了, 因为这句相对应的是一个.net下弹出的gridview,其实就是Web Page Dialog,不知道它为什么不能运行下去