是否可以使用 VBScript 自动将对象添加到对象存储库?
假设我的网页/应用程序中有链接列表。当我手动添加对象时,这会很耗时,所以我尝试自动将对象添加到存储库。但无法继续,因为我不知道如何在 QTP 中激活对象存储库(在运行时)。
以下是我尝试过的代码:
Function Objects_Count(myObject)
Dim Objects
Set Objects=Description.Create
Objects("micclass").value=myObject
set obj=Browser("title:=.*").Page("title:=.*").ChildObjects(Objects)
For i=0 to obj.count-1
'msgbox i
c=obj(i).getroproperty("name")
If obj(i).Exist(1) Then
obj(i).highlight
End If
Print c
Next
End Function
Call Objects_Count("link")
上面的代码将获取显示在日志文件中的链接名称,并且它将在应用程序/网页中突出显示。请指导我如何将该链接(对象)的属性添加到对象存储库。
谢谢!