Question

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

我尝试过像“devicereplay”，“browser.navigate”，“sendkeys”这样的东西，但没有一个能正常工作。不幸的是，由于我的应用程序的性质，我无法提供任何屏幕打印。任何帮助都会非常感激，因为我一直试图解决这个问题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没有识别页面上的任何内容，我决定使用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

Answer 2

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

此类案例的解决方法可在未记录的Browser("...").RefreshWebSupport method中找到，它告诉UFT重新连接到浏览器的DOM。这可能会有所帮助，但由于它没有文件记载，因此无法保证:(

当对象不可见时触发链接单击

2 个答案: