• RSS
  • Facebook
  • Twitter

One Center for all the Testing Need. OneTestingCenter is for all, for all QA, for all Automation. Automation is easy, fun and enriching experience. Happy Learning and Happy Testing!

  • Access to All QA

    At OneTestingCenter, you find lots of books,articles,blogs and detailed guides. Everyone has access to QA. Happy Learning, Happy Testing.

  • Global Trainings

    All the QA/Auotmation trainings are available at OneTestingCenter. QA, Automation, QTP/UFT, Selenium, LoadRunner, QC/ALM, Appium...

  • Automation Learning Fun

    Technology is always evolving. Automation is always challenging. To be frank, Automation is fun, enthusiastic and enrching experience.


    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

    Reactions:

    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