QTP - Descriptive Programming

QTP - Descriptive Programming

OneTestingCenter @ QTP @ Descriptive Programming @ Static and Dynamic Types

'@@@@@@@@@@@@@@@@@@@@@@@@@@

'Static DP

'@@@@@@@@@@@@@@@@@@@@@@@@@@

Browser("name:=Google").Page("title:=Google").WebEdit("name:=q").Set "GAReddy"

Browser("name:=Google").Page("title:=Google").WebButton("name:=btnG").Click

'@@@@@@@@@@@@@@@@@@@@@@@@@@

' Dynamic DP

'@@@@@@@@@@@@@@@@@@@@@@@@@@

Set oWebEdit=Description.Create()

oWebEdit("micClass").Value="WebEdit"

Set oPage=Browser("name:=.*").Page("title:=.*")

Set TotaloWebEdit=oPage.ChildObjects(oWebEdit)

msgBox TotaloWebEdit.Count

'oWebEdit("name").Value="login"

'Browser("name:=.*").Page("title:=.*").WebEdit(oWebEdit).Set "GAReddy"

'@@@@@@@@@@@@@@@@@@@@@@@@@@

'Descriptive Programing Examples - Static

'~~~~~~~~~~~~~~~~~~~~~~~~~~

'@@@@@@@@@@@@@@@@@@@@@@@@@@

'@@@@@@@@@@@@@@@@@@@@@@@@@@

'How to get Google page information 

'title

'URL

'hwnd

'@@@@@@@@@@@@@@@@@@@@@@@@@@

Set GooglePage=Browser("name:=Google").Page("title:=Google")

MsgBox GooglePage.GetROProperty("title")

MsgBox GooglePage.GetROProperty("url")

MsgBox GooglePage.GetROProperty("hwnd")

'@@@@@@@@@@@@@@@@@@@@@@@@@@

'How to get any Web App information - Static

'title

'URL

'hwnd

'@@@@@@@@@@@@@@@@@@@@@@@@@@

'Set GooglePage=Browser("name:=.*").Page("title:=.*")

Set GooglePage=Browser("micClass:=Browser","CreationTime:=0").Page("micClass:=Page")

'Set GooglePage=Browser("URL:=www.gmail.com").Page("micClass:=Page")

MsgBox GooglePage.GetROProperty("title")

MsgBox GooglePage.GetROProperty("url")

MsgBox GooglePage.GetROProperty("hwnd")

'@@@@@@@@@@@@@@@@@@@@@@@@@@

' Close All the Opened Browser before test - Static

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

'@@@@@@@@@@@@@@@@@@@@@@@@@@

Set oBrowser=Browser("name:=.*")

If oBrowser.Exist(5) Then

oBrowser.CloseAllTabs

End If

'@@@@@@@@@@@@@@@@@@@@@@@@@@

' Close All the Opened Browsers before test - Dynamic

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

'@@@@@@@@@@@@@@@@@@@@@@@@@@

Set oBrowser=Description.Create()

oBrowser("micClass").value="Browser"

Set AllBrowsers=Desktop.ChildObjects(oBrowser)

MsgBox "Total Browsers opened on the desktop are :"&vbtab & AllBrowsers.count

For i= 0 to AllBrowsers.count-1

msgBox "Browser Name" & i &vbtab & AllBrowsers(i).GetROProperty("name")

AllBrowsers(i).Close

Next

'@@@@@@@@@@@@@@@@@@@@@@@@@@

 

Posted in: QTP - Descriptive Programming