Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
Scribd Logo
Upload

Welcome to Scribd!

  • 3K views

    QTP Realtime Scripts

    Uploaded by

    Ramu Palanki
    QTP,VBScript,qtp script,qtp scripts,Automation,automation framework,automation estimation technique,automation estimation technique, QTP Interview questions,QTP real time scripts,sample vbscripts, QTP Sample Certification questions, qtp exam questions, hp qtp certification questions, QTP Certification HPO-M16 - Skill Review Test,QTP Guide, QTP Testing, Quick Test, QuickTest Professional, quicktest Pro, quicktest professional,qtp tutorial,qtp 10 tutorial,automation frameworks, qtp framework, test automation by qtp

    Copyright:

    Attribution Non-Commercial (BY-NC)
    Download as DOC, PDF, TXT or read online from Scribd

    QTP Realtime Scripts

    Uploaded by

    Ramu Palanki
    3K views12 pages
    QTP,VBScript,qtp script,qtp scripts,Automation,automation framework,automation estimation technique,automation estimation technique, QTP Interview questions,QTP real time scripts,sample vbscripts, QTP Sample Certification questions, qtp exam questions, hp qtp certification questions, QTP Certification HPO-M16 - Skill Review Test,QTP Guide, QTP Testing, Quick Test, QuickTest Professional, quicktest Pro, quicktest professional,qtp tutorial,qtp 10 tutorial,automation frameworks, qtp framework, test automation by qtp

    Copyright

    © Attribution Non-Commercial (BY-NC)

    Available Formats

    DOC, PDF, TXT or read online from Scribd

    Did you find this document useful?

    Is this content inappropriate?

    QTP,VBScript,qtp script,qtp scripts,Automation,automation framework,automation estimation technique,automation estimation technique, QTP Interview questions,QTP real time scripts,sample vbscripts, QTP Sample Certification questions, qtp exam questions, hp qtp certification questions, QTP Certification HPO-M16 - Skill Review Test,QTP Guide, QTP Testing, Quick Test, QuickTest Professional, quicktest Pro, quicktest professional,qtp tutorial,qtp 10 tutorial,automation frameworks, qtp framework, test automation by qtp

    Copyright:

    Attribution Non-Commercial (BY-NC)
    Download as DOC, PDF, TXT or read online from Scribd
    Download as doc, pdf, or txt
    3K views12 pages

    QTP Realtime Scripts

    Uploaded by

    Ramu Palanki
    QTP,VBScript,qtp script,qtp scripts,Automation,automation framework,automation estimation technique,automation estimation technique, QTP Interview questions,QTP real time scripts,sample vbscripts, QTP Sample Certification questions, qtp exam questions, hp qtp certification questions, QTP Certification HPO-M16 - Skill Review Test,QTP Guide, QTP Testing, Quick Test, QuickTest Professional, quicktest Pro, quicktest professional,qtp tutorial,qtp 10 tutorial,automation frameworks, qtp framework, test automation by qtp

    Copyright:

    Attribution Non-Commercial (BY-NC)
    Download as DOC, PDF, TXT or read online from Scribd
    Download as doc, pdf, or txt
    of 12

    For more QTP Scripts, www.ramupalanki.

    com
    1. How to select particular property in weblist from browser?

    First open object repository then click add objects then go to naukri homepage and click naukri
    homepage title bar then select weblist or entire properties then click ok.

    Now go to qtp then type script

    browser("Naukri.com - Search Jobs").Page("Naukri.com - Search Jobs").WebList("qf[]").Select


    "#3"

    output

    browser("Naukri.com - Search Jobs").Page("Naukri.com - Search Jobs").WebList("qf[]").Select


    "#2"

    output

    2. How to set values in web edit class?

    First login naukri account then go to others then go to personal details then add pincode
    property into object repository the go to qtp type the script

    In this line we have set the value as 23 to the pincode edit box... this is "SET METHOD"

    Browser("Naukri.com - Search Jobs").Page("Mynaukri").WebEdit("pincode").Set "23"

    Output

    www.ramupalanki.com
    For more QTP Scripts, www.ramupalanki.com

    Browser("Naukri.com - Search Jobs").Page("Mynaukri").WebEdit("pincode").Set "604202"

    www.ramupalanki.com
    For more QTP Scripts, www.ramupalanki.com
    3.settoproperty and gettoproperty and getroproperty

    In this line we have set the "text property" value as 30 using the "Settoproperty"
    now the testobject i.e before run time the value for the pincode edit box will be "30"
    like this we can set the value for any property of a test object
    In this line will also work but we can't see the result.

    browser("Naukri.com - Search Jobs").Page("Mynaukri").WebEdit("pincode").SetTOProperty "text",30

    we can check what value we have set to the pincode edit box by using "GETTOPROPERTY"
    OPTION

    a= browser("Naukri.com - Search Jobs").Page("Mynaukri").WebEdit("pincode").GetTOProperty


    ("text")

    b= browser("Naukri.com - Search Jobs").Page("Mynaukri").WebEdit("pincode").GetROProperty


    ("text")

    msgbox a

    msgbox b

    output

    a=30

    b=empty

    There is no setroproperty. Test object contains only settoproperty and gettoproperty. Runtime object
    contains only getro property.

    4.test settings contains 7 tabs

    1.properties,2.run,3.resourses,4.parameters,5.environment,6.web,7.recovery

    5. how to multiple select at the same time

    First login naukri account and go to work authorization property and add objects the type the script

    browser("Naukri.com - Search
    Jobs").page("Mynaukri").WebList("workAuthOtherCountries[]").Select"#1"

    www.ramupalanki.com
    For more QTP Scripts, www.ramupalanki.com
    browser("Naukri.com - Search
    Jobs").page("Mynaukri").WebList("workAuthOtherCountries[]").extendSelect"#3"

    browser("Naukri.com - Search
    Jobs").page("Mynaukri").WebList("workAuthOtherCountries[]").extendSelect"#5"

    output

    6. how to get all the link count or weblist count or web element count in the naukri home page

    Set descobj = description.Create

    descobj("micclass").value= "WebList"

    set weblists = browser("micclass:=Browser").Page("micclass:=Page").ChildObjects(descobj)

    totweblist = weblists.count

    print totweblist

    For i = 0 to totweblist-1

    print weblists(i).getroproperty("Name")

    Next

    Output

    www.ramupalanki.com
    For more QTP Scripts, www.ramupalanki.com

    Set descobj = description.Create

    descobj("micclass").value= "Link"

    set links = browser("micclass:=Browser").Page("micclass:=Page").ChildObjects(descobj)

    totlink = links.count

    print totlink

    For i = 0 to totlink-1

    print links(i).getroproperty("Name")

    Next

    Output

    www.ramupalanki.com
    For more QTP Scripts, www.ramupalanki.com

    7.
    x=day(date)
    y=month(date)
    z=year(date)
    If x<10 Then
    x1="0"&x
    else
    x1=x
    End If
    If y<10 Then
    y1="0"&y
    else
    y1=y

    www.ramupalanki.com
    For more QTP Scripts, www.ramupalanki.com
    End If
    msgbox x1&"/"& y1 &"/"&z

    8.how to select particular property from weblist and how to set value in webedit ?

    browser("Naukri.com - Search Jobs").Page("Naukri.com - Search Jobs").weblist("qf[]").Select"#3"


    a=browser("Naukri.com - Search Jobs").Page("Naukri.com - Search
    Jobs").weblist("qf[]").getroproperty("value")
    msgbox a

    browser("Naukri.com - Search Jobs").Page("Mynaukri").WebEdit("pincode").Set"604202"


    a=Browser("Naukri.com - Search Jobs").Page("Mynaukri").WebEdit("pincode").
    GetROProperty("value")
    msgbox a

    9. How to find Data Type of a Variable?

    The data type of a variable can be indentified in two VBScript built-in


    functions.

    1. Vartype
    2. Typename

    Vartype returns a numeric value indicating the sub datatype of a


    variable.

    The below table contains return values that indicate respective subtypes.

    Sub
    Return Value Description
    Datatype
    0 vbEmpty Empty (uninitialized)
    1 vbNull Null (no valid data)
    2 vbInteger Integer
    3 vbLong Long integer
    Single-precision floating-point
    4 vbSingle
    number
    5 vbDouble Double-precision floating-

    www.ramupalanki.com
    For more QTP Scripts, www.ramupalanki.com
    point number
    6 vbCurrency Currency
    7 vbDate Date
    8 vbString String
    9 vbObject Automation object
    10 vbError Error
    11 vbBoolean Boolean
    Variant (used only with arrays
    12 vbVariant
    of Variants)
    13 vbDataObjectA data-access object
    17 vbByte Byte
    8192 vbArray Array

    Dim x
    x=10.2
    msgbox vartype(x)

    output

    Typename directly returns the name of the Sub Datatype of a variable.

    Sub
    Description
    Datatype
    Byte Byte value
    Integer Integer value
    Long Long integer value
    Single Single-precision floating-point value
    Double Double-precision floating-point value
    Currency Currency value
    Decimal Decimal value
    Date Date or time value
    String Character string value

    www.ramupalanki.com
    For more QTP Scripts, www.ramupalanki.com
    Boolean Boolean value; True or False
    Empty Unitialized
    Null No valid data
    <object type> Actual type name of an object
    Object Generic object
    Unknown Unknown object type
    Object variable that doesn't yet refer to an
    Nothing
    object instance
    Error Error

    dim x
    x=10.6
    msgbox typename(x)

    output

    double

    10. count the number of child objects of flight reservation application

    invokeapplication"E:\Program Files\Mercury Interactive\QuickTest


    Professional\samples\flight\app\flight4a"

    Set child_obj=Dialog("text:=Login").ChildObjects

    print child_obj.count

    11.child objects method(google page)

    Set child_obj = description.Create

    child_obj("micclass").value= "WebEdit"

    set x = browser("micclass:=Browser").Page("micclass:=Page").ChildObjects(child_obj)

    www.ramupalanki.com
    For more QTP Scripts, www.ramupalanki.com
    totwebedit = x.count

    print totwebedit

    For i = 0 to totwebedit-1

    print x(i).getroproperty("Name")

    Next

    12. how to read data from notepad file?

    ‘How to read text from notepad using filesystemobject

    Set x=createobject("Scripting.FileSystemObject")

    Set y= x.OpenTextFile("E:\Documents and Settings\Sudha\Desktop\god.txt",1)

    While not y.atendofstream

    a=y.readline()

    print a

    Wend

    13. how to write data in the new notepad file?

    Set x=createobject("Scripting.FileSystemObject")

    Set z= x.OpenTextFile("E:\Documents and Settings\Sudha\Desktop\lord.txt",2)

    z.writeline("One")

    z.writeline("two")

    www.ramupalanki.com
    For more QTP Scripts, www.ramupalanki.com
    z.writeline("three")

    z.writeline("four")

    z.writeline("five")

    14. how to read data from one notepad to wrte another notepad file

    Set x=createobject("Scripting.FileSystemObject")

    Set y= x.OpenTextFile("E:\Documents and Settings\Sudha\Desktop\god.txt",1)

    Set z= x.OpenTextFile("E:\Documents and Settings\Sudha\Desktop\lord.txt",2)

    While not y.atendofstream

    a=y.readline()

    z.writeline(a)

    print a

    Wend

    15.how to replace from one particular notepad to another notepad

    Set x=createobject("Scripting.FileSystemObject")

    Set y= x.OpenTextFile("E:\Documents and Settings\Sudha\Desktop\god.txt",1)

    Set z= x.OpenTextFile("E:\Documents and Settings\Sudha\Desktop\lord.txt",2)

    While not y.atendofstream

    a=y.readline()

    If instr(1,a,"99402") Then

    a=replace(a,99,88)

    end if

    z.writeline(a)

    www.ramupalanki.com
    For more QTP Scripts, www.ramupalanki.com
    print a

    Wend

    16. how to set value in web page using descriptive

    systemutil.Run "iexplore.exe","http://google.com"

    Set x=description.Create

    x("micclass").value="webedit"

    browser("micclass:=browser").page("micclass:=page").webedit("index:=1").set"os
    howorld"

    browser("micclass:=browser").page("micclass:=page").webbutton("index:=1").Cli
    ck

    www.ramupalanki.com

    You might also like