vbscript - 如何单击 Web 表中可用的链接？

Question

我正在尝试单击链接，但是由于WebTable.

所以我创建了我的函数库，这是链接的代码，我正在尝试调用它。我用名字fyi。

Call ClickLink ("sign-in") 



Sub ClickLink(LinkName)

 Set myPage=Browser("title:=.*").Page("title:=.*").Webtable()
 Set wLink = description.Create()  
    wLink("micClass").value="Link"  

    Set allLinks = myPage.ChildObjects(wLink) 
    TotalLinks = allLinks.count() 

    For Iterator = 0 To TotalLinks -1 
        If allLinks(i).GetRoproperty("name") = LinkName Then
            allLinks(i).click
            wait(3) 
            Exit For   

    ElseIf TotalLinks -1 Then 
        reporter.ReportEvent micFail, "Find Link", LinkName 
    End If  
    Next

    Set myPage = Nothing    
    Set wLink = Nothing 
    Set allLinks = Nothing


 End Sub

标签： vbscriptqtphp-uftuft14

Answer 1

不应该以WebTable任何方式干扰识别链接，是什么让您认为它确实如此？在 UFT 中，您可以省略 DOM 层次结构中的中间级别。

从屏幕截图中可以看出该Link对象已经在对象存储库中，请尝试以简单的方式单击它。

 Browser("Register: Mercury Tours").Page("Register: Mercury Tours").Link("sign-in").Click

进一步阅读：了解 HP 统一功能测试 (UFT) 中的 Web 测试对象模型。