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

Question

我正在使用UFT 12.51在IE11上自动化基于Web的应用程序.这是我的场景:
我必须经过几页才能完成我正在尝试自动化的过程(准确地说是9页).在第4页上,我单击一个打开框架的链接(作为弹出窗口).我输入所需信息,然后单击按钮提交关闭框架的信息,并将我返回到浏览器的第4页.这是我的问题开始的地方:此时UFT停止识别页面上的任何元素.它认为有一个页面,但不知道它有任何子'可见'对象.如果我再次手动点击链接再次显示框架并关闭框架,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