Handle Pop Up Dialog Window in Browser

' *************************************************************************
' Function  fnGetPopUpText() 
' This function Get the lable text message from Popup Dialog window in Browser page and enter the label text in Result Excel Sheet
' Note Dialog Window Must be child of  Parent oect
' Input Parameters   := None
' Output(ReturnType) := None
' *************************************************************************

Call fnGetPopUpText()

Public function fnGetPopUpText()

     Set oStaticText =Description.Create()
oStaticText("nativeclass").value ="Static"
oStaticText("text").value =".*[a-z].*"
     Set oWinButton =Description.Create()
oWinButton("micclass").value ="WinButton"

With Window("regexpwndtitle:=Windows Internet Explorer","regexpwndclass:=IEFrame").Dialog("regexpwndtitle:=Windows Internet Explorer","regexpwndclass:=#32770?")

    If .Exist(2) then
.Activate
    Set oStaticText = .ChildObjects(oStaticText)
For i=0 to oStaticText.Count-1
vrDescription =oStaticText(i).GetVisibleText(-1,-1,-1,-1)
Next

    Set oWinbutton = .ChildObjects(oWinbutton)
For i=0 to oWinButton.count-1
oWinButton(i).Click
Exit for
Next
     fnGetPopUpText = vrDescription
End if

End With

End Function

'**********************************************************************************

Public function fnGetPopUpText()
    Set oStaticText =Description.Create()
oStaticText("nativeclass").value ="Static"
oStaticText("text").value =".*[a-z].*"

Set oWinButton =Description.Create()
oWinButton("micclass").value ="WinButton"

With Browser("title:=.*(Page).*").Dialog("text:=Windows Internet Explorer","nativeclass:=#32770?")
If .Exist(2) then
.Activate
Set oStaticText = .ChildObjects(oStaticText)
For i=0 to oStaticText.count-1
vrDescription =oStaticText(i).GetVisibleText(-1,-1,-1,-1)
Next
Set oWinButton = .ChildObjects(oWinButton)
For i=0 to oWinButton.count-1
oWinButton(i).Click
Exit for
Next

fnGetPopUpText = vrDescription
End if
End With
End Function