In this post I will try to describe step by step how to create a function which checks for a dialog box and will also click on the button within it:
Firstly we will create a class which we'll be calling on our need:
' creating the generic function
Public Function DialogBox
Set DialogBox = New QTPDialogBox
End Function
' defining the class
Class QTPDialogBox
Public Function CheckDialogBox (obj_DialogWindowId, obj_DialogWindowStyle, obj_StaticWindowId, obj_StaticText)
' defining the Dialog object's properties
Set obj_Dialog = Description.Create
obj_Dialog ("micclass").value = "Dialog"
obj_Dialog ("nativeclass").value = "#32770"
obj_Dialog ("text").value= "Microsoft Internet Explorer"
obj_Dialog ("window id").value= obj_DialogWindowId
obj_Dialog ("windowstyle").value= obj_DialogWindowStyle
' defining the Static object's properties
Set obj_Static = Description.Create
obj_Static ("micclass").value = "Static"
obj_Static ("window id").value= obj_StaticWindowId
obj_Static ("text").value= obj_StaticText
With Browser("URL:=" & Environment.Value("baseUrl"))
.Sync
'check if the dialog box exists
If .Dialog(obj_Dialog).Static(obj_Static).exist Then
' set a variable for the "text" property of Static object to be compared with the text value inserted by a user
DialogMessage = .Dialog(obj_Dialog).Static(obj_Static).GetRoproperty("text")
Dim Comparison
If Comparison = StrComp(Trim(obj_StaticText), Trim(DialogMessage), 0) Then
Reporter.ReportEvent micPass, "PASS", "The Dialog box is present on the screen, and the text from it is: '" & DialogMessage & "', it is the same as: '" & obj_StaticText & "'"
' click OK in dialog box
.Dialog(obj_Dialog).WinButton("text:=OK", "regexpwndclass:=Button", "window id:=2").Click
Else
Reporter.ReportEvent micFail, "Fail", "The Dialog box is present on the screen, and the text from it is: '" & DialogMessage & "', it is not the same as: '" & obj_StaticText "'"
End If
Else
Reporter.ReportEvent micFail, "FAIL", "There is no Dialog box present on the screen!"
End If
End with
End Function
End Class
[Notes]
Now we can call this Function within our test in the next way:
' check if the dialog box contains the correct text and click on OK button
DialogBox.CheckDialogBox "0", "-1798831675", "65535", "Functionality not implemented in this release"
' (obj_DialogWindowId, obj_DialogWindowStyle, obj_StaticWindowId, obj_StaticText) --- those are the properties added using Object Repository Manager
Bookmark It
Hide Sites
Firstly we will create a class which we'll be calling on our need:
' creating the generic function
Public Function DialogBox
Set DialogBox = New QTPDialogBox
End Function
' defining the class
Class QTPDialogBox
Public Function CheckDialogBox (obj_DialogWindowId, obj_DialogWindowStyle, obj_StaticWindowId, obj_StaticText)
' defining the Dialog object's properties
Set obj_Dialog = Description.Create
obj_Dialog ("micclass").value = "Dialog"
obj_Dialog ("nativeclass").value = "#32770"
obj_Dialog ("text").value= "Microsoft Internet Explorer"
obj_Dialog ("window id").value= obj_DialogWindowId
obj_Dialog ("windowstyle").value= obj_DialogWindowStyle
' defining the Static object's properties
Set obj_Static = Description.Create
obj_Static ("micclass").value = "Static"
obj_Static ("window id").value= obj_StaticWindowId
obj_Static ("text").value= obj_StaticText
With Browser("URL:=" & Environment.Value("baseUrl"))
.Sync
'check if the dialog box exists
If .Dialog(obj_Dialog).Static(obj_Static).exist Then
' set a variable for the "text" property of Static object to be compared with the text value inserted by a user
DialogMessage = .Dialog(obj_Dialog).Static(obj_Static).GetRoproperty("text")
Dim Comparison
If Comparison = StrComp(Trim(obj_StaticText), Trim(DialogMessage), 0) Then
Reporter.ReportEvent micPass, "PASS", "The Dialog box is present on the screen, and the text from it is: '" & DialogMessage & "', it is the same as: '" & obj_StaticText & "'"
' click OK in dialog box
.Dialog(obj_Dialog).WinButton("text:=OK", "regexpwndclass:=Button", "window id:=2").Click
Else
Reporter.ReportEvent micFail, "Fail", "The Dialog box is present on the screen, and the text from it is: '" & DialogMessage & "', it is not the same as: '" & obj_StaticText "'"
End If
Else
Reporter.ReportEvent micFail, "FAIL", "There is no Dialog box present on the screen!"
End If
End with
End Function
End Class
[Notes]
Environment.Value("baseUrl") = it's your URL, which is defined into a XML config file, for e.g.: http://google.com/.*; see the XML variable below:
<Variable>
<Name>baseUrl</Name>
<Value>http://google.com/.*</Value>
<Description>This variable is used to identify the browser's URL</Description>
</Variable>
In this XML file, we can also have the user name, password, and a lot of general data which can be also called when it need.
To create the descriptions for Static and Dialog objects, use the Object Repository Manager.
Now we can call this Function within our test in the next way:
' check if the dialog box contains the correct text and click on OK button
DialogBox.CheckDialogBox "0", "-1798831675", "65535", "Functionality not implemented in this release"
' (obj_DialogWindowId, obj_DialogWindowStyle, obj_StaticWindowId, obj_StaticText) --- those are the properties added using Object Repository Manager
Bookmark It
Hide Sites
I agree with your post, the Introduction of automation testing product shortens the development life cycle. It helps the software developers and programmers to validate software application performance and behavior before deployment. You can choose testing product based on your testing requirements and functionality. QTP Training In Chennai
ReplyDeleteHi, you have given really informative post. Thanks for sharing this post to our vision. Suppose if anyone interested to get QTP Training in Chennai, reach us besant technologies. Rated as No.1 IT training and placement institute in Chennai.
ReplyDelete