QTP – Descriptive Programing – Examples

QTP – Descriptive Programing – Examples

OneTestingCenter @ QTP @ Descriptive Programming @ Start up Script

‘@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

‘ QTP – Descriptive Programing – Examples

‘@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

'Browser("MyBrowser").Page("MyPage").WebEdit("MySearchBox").Set "GAReddy"

'Browser("MyBrowser").Page("MyPage").WebButton("btnG").Click

'wait(5)

‘@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

' Descriptive Programing - without OR

‘@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

‘@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

' Google App - Example

‘@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

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

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

Wait(4)

Browser("name:=.*").CloseAllTabs

‘@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

' Gmail App - Example

‘@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

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

oPage.WebEdit("name:=Email").Set "GAReddy"

oPage.WebEdit("name:=passwd").Set "GAReddy"

oPage.WebButton("name:=Sign In").Click

wait(5)

‘@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

' Yahoo App - Example

‘@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

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

YahooApp.WebEdit("name:=login").Set "ONETESTINGCENTER"

YahooApp.WebEdit("name:=passwd").Set "ONETESTINGCENTER"

YahooApp.WebButton("name:=Sign in").Click

wait(5)

‘@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

Set oPage=Browser("name:=.*","CreationTime:=0").page("title:=.*")

oPage.WebEdit("name:=Email").Set "GAReddy"

oPage.WebEdit("name:=passwd").Set "GAReddy"

oPage.WebButton("name:=Sign In").Click

wait(5)

‘@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

‘@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

 

Read More

QTP – Descriptive Programing – Any Web App - Working with Web Check Boxes

QTP – Descriptive Programing – Any Web App - Working with Web Check Boxes

OneTestingCenter @ QTP @ Descriptive Programming @ Web Check Boxes @ DP Script

‘@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

‘ Any Web App – Working with Web Check Boxes

‘ QTP – Descriptive Programing – Working with Web Check Boxes

‘@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

Set oWebCheckBox=Description.Create()

oWebCheckBox("micClass").value="WebCheckBox"

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

Set oWebCheckBoxAll=oPage.ChildObjects(oWebCheckBox)

MsgBox "Total Number of Check Boxes on the page are " &vbtab & oWebCheckBoxAll.Count

For i= 0 to oWebCheckBoxAll.Count-1

msgBox "Check Box Name" &vbtab & i &vbtab & oWebCheckBoxAll(i).GetROProperty("value")

' oWebCheckBoxAll(i).Set "ON"

oWebCheckBoxAll(i).Set "OFF"

wait(2)

Next

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

oPage.WebCheckBox("value:=Technology,10,").Set "ON"

'oPage.WebCheckBox("value:="& WebCheckBoxName).Set "ON"

‘@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

‘ Any Web App – Working with Web Check Boxes

‘@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

Read More

QTP - Descriptive Programming - Any Web App - Working with Web List-boxes

QTP - Descriptive Programming - Any Web App - Working with Web List-boxes

OneTestingCenter @ QTP @ Descriptive Programming @ Working with Web Lists

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

'Any Web App - Working with any list box

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

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

Set oWebList=Description.Create()

oWebList("micClass").Value="WebList"

oWebList("Html Tag").Value="Select"

'oWebList("Index").Value="0"

Set AllWebList=oPage.ChildObjects(oWebList)

MsgBox "AllWebList" & vbtab & AllWebList.Count

For i= 0 to AllWebList.Count-1

MsgBox AllWebList(i).GetROProperty("name")

WebListItemsCount=oPage.WebList("Index:=0").GetROProperty("Items Count")

MsgBox WebListItemsCount

Next

For i= 0 to WebListItemsCount-1

oPage.WebList("Index:=0").Select(i)

' wait(2)

If oPage.WebList("Index:=1").Exist(5) Then

SecondListItemsCount=oPage.WebList("Index:=1").GetROProperty("Items Count")

For j=0 to SecondListItemsCount-1

oPage.webList("Index:=1").Select(j)

          Next

End If

Next

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

'Any Web App - Working with any list box

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

Read More

QTP - Descriptive Programming - Broken Link Checking

OneTestingCenter @ QTP @ Descriptive Programming @ Broken Link Checking

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

' QTP – DP - Broken Link Checker tool for Any Web App

‘ Broken Link Check – Descriptive Programing

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

On Error Resume Next

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

DataTable.AddSheet "dtLinkName"

