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

Question

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

我尝试过诸如“devicereplay”、browser.navigate、sendkeys之类的东西，但它们都不起作用。不幸的是，由于我的应用程序的性质，我无法提供任何屏幕打印。任何帮助将不胜感激，因为我已经尝试解决这个问题两天了，但没有成功。

代码

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