当对象不可见时触发 Link 次点击

Question

我正在使用 UFT 12.51 在 IE11 上自动化基于 Web 的应用程序。这是我的场景：
我必须浏览几页才能完成我试图自动化的过程（准确地说是 9 页）。在第 4 页上，我单击 link 打开一个框架（作为弹出窗口）。我输入所需的信息，然后单击按钮提交关闭框架和 returns 我到浏览器上的第 4 页的信息。这是我的问题开始的地方：此时 UFT 停止识别页面上的任何元素。它发现有一个页面，但没有识别出它有任何子 'visible' 对象。如果我再次手动单击 link 以再次显示框架并关闭框架，UFT 将再次开始识别页面上的对象。当 link 对 UFT 不可见时，有没有一种方法可以触发 link 单击（我有 URL）再次打开框架？如果我能做到这一点，我将能够关闭框架，页面上的对象将再次可见。希望 :)

我已经尝试过 'devicereplay'、browser.navigate、sendkeys 之类的东西，但其中 none 可以正常工作。不幸的是，由于我的应用程序的性质，我无法提供任何屏幕打印。任何帮助将不胜感激，因为我已经尝试解决这个问题 2 天了，但没有运气。

代码

Dim oDR : Set oDR = CreateObject("Mercury.DeviceReplay")
' Lets get the X and Y chordinates for 'Next Step' button
Dim iX, iY

iX = Browser("MyBrowser").Page("MyPage").Link("NextStep").GetROProperty("x") + 5
iY = Browser("MyBrowser").Page("MyPage").Link("NextStep").GetROProperty("y") + 5

If MyFunction(dCurrVals, sErrorMsg) Then
    LOG_ReportEvent "PASS", "Set Investment/Allocate", "Successfully initialised page"
Else
    LOG_ReportEvent "FAIL", "Set Investment/Allocate", sError
End If

'Browser("MyBrowser").Page("MyPage").Object.body.doscroll "scrollbarPageUP"
wait(1)

oDR.MouseMove iX, iY
oDR.MouseClick iX, iY, 0

Set oDR = Nothing

Browser("MyBrowser").RefreshWebSupport
Wait(1)
Browser("MyBrowser").Page("MyPage").Link("Search")
'Browser("MyBrowser").Navigate "MyURL"
'Browser("MyBrowser").Page("MyPage").Sync
'Browser("MyBrowser").Page("MyPage").Link
'Wait(1)
'Browser("MyBrowser").Page("MyPage").Link("Search")
'Browser("MyBrowser").Page("MyPage").WebElement("Search").FireEvent "onclick"

注意
出于安全原因，我更改了对象的名称，但上面的代码只是我尝试过的示例。 dCurrVals 是一个字典对象，它在函数调用之前被预填充

Answer 1

这听起来像是 UFT 中的错误，您应该联系 HPE 的支持。

此类情况的解决方法在未记录的 Browser("...").RefreshWebSupport method 中可用，它告诉 UFT re-connect 到浏览器的 DOM。这可能会有所帮助，但由于它没有记录，因此无法保证:(

Answer 2

经过大量研究，我找到了解决这个问题的办法。我想不出另一种方法来解决这个问题。我想我会把它放在这里以防其他人遇到同样的问题

接近
由于 UFT 无法识别页面上的任何内容，我决定使用 InsightObject。使用 InsightObject 的优点是只要对象可见，UFT 就会在页面上找到它。具有讽刺意味的是，这也是一个缺点：对象必须在屏幕上可见。所以我决定编写下面的 UDF。 UDF 移动到页面顶部，然后搜索 InsightObject。如果未找到该对象，它会将页面向下移动并再次搜索该对象。它重复此过程，直到找到对象或达到计数器限制。如果找到 InsightObject，它会单击该对象，然后检查页面上的指定对象。

UDF

Public Function EnablePage(ByVal oInsightObject, ByVal oCheckObject, ByVal iPgMoveCount ByRef sError)
    LOG_Write vbNewLine & "EnablePage"

    Dim oWS: Set oWS = CreateObject("WScript.shell")
    Dim iC
    Dim bFoundIO

    ' Set default values
    EnablePage = True
    bFoundIO = False

    ' Move to the top of the page
    For iC = 1 To CInt(iPgMoveCount)
        oWS.SendKeys "{PGUP}"
        Wait 0, 500
    Next

    ' Navigate to the bottom of the page to find the object
    For iC = 1 To CInt(iPgMoveCount)
        ' Check if Insight object exists
        If oInsightObject.Exist(1) Then
            bFoundIO = True
            oInsightObject.Click
            Wait 0, 500
            Exit For
        Else
            oWS.SendKeys "{PGDN}"
            Wait 0, 500
        End If
    Next

    ' Check if Insight object was found
    If bFoundIO Then
        ' Check if object to check is visible
        If Not oCheckObject.Exist(2) Then
            EnablePage = False
            sError = "Clicked on Insight Object but unable to find the object to check"
        End If
    Else
        EnablePage = False
        sError = "Unable to find the Insight Object"
    End If

    ' Clear objects
    Set oWS = Nothing

End Function

当对象不可见时触发 Link 次点击

Trigger a Link Click When an Object is Not Visible

vbscript

qtp

hp-uft