DataTable.GetSheet("dtLinkName").AddParameter "LinkName",""

DataTable.GetSheet("dtLinkName").AddParameter "PageTitle",""

Set oLink=Description.Create()

oLink("micClass").value="Link"

Set AllLinks=oPage.ChildObjects(oLink)

PageTitle=oPage.GetROProperty("title")

MsgBox "Total Number of links on the page: " &vbtab & PageTitle &vbtab & AllLinks.Count

For i= 0 to AllLinks.Count-1

DataTable.GetSheet("dtLinkName").SetCurrentRow(i+1)

DataTable.Value("LinkName","dtLinkName")=AllLinks(i).GetROProperty("name")

Next

RC=DataTable.GetSheet("dtLinkName").GetRowCount

For i= 1 to RC

DataTable.GetSheet("dtLinkName").SetCurrentRow(i)

LinkName=DataTable.Value("LinkName","dtLinkName")

oPage.Link("name:="& LinkName).Click

wait(2)

MyPageTitle=oPage.GetROProperty("title")

' msgBox MyPageTitle

DataTable.Value("PageTitle","dtLinkName")=MyPageTitle

If MyPageTitle<>"404 Error Page" or MyPageTitle<>"500 Internal Server Error" or MyPageTitle<>"Page Can't be found"  and MyPageTitle=DataTable.Value() Then

Reporter.ReportEvent micPass, "Link works good", "Clicked on Link" & LinKName

Else

Reporter.ReportEvent micFail, "Link does not work good", "Link is BROKEN " & LinKName

End If

Browser("name:=.*").Back

' SystemUtil.Run AppURL

Wait(3)

Next

Read More

QTP - Descriptive Programing - Dynamic Object Repository Creation

QTP - Descriptive Programing - Dynamic Object Repository Creation

OneTestingCenter @ QTP @ Descriptive Programming @ Dynamic Object Repository Creation

‘@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

' Create a Dynamic Object Repository for  any Web App – Model 1

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

‘@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

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

'PageTitle=oPage.GetROProperty("title")

DataTable.AddSheet "dtAppOR"

DataTable.GetSheet("dtAppOR").AddParameter "ObjectNo",""

DataTable.GetSheet("dtAppOR").AddParameter "ObjectClass",""

DataTable.GetSheet("dtAppOR").AddParameter "ObjectName",""

DataTable.GetSheet("dtAppOR").AddParameter "ObjectHtmlTag",""

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

Set oObj=Description.Create()

Set AllObjects=oPage.ChildObjects(oObj)

For i= 0 to AllObjects.Count-1

DataTable.GetSheet("dtAppOR").SetCurrentRow(i+1)

' MsgBox i &vbtab & "Object Class"&vbtab & AllObjects(i).GetROProperty("micClass")

' MsgBox i &vbtab & "Object Name"&vbtab & AllObjects(i).GetROProperty("name")

' MsgBox i &vbtab & "Object Html Tag"&vbtab & AllObjects(i).GetROProperty("Html Tag")

DataTable.Value("ObjectNo","dtAppOR")=i

DataTable.Value("ObjectClass","dtAppOR")=AllObjects(i).GetROProperty("micClass")

DataTable.Value("ObjectName","dtAppOR")=AllObjects(i).GetROProperty("name")

DataTable.Value("ObjectHtmlTag","dtAppOR")=AllObjects(i).GetROProperty("Html Tag")

Next

‘@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

' Create a Dynamic Object Repository for  any Web App – Model 2

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

‘@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

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

PageTitle=oPage.GetROProperty("title")

DataTable.AddSheet PageTitle

DataTable.GetSheet(PageTitle).AddParameter "ObjectNo",""

DataTable.GetSheet(PageTitle).AddParameter "ObjectClass",""

DataTable.GetSheet(PageTitle).AddParameter "ObjectName",""

DataTable.GetSheet(PageTitle).AddParameter "ObjectHtmlTag",""

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

Set oObj=Description.Create()

Set AllObjects=oPage.ChildObjects(oObj)

For i= 0 to AllObjects.Count-1

DataTable.GetSheet(PageTitle).SetCurrentRow(i+1)

' MsgBox i &vbtab & "Object Class"&vbtab & AllObjects(i).GetROProperty("micClass")

' MsgBox i &vbtab & "Object Name"&vbtab & AllObjects(i).GetROProperty("name")

