QTP @ GetTOProperties / GetTOProperty / SetTOProperty Demo

QTP @ GetTOProperties / GetTOProperty / SetTOProperty Demo

SystemUtil.Run "http://newtours.demoaut.com/"

wait(2)

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

' Demo for the GetTOProperties()

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

'Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("userName")

Set MyEditProps=Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("userName").GetTOProperties()

For i= 0 to MyEditProps.count-1

       strPropertyName=MyEditProps(i).Name

       strPropertyValue=MyEditProps(i).Value

       MsgBox "strPropertyName" &vbTab& strPropertyName &vbTab& "strPropertyValue"&vbTab& strPropertyValue

Next

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

' Demo for the GetTOProperty()

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

MsgBox "Current Text of username:" &vbTab& (Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("userName").GetTOProperty("text"))

Msgbox " Now I am assinging a new text value to the text property of the username"

Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("userName").SetTOProperty "text","QuickTestQTP"

MsgBox "After Changing >> Current Text of username:" &vbTab& (Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("userName").GetTOProperty("text"))

Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("userName").Set "GAReddy"

Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("password").SetSecure "PWD"

Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").Image("Sign-In").Click 16,5

Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").Link("Home").Click

Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours_2").Link("SIGN-OFF").Click

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

' Demo for the GetTOProperties()

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

Set MyLinkProps=Browser("Welcome: Mercury Tours").Page("Sign-on: Mercury Tours").Link("Home").GetTOProperties()

For i= 0 to MyLinkProps.count-1

       strPropertyName=MyLinkProps(i).Name

       strPropertyValue=MyLinkProps(i).Value

       MsgBox "strPropertyName" &vbTab& strPropertyName &vbTab& "strPropertyValue"&vbTab& strPropertyValue

Next

Browser("Welcome: Mercury Tours").Page("Sign-on: Mercury Tours").Link("Home").Click

 

Posted in: QTP - GetTOProperties / GetTOProperty / SetTOProperty Demo