QTP - 如何使用函数将值传递给Object的Property的值？

Question

假设我需要创建一个函数，如下所示：

Function CheckLink(name1,href1)
    if Browser(..).Page(..).Link("name:=name1","href:=href1").Exist Then
    Print "URL Exists"
End Function

我有一个7-8个测试链接，其中只有这些值发生变化。

但上面的函数抛出错误，因为值name1和href1仅被视为name1和href1，它们的值不会通过函数传递。

请说明编写上述代码的正确方法。

感谢。

Answer 1

怎么样

Function CheckLink(name1,href1)
    if Browser(..).Page(..).Link("name:=" & name1,"href:=" & href1).Exist Then
    Print "URL Exists"
End Function

或者，您可以创建一个Description对象实例，并将属性值放在那里。这将消除字符串连接：

Dim D: set D=Description.Create
D.Add "name", name1
D.Add "href", href1
Dim O: Set O=Browser(..).Page(..).Link(D)

HTHS。