' MsgBox i &vbtab & "Object Html Tag"&vbtab & AllObjects(i).GetROProperty("Html Tag")

DataTable.Value("ObjectNo",PageTitle)=i

DataTable.Value("ObjectClass",PageTitle)=AllObjects(i).GetROProperty("micClass")

DataTable.Value("ObjectName",PageTitle)=AllObjects(i).GetROProperty("name")

DataTable.Value("ObjectHtmlTag",PageTitle)=AllObjects(i).GetROProperty("Html Tag")

Next

 DataTable.Export "D:\TestData\MyAppOR.xls"

‘@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

‘@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

Read More

QTP - Descriptive Programming - Any Web App - Working with all Objects

QTP - Descriptive Programming - Any Web App - Working with all Objects

OneTestingCenter @ QTP @ Descriptive Programming @ Any Web App - Working with all the Objects

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

' Any Web App ==> working with all Links

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

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

Set oLink=Description.Create()

oLink("micClass").value="Link"

Set AllLinks=oPage.ChildObjects(oLink)

MsgBox AllLinks.count

For i= 0 to AllLinks.count-1

msgBox i & vbtab & "LinkName" & vbtab & vbtab & AllLinks(i).GetROProperty("name")

Next

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

' Any Web App ==> working with all WebButtons

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

Set oWebButton=Description.Create()

oWebButton("micClass").Value="WebButton"

Set AllWebButtons=oPage.ChildObjects(oWebButton)

MsgBox AllWebButtons.Count

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

' Any Web App ==> working with all Images

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

Set oImage=Description.Create()

oImage("micClass").Value="Image"

Set AllImages=oPage.ChildObjects(oImage)

MsgBox AllImages.Count

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

' Any Web App ==> working with all objects

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

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

Set oObj=Description.Create()

Set AllObjects=oPage.ChildObjects(oObj)

MsgBox AllObjects.Count

For i=0 to AllObjects.Count-1

msgBox i &vbtab &" Object Class" &vbtab & AllObjects(i).GetROProperty("micClass")

msgBox i &vbtab &" Object Name" &vbtab & AllObjects(i).GetROProperty("name")

Next

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

Read More

QTP - Descriptive Programming - Working with Any Web App

QTP - Descriptive Programming - Working with Any Web App

OneTestingCenter @ QTP @ Dynamic Descriptive Programming @ Any Web App Testing

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

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

'Working with any app - Part 1

'Click on Link

'Set Text On Edit Box

'Click on Button 

‘ Select a list item

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

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

AnyWebAppTesting oPage,"WebEdit","email","GAReddy"

AnyWebAppTesting oPage,"WebEdit","passwd","GAReddy"

AnyWebAppTesting oPage,"WebButton","Sign In",""

Function AnyWebAppTesting(oPage,ObjectType,ObjectName,TestData)

   Select Case ObjectType

   Case "WebEdit"

   Set oWebEdit=Description.Create()

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

   oWebEdit("name").value=ObjectName

   oPage.WebEdit(oWebEdit).Set TestData

     Case "WebButton"

   Set oWebButton=Description.Create()

   oWebButton("micClass").value="WebButton"

   oWebButton("name").value=ObjectName

   oPage.WebButton(oWebButton).Click

     Case "Link"

   Set oLink=Description.Create()

   oLink("micClass").value="Link"

   oLink("name").value=ObjectName

   oPage.Link(oLink).Click

   End Select

End Function

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

'Working with any app - Part 2

'Click

'Set Text

'Click on Button 

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

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

SetTextOnEdit oPage,"login","OneTestingCenter"

SetTextOnEdit oPage,"passwd","OneTestingCenter"

ClickOnButton oPage,"Sign in"

Function SetTextOnEdit(oPage,ObjectName,TestData)

Set oWebEdit=Description.Create()

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

   oWebEdit("name").value=ObjectName

   oPage.WebEdit(oWebEdit).Set TestData

End Function

Function ClickOnButton(oPage,ObjectName)

Set oWebButton=Description.Create()

   oWebButton("micClass").value="WebButton"

   oWebButton("name").value=ObjectName

   oPage.WebButton(oWebButton).Click

End Function

Function ClickOnLink(oPage,ObjectName)

Set oLink=Description.Create()

   oLink("micClass").value="Link"

   oLink("name").value=ObjectName

   oPage.Link(oLink).Click

End Function

 

Read More