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

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

 

Read More

QTP - Descriptive Programming

QTP - Descriptive Programming 

'####################################################

'# Descriptive Programming Objects > DPWebEdit

'####################################################

Public Sub DPWebEdit (strWebEdit,strInValue)

 If strInValue <> "" Then

  Set obj_WebEdit = Description.Create 

  obj_WebEdit ("Class Name").value = "WebEdit"

  obj_WebEdit ("name").value= strWebEdit                    

  Browser(strBrowser).page(strPage).Sync

  Browser(strBrowser).Page(strPage).WebEdit(obj_WebEdit).Set strInValue

 End If

End Sub

'########################################################

'# Descriptive Programming Objects > DPWebEditSetSecure

'########################################################

Public Sub DPWebEditSetSecure (strWebEdit,strInValue)

  If strInValue <> "" Then

   Set obj_WebEdit = Description.Create 

   obj_WebEdit ("Class Name").value = "WebEdit"

   obj_WebEdit ("name").value= strWebEdit                        

   Browser(strBrowser).page(strPage).Sync                Browser(strBrowser).Page(strPage).WebEdit(obj_WebEdit).SetSecure strInValue

  End If

End Sub

'########################################################

'# Descriptive Programming Objects > DPWebList

'########################################################

Public Sub DPWebList (strWebList,strInValue)

 If strInValue <> "" Then

   Set obj_WebList = Description.Create 

   obj_WebList ("Class Name").value = "WebList"

   obj_WebList ("name").value= strWebList

   Reporter.Filter = 3 'Turn Reporting of

   Call TestListValues (obj_WebList,strInValue) 

   'Check for valid item in list

   Reporter.Filter = 0 'Turn Reporting on   

   Browser(strBrowser).page(strPage).Sync

   Browser(strBrowser).Page(strPage).WebList(obj_WebList).Select strInValue

End If

End Sub

'########################################################

'# Descriptive Programming Objects > DPRadioGroup

'########################################################

Public Sub DPRadioGroup (strWebRadioGroup,strInValue)

Set obj_WebRadioGroup = Description.Create 

obj_WebRadioGroup ("Class Name").value = "WebRadioGroup"

obj_WebRadioGroup ("name").value= strWebRadioGroup     

Browser(strBrowser).page(strPage).Sync

Browser(strBrowser).Page(strPage).WebRadioGroup(obj_WebRadioGroup).Select strInValue

End Sub

'####################################################

'# Descriptive Programming Objects > DPWebImage

'########################################################

Public Sub DPWebImage (strImage)

Set obj_Image = Description.Create 

obj_Image ("Class Name").value = "Image"

obj_Image ("name").value= strImage   

Browser(strBrowser).page(strPage).Sync

Browser(strBrowser).Page(strPage).Image(obj_Image).Click '6,7

End Sub

'####################################################

'# Descriptive Programming Objects > DPWebCheckBox

'########################################################

Public Sub DPWebCheckBox (strWebCheckBox,strInValue)

Set obj_WebRadioGroup = Description.Create 

obj_WebCheckBox ("Class Name").value = "WebCheckBox"

obj_WebCheckBox ("name").value= strWebRadioGroup           

Browser(strBrowser).page(strPage).Sync Browser(strBrowser).Page(strPage).WebCheckBox(obj_WebCheckBox).Select strInValue

End Sub

'####################################################

'# Descriptive Programming Objects > DPWebLink

'########################################################

Public Sub DPWebLink (strWebLink)              

Set obj_WebLink = Description.Create

obj_WebLink ("Class Name").value = "Link"

obj_WebLink ("name").value= strWebLink        

Count = 1

Do until  Browser(strBrowser).Page(strPage).Link(obj_WebLink).Exist

if Browser(strBrowser).Page(strPage).Link(obj_WebLink).Exist Then

Exit Do

End If                               

Count = Count + 1                               

If Count = 20 Then

      Exit Do

end if                   

Loop               

Browser(strBrowser).Page(strPage).Link(obj_WebLink).Click               

End Sub

'####################################################

'# Descriptive Programming Objects > DPWebButton

'########################################################

Public Sub DPWebButton (strWebButton)

Set obj_WebButton = Description.Create 

obj_WebButton ("Class Name").value = "WebButton"

obj_WebButton ("name").value= strWebButton           

Browser(strBrowser).page(strPage).Sync

Browser(strBrowser).Page(strPage).WebButton(obj_WebButton).Click

               

End Sub

'####################################################

Read More