QTP – Testing Multiple Windows Applications

Public Sub AddCustom(arrPropertyValue, sName)
    Dim lngHwnd
 
    Me.sName = sName
    Me.arrPropertyValue = arrPropertyValue
 
    'Retrieve the handle of the specified window
    lngHwnd = GetCustomWindowHwnd()
 
    'If the handle is valid, then add it to the global collection
    If lngHwnd <> -1 Then
        colObject.Add sName, Window("hwnd:=" & lngHwnd)
        If Not oDict.Exists(lngHwnd) Then
            oDict.Add lngHwnd, lngHwnd
        End If
    End If
End Sub

Public Sub LaunchAdd(sFilePath, sName)
    Dim lngHwnd
 
    Me.sFilePath = sFilePath
    Me.sName = sName
 
    'Retrieve the window handle of the recently launched window
    lngHwnd = GetRecentlyOpenWindowHwnd()
 
    'If the handle is valid, then add it to the global collection object
    If lngHwnd <> -1 Then
        colObject.Add sName, Window("hwnd:=" & lngHwnd)
        If Not oDict.Exists(lngHwnd) Then
            oDict.Add lngHwnd, lngHwnd
        End If
    End If
End Sub
 
Private Function GetRecentlyOpenWindowHwnd() 'As Integer
    Dim sFilePath, sName, oDesc, oParent, mHwndDict, x, iTimeElapsed
 
    sFilePath = Me.sFilePath
    sName = Me.sName
 
    GetRecentlyOpenWindowHwnd = -1
 
    On Error Resume Next
 
        'Create a description object
        Set oDesc = Description.Create
 
        'oParent holds references to all the open windows
        Set oParent = Desktop.ChildObjects(oDesc)
 
        'Scripting.Dictionary: holds all open windows' handles
        Set mHwndDict = CreateObject("Scripting.Dictionary")
 
        'Loop until all the handles are successfully added to the collection
        For x = 0 to oParent.Count - 1
            mHwndDict.Add oParent(x).GetROProperty("hwnd"), x
            If Not oDict.Exists(oParent(x).GetROProperty("hwnd")) Then
                oDict.Add oParent(x).GetROProperty("hwnd"), oParent(x).GetROProperty("hwnd")
            End If
        Next
 
        'Launch the target application
        SystemUtil.Run sFilePath
 
        'Loop max 10 seconds for the window to open
        Do
            Set oParent = Desktop.ChildObjects(oDesc)
            For x = 0 to oParent.Count - 1
                Select Case oParent(x).GetTOProperty("micclass")
	       Case "Window", "Dialog"
                        If Not mHwndDict.Exists(oParent(x).GetROProperty("hwnd")) Then
                            GetRecentlyOpenWindowHwnd = oParent(x).GetROProperty("hwnd")
                            Exit Do
                        End If
                End Select
            Next
            Wait(1)
            iTimeElapsed = iTimeElapsed + 1
        Loop Until iTimeElapsed = 10 
 
        Set oDesc = Nothing
        Set oParent = Nothing
        Set mHwndDict = Nothing
 
    On Error Goto 0
End Function

Public Sub AddNew(sName, iTimeOutBeforeWindowOpens)
    Dim oDesc, oParent, x, iTimeElapsed, lngHwnd
 
    'Set default application timeout
    If iTimeOutBeforeWindowOpens = "" Then
        iTimeOutBeforeWindowOpens = 1
    End If
 
    'Create a Description Object
    Set oDesc = Description.Create
 
    'oParent holds all open windows
    Set oParent = Desktop.ChildObjects(oDesc)
 
    'Wait iTimeOutBeforeWindowOpens number of seconds
    'Default iTimeOutBeforeWindow Opens = 1
    Wait(iTimeOutBeforeWindowOpens)
 
    'Loop for 5 seconds
    'If within 5 seconds, a new unadded window is found, the window will
    ' be added to the collection and this procedure will end.
    Do 
        'Create a new collection
        Set oParent = Desktop.ChildObjects(oDesc)
 
        'Loop for all objects in the collection and find a one that does
        'not exist in the global dictionary: colWindows
        For x = 0 to oParent.Count - 1
            If Not oDict.Exists(oParent(x).GetROProperty("hwnd")) Then
                lngHwnd = oParent(x).GetROProperty("hwnd")
                oDict.Add lngHwnd, lngHwnd
                colObject.Add sName, Window("hwnd:=" & lngHwnd)
                Exit Do
            End If
        Next
        Wait(1)
        iTimeElapsed = iTimeElapsed + 1
    Loop Until iTimeElapsed = 5 'This timeout can be minized to 1, if desired
End Sub