Advanced Qtp Book

gcrindia@gmail.com

Advanced QTP
(In VBScript Orientation)

1) Introduction

2) Comments

3) VB Script Variables

4) VB Script Data Types

5) VB Script Operators

6) Input/Output Operations

7) Constants

8) Conditional Statements

9) General Examples

10) Loop Through Code

11) Procedures

12) Built-In Functions

13) VBScript syntax rules and guidelines

14) Errors

15) File System Operations

16) Test Requirements

17) Solutions

18) QTP Add-Ins Information

19) VBScript Glossary

G.C.Reddy, QTP Trainer (Mobile: 9247837478) 1

gcrindia@gmail.com

Introduction

o VBScript is a scripting language.
o A scripting language is a lightweight programming language.
o VBScript is a light version of Microsoft's programming language Visual Basic.

When a VBScript is inserted into a HTML document, the Internet browser will read
the HTML and interpret the VBScript. The VBScript can be executed immediately, or
at a later event.

Microsoft Visual Basic Scripting Edition brings active scripting to a wide variety of
environments, including Web client scripting in Microsoft Internet Explorer and Web
server scripting in Microsoft Internet Information Service.

1.1 Windows Script Host (WSH)

It is a Windows administration tool. WSH creates an environment for hosting scripts.

That is, when a script arrives at your computer, WSH plays the part of the host — it
makes objects and services available for the script and provides a set of guidelines
within which the script is executed. Among other things, Windows Script Host
manages security and invokes the appropriate script engine

Windows Script Host is built into Microsoft Windows 98, 2000, and Millennium
Editions and higher versions.

A Windows script is a text file. We can create a script with any text editor as long as
we save our script with a WSH-compatible script extension (.js, vbs, or .wsf).
The most commonly available text editor is already installed on our computer —
Notepad. We can also use your favorite HTML editor, VbsEdit, Microsoft Visual C++,
or Visual InterDev.

1.2 Creating a script with Notepad

1.Start Notepad.

2.Write your script. For example purposes, type Msgbox "Hello VB Script"

3.Save this text file with a .vbs extension (instead of the default .txt extension). For
example, Hello.vbs

4.Navigate to the file you just saved, and double-click it.

5.Windows Script Host invokes the VB Script engine and runs your script. In the
example, a message box is displayed with the message "Hello VB Script"

1.3 Hosting Environments and Script Engines

Scripts are often embedded in Web pages, either in an HTML page (on the client
side) or in an ASP page (on the server side).


gcrindia@gmail.com

In the case of a script embedded in an HTML page, the engine component that
interprets and runs the script code is loaded by the Web browser, such as Internet
Explorer.

In the case of a script embedded in an ASP page, the engine that interprets and runs
the script code is built into Internet Information Services (IIS).

Windows Script Host executes scripts that exist outside an HTML or ASP page and
that stand on their own as text files.

1.4 Available Script Engines

Generally, we write scripts in either Microsoft JScript or VBScript, the two script
engines that ship with Microsoft Windows 98, 2000 and Millennium Editions.

We can use other script engines, such as Perl, REXX, and Python, with Windows
Script Host.

A stand-alone script written in JScript has the .js extension; a stand-alone script
written in VBScript has the .vbs extension. These extensions are registered with
Windows. When we run one of these types of files, Windows starts Windows Script
Host, which invokes the associated script engine to interpret and run the file.


gcrindia@gmail.com

Comments

The comment argument is the text of any comment we want to include.

2.0 Purpose of comments:

o We can use comments for making the script understandable.
o We can use comments for making one or more statements disable from
execution.

2.1 Syntax

Rem comment (After the Rem keyword, a space is required before comment.)

Or

Apostrophe (') symbol before the comment

2.2 Comment/Uncomment a block of statements

Select block of statement and use short cut key Ctrl + M (for comment)
Select comment block and use short cut key Ctrl + Shift + M (for uncomment)

2.3 Example


gcrindia@gmail.com

VB Script Variables

A variable is a convenient placeholder that refers to a computer memory location
where we can store program information that may change during the time our script
is running.

3.1 Declaring Variables

We declare variables explicitly in our script using the Dim statement, the Public
statement, and the Private statement.

For example:

Dim city
Dim x

We declare multiple variables by separating each variable name with a comma. For

Example:

Dim x, Top, Bottom, Left, Right

We can also declare a variable implicitly by simply using its name in our script. That
is not generally a good practice because we could misspell the variable name in one
or more places, causing unexpected results when our script is run. For that reason,
the Option Explicit statement is available to require explicit declaration of all
variables.

The Option Explicit statement should be the first statement in our script.

3.2 Option Explicit

Forces explicit declaration of all variables in a script.

Option Explicit ' Force explicit variable declaration.
Dim MyVar ' Declare variable.
MyInt = 10 ' Undeclared variable generates error.
MyVar = 10 ' Declared variable does not generate error.

3.3 Naming Restrictions for Variables

Variable names follow the standard rules for naming anything in VBScript. A variable
name:
o Must begin with an alphabetic character.
o Cannot contain an embedded period.
o Must not exceed 255 characters.
o Must be unique in the scope in which it is declared.


gcrindia@gmail.com

3.4 Scope of Variables

A variable's scope is determined by where we declare it.

When we declare a variable within a procedure, only code within that procedure can
access or change the value of that variable.

If we declare a variable outside a procedure, we make it recognizable to all the
procedures in our script. This is a script-level variable, and it has script-level scope.

3.5 Life Time of Variables

The lifetime of a variable depends on how long it exists.

The lifetime of a script-level variable extends from the time it is declared until the
time the script is finished running.

At procedure level, a variable exists only as long as you are in the procedure.

3.6 Assigning Values to Variables

Values are assigned to variables creating an expression as follows:

The variable is on the left side of the expression and the value you want to assign to
the variable is on the right.

For example:
A = 200
City = “Hyderabad”

X=100: Y=200

3.7 Scalar Variables and Array Variables

A variable containing a single value is a scalar variable.

A variable containing a series of values, is called an array variable.

Array variables and scalar variables are declared in the same way, except that the
declaration of an array variable uses parentheses () following the variable name.

Example:
Dim A(3)

Although the number shown in the parentheses is 3, all arrays in VBScript are zero-
based, so this array actually contains 4 elements.

We assign data to each of the elements of the array using an index into the array.
Beginning at zero and ending at 4, data can be assigned to the elements of an array
as follows:


gcrindia@gmail.com

A(0) = 256
A(1) = 324
A(2) = 100
A(3) = 55

Similarly, the data can be retrieved from any element using an index into the
particular array element you want.

For example:

SomeVariable = A(4)

Arrays aren't limited to a single dimension. We can have as many as 60 dimensions,
although most people can't comprehend more than three or four dimensions.

In the following example, the MyTable variable is a two-dimensional array consisting
of 6 rows and 11 columns:

Dim MyTable(5, 10)

In a two-dimensional array, the first number is always the number of rows; the
second number is the number of columns.

3.8 Dynamic Arrays

We can also declare an array whose size changes during the time our script is
running. This is called a dynamic array.

The array is initially declared within a procedure using either the Dim statement or
using the ReDim statement.

However, for a dynamic array, no size or number of dimensions is placed inside the
parentheses.

For example:
Dim MyArray()
ReDim AnotherArray()

To use a dynamic array, you must subsequently use ReDim to determine the number
of dimensions and the size of each dimension.

In the following example, ReDim sets the initial size of the dynamic array to 25. A
subsequent ReDim statement resizes the array to 30, but uses the Preserve keyword
to preserve the contents of the array as the resizing takes place.

ReDim MyArray(25)

ReDim Preserve MyArray(30)

There is no limit to the number of times we can resize a dynamic array, although if
we make an array smaller, we lose the data in the eliminated elements.


gcrindia@gmail.com

VB Script Data Types

VBScript has only one data type called a Variant. A Variant is a special kind of data
type that can contain different kinds of information, depending on how it is used.

Because Variant is the only data type in VBScript, it is also the data type returned by
all functions in VBScript.

4.1 Variant Subtypes

Beyond the simple numeric or string classifications, a Variant can make further
distinctions about the specific nature of numeric information. For example, we can
have numeric information that represents a date or a time. When used with other
date or time data, the result is always expressed as a date or a time. We can also
have a rich variety of numeric information ranging in size from Boolean values to
huge floating-point numbers. These different categories of information that can be
contained in a Variant are called subtypes. Most of the time, we can just put the kind
of data we want in a Variant, and the Variant behaves in a way that is most
appropriate for the data it contains.
The following table shows subtypes of data that a Variant can contain.

Subtype Description
Empty Variant is uninitialized. Value is 0 for numeric variables or a zero-length string
("") for string variables.
Null Variant intentionally contains no valid data.
Boolean Contains either True or False.
Byte Contains integer in the range 0 to 255.
Integer Contains integer in the range -32,768 to 32,767.
Currency -922,337,203,685,477.5808 to 922,337,203,685,477.5807.
Long Contains integer in the range -2,147,483,648 to 2,147,483,647.
Single Contains a single-precision, floating-point number in the range -3.402823E38
to -1.401298E-45 for negative values; 1.401298E-45 to 3.402823E38 for positive
values.
Double Contains a double-precision, floating-point number in the range -
1.79769313486232E308 to -4.94065645841247E-324 for negative values;
4.94065645841247E-324 to 1.79769313486232E308 for positive values.
Date (Time) Contains a number that represents a date between January 1, 100 to
December 31, 9999.
String Contains a variable-length string that can be up to approximately 2 billion
characters in length.
Object Contains an object.
Error Contains an error number.

We can use conversion functions to convert data from one subtype to another. In
addition, the VarType function returns information about how your data is stored
within a Variant.


gcrindia@gmail.com

VB Script Operators

Operators are used for performing mathematical, comparison and logical operations.
VBScript has a full range of operators, including arithmetic operators, comparison
operators, concatenation operators, and logical operators.

4.1 Operator Precedence

When several operations occur in an expression, each part is evaluated and resolved
in a predetermined order called operator precedence.

We can use parentheses to override the order of precedence and force some parts of
an expression to be evaluated before others.

Operations within parentheses are always performed before those outside. Within
parentheses, however, standard operator precedence is maintained.

When expressions contain operators from more than one category, arithmetic
operators are evaluated first, comparison operators are evaluated next, and logical
operators are evaluated last.

Comparison operators all have equal precedence; that is, they are evaluated in the
left-to-right order in which they appear.

Arithmetic and logical operators are evaluated in the following order of precedence.

4.2 Arithmetic Operators:

Operator Description
1) Exponentiation Operator (^) Raises a number to the power of an exponent
2) Multiplication Operator (*) Multiplies two numbers.
3) Division Operator (/) Divides two numbers and returns a floating-point
result.
4) Integer Division Operator () Divides two numbers and returns an integer result.
5) Mod Operator Divides two numbers and returns only the remainder.
6) Addition Operator (+) Sums two numbers.
7) Subtraction Operator (-) Finds the difference between two numbers or indicates
the negative value of a numeric expression.

8) Concatenation Operator (&) Forces string concatenation of two expressions.

4.3 Comparison Operators

Used to compare expressions.

1) = (Equal to) Used to compare expressions.
2) <> (Not equal to) Used to compare expressions.
3) < Less than
4) > Grater than
5) <= Less than or equal to


gcrindia@gmail.com

6) >= Greater than or equal to
7) Is Object equivalence

4.4 Concatenation Operators

1) Addition Operator (+) Sums two numbers
If Then
1) Both expressions are numeric Add.
2) Both expressions are strings Concatenate.
3) One expression is numeric and the Add.
other is a string
2) Concatenation Forces string concatenation of two expressions.
Operator (&)

4.5 Logical Operators

Operator Description Syntax
1) Not Performs logical negation on an result= Not expression
expression
2) And Performs a logical conjunction on two result= expression1 And
expressions. expression2
3) Or Performs a logical disjunction on two result= expression1 Or
4) Xor Performs a logical exclusion on two result= expression1 Xor
5) Eqv Performs a logical equivalence on result= expression1 Eqv
two expressions. expression2

6) Imp Performs a logical implication on two result= expression1 Imp


gcrindia@gmail.com

Input/Output Operations

6.1 InputBox Function

Displays a prompt in a dialog box, waits for the user to input text or click a button,
and returns the contents of the text box.

Example:

Dim Input
Input = InputBox("Enter your name")
MsgBox ("You entered: " & Input)

6.2 MsgBox Function

Displays a message in a dialog box, waits for the user to click a button, and returns a
value indicating which button the user clicked.

Example:

Dim MyVar
MyVar = MsgBox ("Hello World!", 65, "MsgBox Example")

' MyVar contains either 1 or 2, depending on which button is clicked.


gcrindia@gmail.com

VB Script Constants

A constant is a meaningful name that takes the place of a number or string and
never changes.

7.1 Creating Constants

We create user-defined constants in VBScript using the Const statement. Using the
Const statement, we can create string or numeric constants with meaningful names
and assign them literal values.

Const statement

Declares constants for use in place of literal values.

Example:

Const MyString = "This is my string."
Const MyAge = 49
Const CutoffDate = #6-1-97#

Note that String literal is enclosed in quotation marks (" ").

Represent Date literals and time literals by enclosing them in number signs (#).

We declare multiple constants by separating each constant name and value with a
comma. For example:
Const price= 100, city= “Hyderabad”, x= 27


gcrindia@gmail.com

Conditional Statements

We can control the flow of our script with conditional statements and looping
statements.

Using conditional statements, we can write VBScript code that makes decisions and
repeats actions. The following conditional statements are available in VBScript:

1) If…Then…Else Statement
2) Select Case Statement

8.1 Making Decisions Using If...Then...Else

The If...Then...Else statement is used to evaluate whether a condition is True or
False and, depending on the result, to specify one or more statements to run.

Usually the condition is an expression that uses a comparison operator to compare
one value or variable with another.

If...Then...Else statements can be nested to as many levels as you need.

8.1.1 Running a Statement if a Condition is True (single statement)

To run only one statement when a condition is True, use the single-line syntax for
the If...Then...Else statement.

Dim myDate
myDate = #2/13/98#
If myDate < Now Then myDate = Now

8.1.2 Running Statements if a Condition is True (multiple statements)

To run more than one line of code, we must use the multiple-line (or block) syntax.
This syntax includes the End If statement.
Dim x
x= 20
If x>10 Then
msgbox "Hello G.C.Reddy"
msgbox "x value is: "&x
msgbox "Bye Bye"
End If

8.1.3 Running Certain Statements if a Condition is True and Running Others
if a Condition is False

We can use an If...Then...Else statement to define two blocks of executable
statements: one block to run if the condition is True, the other block to run if the
condition is False.
Example:


gcrindia@gmail.com

Dim x
x= Inputbox (" Enter a value")
If x>100 Then
Msgbox "Hello G.C.Reddy"
Msgbox "X is a Big Number"
Msgbox "X value is: "&X
Else
Msgbox "GCR"
Msgbox "X is a Small Number"
Msgbox "X value is: "&X
End If

8.1.4 Deciding Between Several Alternatives

A variation on the If...Then...Else statement allows us to choose from several
alternatives. Adding ElseIf clauses expands the functionality of the If...Then...Else
statement so we can control program flow based on different possibilities.
Example:
Dim x
x= Inputbox (" Enter a value")

If x>0 and x<=100 Then
Msgbox "X is a Small Number"
Msgbox "X value is "&x

Else IF x>100 and x<=500 Then
Msgbox "Hello GCR"
Msgbox "X is a Medium Number"

Else IF x>500 and x<=1000 Then
Msgbox "Hello Chandra Mohan Reddy"
Msgbox "X is a Large Number"

Else
Msgbox "Hello Sir"
Msgbox "X is a Grand Number"
End If
End If
End If

8.1.5 Executing a certain block of statements when two / more conditions
are True (Nested If...)

Example:

Dim State, Region
State=Inputbox ("Enter a State")
Region=Inputbox ("Enter a Region")

If state= "AP" Then
If Region= "Telangana" Then


gcrindia@gmail.com

msgbox "Dist count is 10"

Else if Region= "Rayalasema" Then
msgbox "Hello GCR"

Else If Region= "Costal" Then
msgbox "Hello Chandra mohan Reddy"

End If
End If
End If
End If

8.2 Making Decisions with Select Case

The Select Case structure provides an alternative to If...Then...ElseIf for selectively
executing one block of statements from among multiple blocks of statements. A
Select Case statement provides capability similar to the If...Then...Else statement,
but it makes code more efficient and readable.
Example:

Option explicit
Dim x,y, Operation, Result
x= Inputbox (" Enter x value")
y= Inputbox ("Enter y value")
Operation= Inputbox ("Enter an Operation")

Select Case Operation

Case "add"
Result= cdbl (x)+cdbl (y)
Msgbox "Addition of x,y values is "&Result

Case "sub"
Result= x-y
Msgbox "Substraction of x,y values is "&Result

Case "mul"
Result= x*y
Msgbox "Multiplication of x,y values is "&Result

Case "div"
Result= x/y
Msgbox "Division of x,y values is "&Result


gcrindia@gmail.com

Case "mod"
Result= x mod y
Msgbox "Mod of x,y values is "&Result

Case "expo"
Result= x^y
Msgbox"Exponentation of x,y values is "&Result

Case Else
msgbox "Wrong Operation"

End Select

8.3 Other Examples

8.3.1 Write a program for finding out whether the given year is a leap year
or not?

Dim xyear
xyear=inputbox ("Enter Year")

If xyear mod 4=0 Then
msgbox "This is a Leap year"
Else
msgbox "This is NOT"
End If

8.3.2 Write a program for finding out whether the given number is, Even
number or Odd number?

Dim num
num=inputbox ("Enter a number")

If num mod 2=0 Then
msgbox "This is a Even Number"
Else
msgbox "This is a Odd Number"
End If

8.3.3 Read two numbers and display the sum?

Dim num1,num2, sum
num1=inputbox ("Enter num1")
num2=inputbox ("Enter num2")

sum= Cdbl (num1) + Cdbl (num2) 'if we want add two strings conversion
require
msgbox ("Sum is " &sum)


gcrindia@gmail.com

8.3.4 Read P,T,R values and Calculate the Simple Interest?

Dim p,t, r, si
p=inputbox ("Enter Principle")
t=inputbox ("Enter Time")
r=inputbox ("Enter Rate of Interest")
si= (p*t*r)/100 ' p= principle amount, t=time in years, r= rate of interest
msgbox ("Simple Interest is " &si)

8.3.5 Read Four digit number, calculate & display the sum of the number or
display Error message if the number is not a four digit number?

Dim num, sum
num=inputbox ("Enter a Four digit number")
If Len(num) = 4 Then
sum=0
sum=sum+num mod 10
num=num/10
num= left (num, 3)
sum=sum+num mod 10
num=num/10
num= left (num, 2)
sum=sum+num mod 10
num=num/10
num= left (num, 1)
sum=sum+num mod 10
msgbox ("Sum is " &sum)
else
msgbox "Number, you entered is not a 4 digit number"
End If

8.3.6 Read any Four-digit number and display the number in reverse order?

Dim num,rev
num= inputbox("Enter a number")
If len(num)=4 Then

rev=rev*10 + num mod 10
num=num/10
num= left(num,3)

num=num/10
num= left(num,2)

num=num/10
num= left(num,1)


msgbox "Reverse Order of the number is "&rev


gcrindia@gmail.com

Else
msgbox "Number, you entered is not a 4 digit number"
End If

8.3.7 Read 4 subjects marks; calculate the Total marks and grade?
(a) If average marks Greater than or equal to 75, grade is Distinction
b) If average marks Greater than or equal to 60 and less than 75 , then grade is
First
c) If average marks Greater than or equal to 50 and less than 60 , then grade is
Second
d) If average marks Greater than or equal to 40 and less than 50 , then grade is
Third
e) Minimum marks 35 for any subject, otherwise 'no grade fail')

Dim e,m,p,c, tot
e=inputbox ("Enter english Marks")
m=inputbox ("Enter maths Marks")
p=inputbox ("Enter physics Marks")
c=inputbox ("Enter chemistry Marks")

tot= cdbl(e) + cdbl(m) + cdbl(p) + cdbl(c)
msgbox tot

If cdbl(e) >=35 and cdbl(m) >=35 and cdbl(p) >=35 and cdbl(c) >=35 and tot
>=300 Then
msgbox "Grade is Distinction"

else If cdbl(e) >=35 and cdbl(m) >=35 and cdbl(p) >=35 and cdbl(c) >=35 and tot
>=240 and tot<300 Then
msgbox "Grade is First"

msgbox "Grade is Second"

msgbox "Grade is Third"
else
msgbox "No Grade, Fail"

End If
End If
End If
End If

8.3.8 Display Odd numbers up to n?

Dim num,n
n=Inputbox ("Enter a Vaule")
For num= 1 to n step 2


gcrindia@gmail.com

msgbox num
Next

8.3.9 Display Even numbers up to n?

Dim num,n
msgbox num
Next

8.3.10 display natural numbers up to n and write in a text file?

Dim num, n, fso, myfile
n= inputbox ("Enter any Value")
num=1
Set fso= createobject ("scripting.filesystemobject")
set myfile=fso.opentextfile ("E:gcr.txt", 8, true)
myfile.writeline num
myfile.close
Next

8.11 Display Natural numbers in reverse order up to n?

Dim num,n
For num=n to 1 step -1
msgbox num
Next

8.12 Display Natural numbers sum up to n? (Using For...Next Loop)

Dim num, n, sum
n= inputbox ("Enter a Value")
sum=0
sum= sum+num
Next
msgbox sum

8.13 Display Natural numbers sum up to n? (using While...Wend Loop)

Dim num, n, sum
While num <=cdbl (n)
sum= sum+num
num=num+1
Wend
msgbox sum


gcrindia@gmail.com

8.14 Display Natural numbers sum up to n? (Using Do...Until...Loop)

Dim num, n, sum
sum=0
num=1
Do
sum= sum+num
num=num+1
Loop Until num =cdbl (n+1)
msgbox sum

8.15 Write a Function for Natural Numbers sum up to n?

Function NNumCou (n)
Dim num, sum
sum=0
sum= sum+num
Next
msgbox sum
End Function

8.16 Verify weather the entered 10 digit value is a numeric value or not?

Dim a,x,y,z,num
num=Inputbox ("Enter a Phone Number")

d1= left (num,1)
d10=Right (num,1)
d2=mid (num, 2, len (1))

If isnumeric (d1) = "True" and isnumeric (d2) = "True" and isnumeric (d3) = "True"
and isnumeric (d4) = "True"and isnumeric (d5) = "True"and isnumeric (d6) =
"True"and isnumeric (d7) = "True"and isnumeric (d8) = "True"and isnumeric (d9) =
"True"and isnumeric (d10) = "True" Then
msgbox "It is a Numeric Value"
else
Msgbox "It is NOT Numeric"
End If


gcrindia@gmail.com

8.17 Verify weather the entered value is a 10 digit value or not and Numeric
value or not? (Using multiple if conditions)

Dim a,x,y,z,num
num=Inputbox ("Enter a Phone Number")

d1= left (num,1)
d10=Right (num,1)

If len (num) =10 Then

If isnumeric (d1) = "True" and isnumeric (d2) = "True" and isnumeric (d3) = "True"
and isnumeric (d4) = "True"and isnumeric (d5) = "True"and isnumeric (d6) =
"True"and isnumeric (d7) = "True"and isnumeric (d8) = "True"and isnumeric (d9) =
"True"and isnumeric (d10) = "True" Then
msgbox "It is a Numeric Value"
End If
End If

If len (num) <> 10 Then
Msgbox "It is NOT valid Number "
End If


gcrindia@gmail.com

Looping Through Code

o Looping allows us to run a group of statements repeatedly.
o Some loops repeat statements until a condition is False;
o Others repeat statements until a condition is True.
o There are also loops that repeat statements a specific number of times.
The following looping statements are available in VBScript:
o Do...Loop: Loops while or until a condition is True.
o While...Wend: Loops while a condition is True.
o For...Next: Uses a counter to run statements a specified number of times.
o For Each...Next: Repeats a group of statements for each item in a collection
or each element of an array.

9.1 Using Do Loops

We can use Do...Loop statements to run a block of statements an indefinite number
of times.

The statements are repeated either while a condition is True or until a condition
becomes True.

9.1.1 Repeating Statements While a Condition is True

Repeats a block of statements while a condition is True or until a condition becomes
True

a) Do While condition
Statements
-----------
-----------
Loop
Or, we can use this below syntax:

Example:

Dim x
Do While x<5 x=x+1
Msgbox "Hello QTP"
Loop

b) Do
Statements
-----------
-----------
Loop While condition


gcrindia@gmail.com

Example:

Dim x
x=1
Do
Msgbox "Hello QTP"
x=x+1
Loop While x<5

9.1.2 Repeating a Statement Until a Condition Becomes True

c) Do Until condition
Statements
-----------
-----------
Loop
Example:

Dim x
Do Until x=5 x=x+1
Msgbox "G.C.Reddy"
Msgbox "Hello QTP"
Loop
d) Do
Statements
-----------
-----------
Loop Until condition

Example:

Dim x
x=1
Do
Msgbox “Hello G.C.Reddy”
Msgbox "Hello QTP"
x=x+1
Loop Until x=5

9.2 While...Wend Statement

Executes a series of statements as long as a given condition is True.

Syntax:
While condition
Statements
-----------


gcrindia@gmail.com

-----------
Wend
Example:
Dim x
x=0
While x<5 x=x+1
msgbox "Hello QTP"
Wend

9.3 For...Next Statement

Repeats a group of statements a specified number of times.
Syntax:
For counter = start to end [Step step]
statements
Next

Example:
Dim x
For x= 1 to 5 step 1
Next

9.4 For Each...Next Statement

Repeats a group of statements for each element in an array or collection.

Syntax:

For Each item In array
Statements
Next

Example: (1

Dim a,b,x (3)
a=20
b=30
x(0)= "Addition is "& a+b
x(1)="Substraction is " & a-b
x(2)= "Multiplication is " & a*b
x(3)= "Division is " & a/b

For Each element In x
msgbox element
Next

Example: (2

MyArray = Array("one","two","three","four","five")
For Each element In MyArray


gcrindia@gmail.com

msgbox element
Next

Control Flow Examples (Using Conditional and Loop Statements)

11.1 read a number and verify that number Range weather in between 1 to
100 or 101 to 1000?

Option explicit
Dim a,x
a=Inputbox ("Enter a Vaule")
a=cdbl(a)
If a<= 100 Then
For x= 1 to 100
If a=x Then
msgbox "a is in between 1 to 100 range"
End If
Next
else
For x= 101 to 1000
If a=x Then
msgbox "a is in between 101 to 1000 range"
End If
Next
End If

11.1 read Data and find that data size, If size <>4 then display invalid data
message, if data size = 4 then verify “a” is there or not in that data?

Dim x
x=Inputbox ("Enter 4 digit value")
x1=Right(x,1)
x2=Left (x,1)
x3=mid (x,2,Len(1))
x4=mid (x,3,Len(1))
y=len(x)
If y=4 Then
If x1="a" or x2="a" or x3="a" or x4="a" Then
msgbox "a is there"
else
msgbox "a is Not there"
End If
else
msgbox "Invalid Data"
End If


gcrindia@gmail.com

VB Script Procedures

In VBScript, there are two kinds of procedures available; the Sub procedure and the
Function procedure.

11.1 Sub Procedures

A Sub procedure is a series of VBScript statements (enclosed by Sub and End Sub
statements) that perform actions but don't return a value.

A Sub procedure can take arguments (constants, variables, or expressions that are
passed by a calling procedure).

If a Sub procedure has no arguments, its Sub statement must include an empty set
of parentheses ().

Syntax:
Sub Procedure name ()
Statements
-----------
-----------
End Sub
Or
Sub Procedure name (argument1, argument2)
Statements
-----------
-----------
End Sub

Example: 1

Sub ConvertTemp()
temp = InputBox("Please enter the temperature in degrees F.", 1)
MsgBox "The temperature is " & Celsius(temp) & " degrees C."
End Sub

Example: 2

11.2 Function Procedures

A Function procedure is a series of VBScript statements enclosed by the Function and
End Function statements.

A Function procedure is similar to a Sub procedure, but can also return a value.

A Function procedure can take arguments (constants, variables, or expressions that
are passed to it by a calling procedure).

If a Function procedure has no arguments, its Function statement must include an
empty set of parentheses.


gcrindia@gmail.com

A Function returns a value by assigning a value to its name in one or more
statements of the procedure. The return type of a Function is always a Variant.
Syntax:
Function Procedure name ()
Statements
-----------
-----------
End Function
Or
Function Procedure name (argument1, argument2)
Statements
-----------
-----------
End Function

Example: 1

Function Celsius(fDegrees)
Celsius = (fDegrees - 32) * 5 / 9
End Function

Example: 2

Function cal(a,b,c)
cal = (a+b+c)
End Function

11.3 Getting Data into and out of Procedures
o Each piece of data is passed into our procedures using an argument.
o Arguments serve as placeholders for the data we want to pass into our
procedure. We can name our arguments any valid variable name.
o When we create a procedure using either the Sub statement or the Function
statement, parentheses must be included after the name of the procedure.
o Any arguments are placed inside these parentheses, separated by commas.

11.4 Using Sub and Function Procedures in Code

A Function in our code must always be used on the right side of a variable
assignment or in an expression.

For example:
Temp = Celsius(fDegrees)
-Or-
MsgBox "The Celsius temperature is " & Celsius(fDegrees) & " degrees."

To call a Sub procedure from another procedure, type the name of the procedure
along with values for any required arguments, each separated by a comma.

The Call statement is not required, but if you do use it, you must enclose any
arguments in parentheses.


gcrindia@gmail.com

The following example shows two calls to the MyProc procedure. One uses the Call
statement in the code; the other doesn't. Both do exactly the same thing.

Call MyProc(firstarg, secondarg)

MyProc firstarg, secondarg

Notice that the parentheses are omitted in the call when the Call statement isn't
used.


gcrindia@gmail.com

VB Script Built in Functions

Types of Functions
o Conversions (25)
o Dates/Times (19)
o Formatting Strings (4)
o Input/Output (3)
o Math (9)
o Miscellaneous (3)
o Rounding (5)
o Strings (30)
o Variants (8)

Important Functions

1) Abs Function
Returns the absolute value of a number.
Dim num
num=abs(-50.33)
msgbox num

2) Array Function
Returns a variant containing an Array
Dim A
A=Array("hyderabad","chennai","mumbai")
msgbox A(0)
ReDim A(5)
A(4)="nellore"
msgbox A(4)

3) Asc Function
Returns the ANSI character code corresponding to the first letter in a string.
Dim num
num=Asc("A")
msgbox num

* It returns the value 65 *

4) Chr Function
Returns the character associated with the specified ANSI character code.
Dim char
Char=Chr(65)
msgbox char

* It returns A *


gcrindia@gmail.com

5) CInt Function
Returns an expression that has been converted to a Variant of subtype Integer.
Dim num
num=123.45
myInt=CInt(num)
msgbox MyInt

6) Date Function

Returns the Current System Date.

Dim mydate
mydate=Date
msgbox mydate

7) Day Function

Ex1) Dim myday
myday=Day("17,December,2009")
msgbox myday

Ex2) Dim myday
mydate=date
myday=Day(Mydate)
msgbox myday

8) DateDiff Function
Returns the number of intervals between two dates.
Dim myday
mydate=#02-17-2009#
x=Datediff("d",mydate,Now)
msgbox x

9) Hour Function
Returns a whole number between 0 and 23, inclusive, representing the hour of the
day.
Dim mytime, Myhour
mytime=Now
myhour=hour (mytime)
msgbox myhour

10) Join Function
Returns a string created by joining a number of substrings contained in an array.
Dim mystring, myarray(3)
myarray(0)="Chandra "
myarray(1)="Mohan "
myarray(2)="Reddy"
mystring=Join(MyArray)
msgbox mystring


gcrindia@gmail.com

11) Eval Function

Evaluates an expression and returns the result.

12) Time Function
Returns a Variant of subtype Date indicating the current system time.
Dim mytime
mytime=Time
msgbox mytime

13) VarType Function
Returns a value indicating the subtype of a variable.

Dim MyCheck
MyCheck = VarType(300) ' Returns 2.
Msgbox Mycheck

MyCheck = VarType(#10/19/62#) ' Returns 7.
Msgbox Mycheck

MyCheck = VarType("VBScript") ' Returns 8.
Msgbox Mycheck

14) Left Function

Dim MyString, LeftString
MyString = "VBSCript"
LeftString = Left(MyString, 3) ' LeftString contains "VBS".

14) Right Function

Dim AnyString, MyStr
AnyString = "Hello World" ' Define string.
MyStr = Right(AnyString, 1) ' Returns "d".
MyStr = Right(AnyString, 6) ' Returns " World".
MyStr = Right(AnyString, 20) ' Returns "Hello World".

15) Len Function

Returns the number of characters in a string or the number of bytes required to
store a variable.

Ex 1): Dim Mystring
mystring=Len("G.C.Reddy")
msgbox mystring

Ex 2): Dim Mystring
Mystring=Inputbox("Enter a Value")
Mystring=Len(Mystring)
Msgbox Mystring


gcrindia@gmail.com

16) Mid Function
Returns a specified number of characters from a string.
Dim MyVar
MyVar = Mid("VB Script is fun!", 4, 6)
Msgbox MyVar

* It Returns ‘Script’ *

17) Timer Function
Returns the number of seconds that have elapsed since 12:00 AM (midnight).

Function myTime(N)
Dim StartTime, EndTime
StartTime = Timer
For I = 1 To N
Next
EndTime = Timer
myTime= EndTime - StartTime
msgbox myTime
End Function
Call myTime(2000)

17) isNumeric Function

Dim MyVar, MyCheck
MyVar = 53
MyCheck = IsNumeric(MyVar)
msgbox MyCheck

MyVar = "459.95"
msgbox MyCheck

MyVar = "45 Help"
msgbox MyCheck

* It Returns True/False like Result *

18) Inputbox Function
Displays a prompt in a dialog box, waits for the user to input text or click a button,
and returns the contents of the text box.

Dim Input
Input = InputBox("Enter your name")
MsgBox ("You entered: " & Input)

19) Msgbox Function
Displays a message in a dialog box, waits for the user to click a button, and returns a
value indicating which button the user clicked.
Dim MyVar
MyVar = MsgBox ("Hello World!", 65, "MsgBox Example")


gcrindia@gmail.com

VBScript syntax rules and guidelines

21.1 Case-sensitivity:

By default, VBScript is not case sensitive and does not differentiate between upper
case and lower-case spelling of words, for example, in variables, object and method
names, or constants.

For example, the two statements below are identical in VBScript:

Browser("Mercury").Page("Find a Flight:").WebList("toDay").Select "31"
browser("mercury").page("find a flight:").weblist("today").select "31"

21.2 Text strings:

When we enter a value as a text string, we must add quotation marks before and
after the string. For example, in the above segment of script, the names of the Web
site, Web page, and edit box are all text strings surrounded by quotation marks.

Note that the value 31 is also surrounded by quotation marks, because it is a text
string that represents a number and not a numeric value.

In the following example, only the property name (first argument) is a text string
and is in quotation marks. The second argument (the value of the property) is a
variable and therefore does not have quotation marks. The third argument
(specifying the timeout) is a numeric value, which also does not need quotation
marks.

Browser("Mercury").Page("Find a Flight:").WaitProperty("items count", Total_Items,
2000)

21.3 Variables:

We can specify variables to store strings, integers, arrays and objects. Using
variables helps to make our script more readable and flexible

21.4 Parentheses:

To achieve the desired result and to avoid errors, it is important that we use
parentheses () correctly in our statements.

21.5 Indentation:

We can indent or outdent our script to reflect the logical structure and nesting of the
statements.

21.6 Comments:

We can add comments to our statements using an apostrophe ('), either at the
beginning of a separate line, or at the end of a statement. It is recommended that
we add comments wherever possible, to make our scripts easier to understand and
maintain.


gcrindia@gmail.com

21.7 Spaces:

We can add extra blank spaces to our script to improve clarity. These spaces are
ignored by VBScript.

Errors

We have two types Errors in VB Script; they are VBScript Run-time Errors and
VBScript Syntax Errors

13.1 VBScript Run-time Errors

VBScript run-time errors are errors that result when our VBScript script attempts to
perform an action that the system cannot execute. VBScript run-time errors occur
while our script is being executed; when variable expressions are being evaluated,
and memory is being dynamic allocated.

13.2 VBScript Syntax Errors

VBScript syntax errors are errors that result when the structure of one of our
VBScript statements violates one or more of the grammatical rules of the VBScript
scripting language. VBScript syntax errors occur during the program compilation
stage, before the program has begun to be executed.


gcrindia@gmail.com

File System Operations
I) Working with Drives and Folders

a) Creating a Folder

Option Explicit
Dim objFSO, objFolder, strDirectory
strDirectory = "D:logs"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder(strDirectory)

b) Deleting a Folder

Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.DeleteFolder("E:FSO")

c) Copying Folders

Set oFSO=createobject("Scripting.Filesystemobject")
oFSO.CopyFolder "E:gcr6", "C:jvr", True
d) Checking weather the folder available or not, if not creating the folder
Option Explicit
Dim objFSO, objFolder, strDirectory
strDirectory = "D:logs"
If objFSO.FolderExists(strDirectory) Then
Set objFolder = objFSO.GetFolder(strDirectory)
msgbox strDirectory & " already created "
else
Set objFolder = objFSO.CreateFolder(strDirectory)
end if

e) Returning a collection of Disk Drives

Set colDrives = oFSO.Drives
For Each oDrive in colDrives
MsgBox "Drive letter: " & oDrive.DriveLetter
Next

f) Getting available space on a Disk Drive

Set oDrive = oFSO.GetDrive("C:")
MsgBox "Available space: " & oDrive.AvailableSpace


gcrindia@gmail.com

II) Working with Flat Files
a) Creating a Flat File
Set objFile = objFSO.CreateTextFile("E:ScriptLog.txt")

b) Checking weather the File is available or not, if not creating the File
strDirectory="E:"
strFile="Scripting.txt"
If objFSO.FileExists(strDirectory & strFile) Then
Set objFolder = objFSO.GetFolder(strDirectory)
Else
Set objFile = objFSO.CreateTextFile("E:ScriptLog.txt")
End if

c) Reading Data character by character from a Flat File


gcrindia@gmail.com

Set objFile = objFSO.OpenTextFile("E:gcr.txt", 1)
Do Until objFile.AtEndOfStream
strCharacters = objFile.Read(1)
msgbox strCharacters
Loop

d) Reading Data line by line from a Flat File

Set objFile = objFSO.OpenTextFile("E:gcr.txt", 1)
Do Until objFile.AtEndOfStream
strCharacters = objFile.Readline
msgbox strCharacters
Loop

e) Reading data from a flat file and using in data driven testing

Dim fso,myfile
Set fso=createobject("scripting.filesystemobject")
Set myfile= fso.opentextfile ("F:gcr.txt",1)
myfile.skipline
While myfile.atendofline <> True
x=myfile.readline
s=split (x, ",")
SystemUtil.Run "C:Program FilesMercury InteractiveQuickTest
Professionalsamplesflightappflight4a.exe","","C:Program FilesMercury
InteractiveQuickTest Professionalsamplesflightapp","open"
Dialog("Login").Activate
Dialog("Login").WinEdit("Agent Name:").Set s(0)
Dialog("Login").WinEdit("Password:").SetSecure s(1)
Dialog("Login").WinButton("OK").Click
Window("Flight Reservation").Close
Wend

f) Writing data to a text file

Dim Stuff, myFSO, WriteStuff, dateStamp
dateStamp = Date()
Stuff = "I am Preparing this script: " &dateStamp

Set myFSO = CreateObject("Scripting.FileSystemObject")
Set WriteStuff = myFSO.OpenTextFile("e:gcr.txt", 8, True)
WriteStuff.WriteLine(Stuff)
WriteStuff.Close
SET WriteStuff = NOTHING
SET myFSO = NOTHING

g) Delete a text file

Set objFSO=createobject("Scripting.filesystemobject")
Set txtFilepath = objFSO.GetFile("E:gcr.txt")


gcrindia@gmail.com

txtFilepath.Delete()

h) Checking weather the File is available or not, if available delete the
File

strDirectory="E:"
strFile="gcr.txt"
If objFSO.FileExists(strDirectory & strFile) Then
Set objFile = objFSO.Getfile(strDirectory & strFile)
objFile.delete ()
End if

i) Comparing two text files

Dim f1, f2
f1="e:gcr1.txt"
f2="e:gcr2.txt"
Public Function CompareFiles (FilePath1, FilePath2)
Dim FS, File1, File2
Set FS = CreateObject("Scripting.FileSystemObject")

If FS.GetFile(FilePath1).Size <> FS.GetFile(FilePath2).Size Then
CompareFiles = True
Exit Function
End If
Set File1 = FS.GetFile(FilePath1).OpenAsTextStream(1, 0)
Set File2 = FS.GetFile(FilePath2).OpenAsTextStream(1, 0)

CompareFiles = False
Do While File1.AtEndOfStream = False
Str1 = File1.Read
Str2 = File2.Read

CompareFiles = StrComp(Str1, Str2, 0)

If CompareFiles <> 0 Then
CompareFiles = True
Exit Do
End If
Loop

File1.Close()
File2.Close()
End Function

Call Comparefiles(f1,f2)

If CompareFiles(f1, f2) = False Then
MsgBox "Files are identical."
Else
MsgBox "Files are different."


gcrindia@gmail.com

End If

j) Counting the number of times a word appears in a file

sFileName="E:gcr.txt"
sString="gcreddy"
Const FOR_READING = 1
Dim oFso, oTxtFile, sReadTxt, oRegEx, oMatches
Set oFso = CreateObject("Scripting.FileSystemObject")
Set oTxtFile = oFso.OpenTextFile(sFileName, FOR_READING)
sReadTxt = oTxtFile.ReadAll
Set oRegEx = New RegExp
oRegEx.Pattern = sString
oRegEx.IgnoreCase = bIgnoreCase
oRegEx.Global = True
Set oMatches = oRegEx.Execute(sReadTxt)
MatchesFound = oMatches.Count
Set oTxtFile = Nothing : Set oFso = Nothing : Set oRegEx = Nothing
msgbox MatchesFound

III) Working with Word Docs

a) Create a word document and enter some data & save

Dim objWD
Set objWD = CreateObject("Word.Application")
objWD.Documents.Add

objWD.Selection.TypeText "This is some text." & Chr(13) & "This is some more
text"
objWD.ActiveDocument.SaveAs "e:gcreddy.doc"
objWD.Quit

IV) Working with Excel Sheets

a) Create an excel sheet and enter a value into first cell

Dim objexcel
Set objExcel = createobject("Excel.application")
objexcel.Visible = True
objexcel.Workbooks.add
objexcel.Cells(1, 1).Value = "Testing"
objexcel.ActiveWorkbook.SaveAs("f:gcreddy1.xls")
objexcel.Quit

b) Compare two excel files

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook1= objExcel.Workbooks.Open("E:gcr1.xls")
Set objWorkbook2= objExcel.Workbooks.Open("E:gcr2.xls")


gcrindia@gmail.com

Set objWorksheet1= objWorkbook1.Worksheets(1)

Set objWorksheet2= objWorkbook2.Worksheets(1)

For Each cell In objWorksheet1.UsedRange
If cell.Value <> objWorksheet2.Range(cell.Address).Value Then
msgbox "value is different"
Else
msgbox "value is same"
End If
Next
objWorkbook1.close
objWorkbook2.close
objExcel.quit
set objExcel=nothing


gcrindia@gmail.com

Test Requirements
1) Verify Login Boundary (Check all the boundary conditions of the Login
window. Checks to see if the correct message appears in the error window
(Flight Reservation Message)

2) Verify Cancel Operation (in Login Dialog box, if user selects cancel button,
before enter any data after enter data dialog box should be disappeared.)

3) Verify Addition, Subtraction, Multiplication and Division Operations in
Calculator Application.

4) Verify state of Update Order Button, before open an Order and after
open an Order (in Flight Reservation before opening an order Update Order
button should be disabled after opening an order enabled.)

5) Price Consistency, In Flight Reservation (In Flight Reservation, First class
price=3*Economy class price and Business class price=2*Economy class
price)

6) Verify Total, In Flight Reservation (In Flight Reservation, Total = Tickets *
Price)

7) Verify Flight From & Flight To Combo Boxes (In Flight reservation, select
an item from Fly From: combo box and verify weather that item available or
not in Fly To: combo box, like this select all items one by one in Fly From and
verify weather selected items available or not in Fly To.)

8) Verify Order No Entry in Flight Reservation. (In Open Order dialog box,
Order No object accepts numeric values only.)

9) Get Test Data from a Flat file and use in Data Driven Testing (through
Scripting)

10) Get Test Data From a Database and use in Data Driven Testing
(through Scripting)

11) Count, how many links available in Mercury Tours Home Page?

12) Count how many Buttons and Edit boxes available in Flight
Reservation window?


gcrindia@gmail.com

13) Verify search options in Open Order Dialog box
(After selecting open order, 3 search options should be enabled and not checked,
After selecting Order No option, other options should be disabled,
After selecting Customer Name, Flight date option enabled and Order No disabled
After selecting Flight date option, Customer Name enabled and Order No disabled)

14) In Login Dialog box, Verify Help message (The message is ‘The password is
'MERCURY')

15) Count all opened Browsers on desktop and close all?

16) Create an Excel file, enter some data and save the file through VB
scripting?

Solutions:
1) Verify Login Boundary (Check all the boundary conditions of the Login
dialog box. Checks to see if the correct message appears in the error window
(Flight Reservation Message)

1) ApplicationDir = Environment("ProductDir")
2) ApplicationPath = "samplesflightappflight4a.exe"
3) If Window("Flight Reservation").Exist(2) Then
4) Window("Flight Reservation").Close
5) SystemUtil.Run ApplicationDir & ApplicationPath
6) Elseif Not Dialog("Login").Exist(1) Then
7) SystemUtil.Run ApplicationDir & ApplicationPath
8) End If
9) Dialog("Login").WinEdit("Agent Name:").Set Datatable.Value
("AgentName",dtGlobalSheet)
10) Dialog("Login").WinEdit("Password:").Set Datatable.Value
("Password",dtGlobalSheet)
11) Dialog("Login").WinButton("OK").Click
12) If Dialog("Login").Dialog("Flight Reservations").Exist(1) and
Datatable.Value ("Status",dtGlobalSheet)="Fail" Then
13) Dialog("Login").Dialog("Flight Reservations").Static("Agent name must
be at").Check CheckPoint("Agent name must be at least 4 characters
long.")
14) Dialog("Login").Dialog("Flight Reservations").WinButton("OK").Click


gcrindia@gmail.com

15) Elseif Window("Flight Reservation").Exist(10) and Datatable.Value
("Status",dtGlobalSheet)="Pass" Then
16) Reporter.ReportEvent PASS,"Login: ","Succeeded"
17) Else
18) Reporter.ReportEvent Fail,"Login: ","Combination #" &
Datatable.GetCurrentRow & " was not according to Excel file"
19) End If

2) Verify Cancel Operation (in Login Dialog box, if user selects cancel button,
before enter any data after enter data dialog box should be disappeared.)

1) Invokeapplication "C:Program FilesMercury InteractiveQuickTest
Professionalsamplesflightappflight4a.exe"
2) Dialog("Login").Activate
3) Dialog("Login").WinButton("Cancel").Click
4) If Dialog("Login").Exist (2) =True Then
5) Reporter.ReportEvent 1,"sd","Fail"
6) Else
7) Reporter.ReportEvent 0,"sd","Pass"
9) End If
11) Dialog("Login").WinEdit("Agent Name:").Set "asdf"
13) If Dialog("Login").Exist (2) =True Then
15) Else
18) End If
21) Dialog("Login").WinEdit("Password:").SetSecure
"4a993af45dcbd506c8451b274d2da07b38ff5531"


gcrindia@gmail.com

23) If Dialog("Login").Exist (2)=True Then
25) Else
28) End If
"4a993af45dcbd506c8451b274d2da07b38ff5531"

3) Verify Addition, Subtraction, Multiplication and Division Operations in
Calculator Application.
1) Dim aRes,sRes,dRes,mRes
2) VbWindow("VbWindow").Activate
3) VbWindow("VbWindow").VbEdit("VbEdit").Set "10"
4) VbWindow("VbWindow").VbEdit("VbEdit_2").Set "20"
5) v1=VbWindow("VbWindow").VbEdit("VbEdit").GetROProperty ("text")
6) v2=VbWindow("VbWindow").VbEdit("VbEdit_2").GetROProperty ("text")
7) VbWindow("VbWindow").VbButton("ADD").Click
8) aRes=VbWindow("VbWindow").VbEdit("VbEdit_3").GetVisibleText
9) VbWindow("VbWindow").VbButton("SUB").Click
10) sRes=VbWindow("VbWindow").VbEdit("VbEdit_3").GetVisibleText
11) VbWindow("VbWindow").VbButton("MUL").Click
12) mRes=VbWindow("VbWindow").VbEdit("VbEdit_3").GetVisibleText
13) VbWindow("VbWindow").VbButton("DIV").Click
14) dRes=VbWindow("VbWindow").VbEdit("VbEdit_3").GetVisibleText
15) v1=cdbl(v1)
16) v2=cdbl(v2)
17) aRes=cdbl (aRes)
18) sRes=cdbl (sRes)
19) mRes=cdbl (mRes)
20) dRes=cdbl (dRes)
21) If aRes=v1+v2 Then


gcrindia@gmail.com

22) Reporter.ReportEvent 0,"Res","Addition Passed"
23) else
24) Reporter.ReportEvent 1,"Res","Addition Failed"
25) End If
26) If sRes=v1-v2 Then
27) Reporter.ReportEvent 0,"Res","Subtraction Passed"
28) else
29) Reporter.ReportEvent 1,"Res","Subtraction Failed"
30) End If
31) If mRes=v1*v2 Then
32) Reporter.ReportEvent 0,"Res","Multiplecation Passed"
33) else
34) Reporter.ReportEvent 1,"Res","Multiplecation Failed"
35) End If
36) If dRes=v1/v2 Then
37) Reporter.ReportEvent 0,"Res","Division Passed"
38) else
39) Reporter.ReportEvent 1,"Res","Division Failed"
40) End If

4) Verify state of Update Order Button, before open an Order and after open
an Order (in Flight Reservation before opening an order Update Order button should
be disabled after opening an order enabled.)
1) Option explicit
2) Dim bo,ao
3) If Not window("Flight Reservation").Exist (2) Then
4) SystemUtil.Run "C:Program FilesMercury InteractiveQuickTest
6) Dialog("Login").WinEdit("Agent Name:").Set "Gcreddy"
"4aa8bce9984f1a15ea187a2da5b18c545abb01cf"
9) End If
10) Window("Flight Reservation").Activate
11) bo=Window("Flight Reservation").WinButton("Update Order").GetROProperty
("Enabled")


gcrindia@gmail.com

12) Window("Flight Reservation").WinButton("Button").Click
13) Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order
No.").Set "ON"
14) Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set "1"
15) Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click
16) ao=Window("Flight Reservation").WinButton("Update Order").GetROProperty
("Enabled")
17) If bo=False Then
18) Reporter.ReportEvent 0,"Res","Update Order Button Disabled"
19) else
20) Reporter.ReportEvent 1,"Res","Update Order Button Enabled"
21) End If
22) If ao=True Then
23) Reporter.ReportEvent 0,"Res","Update Order Button Enabled"
24) else
25) Reporter.ReportEvent 1,"Res","Update Order Button Disabled"
26) End If

5) Price Consistency, In Flight Reservation (In Flight Reservation, First class
price=3*Economy class price and Business class price=2*Economy class price)

1) Option explicit
2) Dim n,f,b,e
"4aa8b7b7c5823680cfcb24d30714c9bbf0dff1eb"
9) End If
10) For n= 1 to 10 step 1
No.").Set "ON"


gcrindia@gmail.com

14) Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set n
16) Window("Flight Reservation").WinRadioButton("First").Set
17) f=Window("Flight Reservation").WinEdit("Price:").GetVisibleText
18) Window("Flight Reservation").WinRadioButton("Business").Set
19) b=Window("Flight Reservation").WinEdit("Price:").GetVisibleText
20) Window("Flight Reservation").WinRadioButton("Economy").Set
21) e=Window("Flight Reservation").WinEdit("Price:").GetVisibleText
22) f=cdbl(mid(f,2,len (f-1)))
23) b=cdbl(mid(b,2,len (b-1)))
24) e=cdbl(mid(e,2,len (e-1)))
25) If f=3*e and b=2*e Then
26) Reporter.ReportEvent 0,"Res","Pricy Consistancy is there"
27) else
28) Reporter.ReportEvent 1,"Res","Pricy Consistancy is NOT there"
29) End If
30) Window("Flight Reservation").WinButton("Button_2").Click
31) Window("Flight Reservation").Dialog("Flight
Reservations").WinButton("No").Click
32) Next

6) Verify Total, In Flight Reservation (In Flight Reservation, Total = Tickets *
Price)

1) Option Explicit
2) Dim t,p,tot,n
3) For n= 1 to 10 step 1
Professionalsamplesflightappflight4a.exe","","C:Program FilesMercury
InteractiveQuickTest Professionalsamplesflightapp","open"
"4aa892d62c529f1c23298175ad78c58f43da8e34"
10) End If


gcrindia@gmail.com

No.").Set "ON"
14) Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set n

16) t=Window("Flight Reservation").WinEdit("Tickets:").GetVisibleText
17) p=Window("Flight Reservation").WinEdit("Price:").GetVisibleText
18) tot=Window("Flight Reservation").WinEdit("Total:").GetVisibleText
19) t=cdbl (t)
20) p=Cdbl(mid(p,2,len (p-1)))
21) tot=Cdbl(mid(tot,2,len (tot-1)))

22) If tot=t*p Then
23) Reporter.ReportEvent 0,"Res","Calculation Passed"
24) else
25) Reporter.ReportEvent 1,"Res","Calculation Failed"
26) End If
27) Next

7) Verify Flight From & Flight To Combo Boxes (In Flight reservation, select an
item from Fly From: combo box and verify weather that item available or not in Fly
To: combo box, like this select all items one by one in Fly From and verify weather
selected items available or not in Fly To.)
1) Option explicit
2) Dim qtp,flight_app,f,t,i,j,x,y
3) If Not Window("text:=Flight Reservation").Exist (7)= True Then
4) QTP=Environment("ProductDir")
5) Flight_app="samplesflightappflight4a.exe"
6) SystemUtil.Run QTP & Flight_app
7) Dialog("text:=Login").Activate
8) Dialog("text:=Login").WinEdit("attached text:=Agent Name:").Set "asdf"
9) Dialog("text:=Login").WinEdit("attached text:=Password:").SetSecure
"4aa5ed3daf680e7a759bee1c541939d3a54a5b65"
10) Dialog("text:=Login").WinButton("text:=OK").Click
11) End If


gcrindia@gmail.com

12) Window("text:=Flight Reservation").Activate
13) Window("text:=Flight Reservation").WinButton("window id:=6").Click
14) Window("text:=Flight
Reservation").ActiveX("acx_name:=MaskEdBox","window id:=0").Type
"090910"
15) f=Window("text:=Flight Reservation").WinComboBox("attached text:=Fly
From:").GetItemsCount
16) For i= 0 to f-1 step 1
17) Window("text:=Flight Reservation").WinComboBox("attached text:=Fly
From:").Select (i)
18) x=Window("text:=Flight Reservation").WinComboBox("attached text:=Fly
From:").GetROProperty ("text")
19) t=Window("text:=Flight Reservation").WinComboBox("attached text:=Fly
To:","x:=244","y:=147").GetItemsCount
20) For j= 0 to t-1 step 1
21) Window("text:=Flight Reservation").WinComboBox("attached text:=Fly
To:","x:=244","y:=147").Select (j)
22) y=Window("text:=Flight Reservation").WinComboBox("attached text:=Fly
To:","x:=244","y:=147").GetROProperty ("text")
23) If x <> y Then
24) Reporter.ReportEvent 0,"Res","Test Passed"
25) Else
26) Reporter.ReportEvent 1,"Res","Test Failed"
27) End If
28) Next
29) Next
8) Verify Order No Entry in Flight Reservation. (In Open Order dialog box,
Order No object accepts numeric values only.)

"4aa9ccae3bb00962b47ff7fb0ce3524c1d88cb43"
7) End If


gcrindia@gmail.com

No.").Set "ON"
11) Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set "a"
12) ord=Window("Flight Reservation").Dialog("Open
Order").WinEdit("Edit").GetVisibleText
13) If ord= "a" Then
14) Reporter.ReportEvent 1,"Res","Order No Object is taking invalid data"
15) else
16) Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set "1"
18) End If
9) Get Test Data from a Flat file and use in Data Driven Testing (through
Scripting)
1) Dim fso,myfile
2) Set fso=createobject("scripting.filesystemobject")
3) Set myfile= fso.opentextfile ("F:gcr.txt",1)
4) myfile.skipline
5) While myfile.atendofline <> True
6) x=myfile.readline
7) s=split (x, ",")
10) Dialog("Login").WinEdit("Agent Name:").Set s(0)
11) Dialog("Login").WinEdit("Password:").SetSecure s(1)
14) Wend
10) Get Test Data From a Database and use in Data Driven Testing (through
Scripting)

1) Dim con,rs
2) Set con=createobject("Adodb.connection")
3) Set rs=createobject("Adodb.recordset")
4) con.provider=("microsoft.jet.oledb.4.0")


gcrindia@gmail.com

5) con.open "C:Documents and SettingsAdministratorMy
DocumentsGcr.mdb"
6) rs.open "Select * From Login",con
7) While rs.eof <>True
10) Dialog("Login").WinEdit("Agent Name:").Set rs.fields ("Agent")
11) Dialog("Login").WinEdit("Password:").Set rs.fields ("Password")
14) rs.movenext
15) Wend

11) Count, how many links available in Mercury Tours Home Page.
1) Set oDesc = Description.Create()
2) oDesc("micclass").Value = "Link"
3) Set Lists = Browser("Welcome: Mercury").Page("Welcome:
Mercury").ChildObjects (oDesc)
4) NumberOfLinks = Lists.Count()
5) Reporter.ReportEvent 2,"Res","Number of Links are: "&NumberOfLinks

12) Count, how many Buttons and Edit boxes available in Flight Reservation
main window.

5) Dialog("Login").WinEdit("Password:").Set "mercury"
7) End If
9) oDesc("micclass").Value = "WinButton"
10) Set Buttons = Window("text:=Flight Reservation").ChildObjects (oDesc)
11) Num_Buttons = Buttons.Count()


gcrindia@gmail.com

12) Set oDesc1=Description.Create()
13) oDesc1("micclass").Value="WinEdit"
14) Set Editboxes=Window("text:=Flight Reservation").ChildObjects (oDesc1)
15) Num_Editboxes= editboxes.count ()
16) sum= Num_Buttons+Num_Editboxes
17) Reporter.ReportEvent 2, "Res","Total Buttons: "& Num_Buttons &"Total
Edit boxes: "& Num_Editboxes
13) Verify search options in Open Order Dialog box
(After selecting open order, 3 search options should be enabled and not checked,
After selecting Order No option, other options should be disabled,
After selecting Customer Name, Flight date option enabled and Order No disabled
After selecting Flight date option, Customer Name enabled and Order No disabled)

"4aa9ed25bc0ebde66ed726ad87d7e991347d8b9c"
7) End If
10) Window("Flight Reservation").Dialog("Open Order").Activate
11) oe=Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order
No.").GetROProperty ("Enabled")
12) ce=Window("Flight Reservation").Dialog("Open
Order").WinCheckBox("Customer Name").GetROProperty ("Enabled")
13) fe=Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Flight
Date").GetROProperty("Enabled")

14) oc=Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order
No.").GetROProperty ("Checked")
15) cc=Window("Flight Reservation").Dialog("Open
Order").WinCheckBox("Customer Name").GetROProperty ("Checked")
16) fc=Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Flight
Date").GetROProperty("Checked")


gcrindia@gmail.com

17) If (oe=true and ce=true and fe=true) and (oc="OFF" and cc="OFF" and
fc="OFF") Then
18) Reporter.ReportEvent 0,"Res","Pass"
19) else
20) Reporter.ReportEvent 1,"Res","Fail"
21) End If
No.").Set "ON"
23) ono=Window("Flight Reservation").Dialog("Open
Order").WinCheckBox("Order No.").GetROProperty ("Checked")
24) If ono="ON" Then
25) fd=Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Flight
Date").GetROProperty ("Enabled")
27) fd=false
28) ono=false
30) else
32) End If
No.").Set "OFF"
34) Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Customer
Name").Set "ON"
35) cn=Window("Flight Reservation").Dialog("Open
Order").WinCheckBox("Customer Name").GetROProperty ("Checked")
36) If cn="ON" Then
Order").WinCheckBox("Order No.").GetROProperty ("Enabled")
Date").GetROProperty ("Enabled")
39) fd=True
40) ono=false
42) else
44) End If


gcrindia@gmail.com

45) Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Customer
Name").Set "OFF"
46) Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Flight
Date").Set "ON"
Date").GetROProperty ("Checked")
48) If fd="ON" Then
Order").WinCheckBox("Order No.").GetROProperty ("Enabled")
50) cn=Window("Flight Reservation").Dialog("Open
51) cn=True
52) ono=false
54) else
56) End If
14) In Login Dialog box, Verify Help message (The message is ‘The password is
'MERCURY')
1) If Not Dialog("Login").Exist (2) Then
3) End If
5) Dialog("Login").WinButton("Help").Click
6) message=Dialog("Login").Dialog("Flight Reservations").Static("The password
is 'MERCURY'").GetROProperty("text")
7) If message="The password is 'MERCURY'" Then
8) Reporter.ReportEvent 0,"Res","Correct message "&message
9) else
10) Reporter.ReportEvent 1,"Res","Worng message "
11) End If

15) Count all opened Browsers on desktop and close them all?
2) oDesc("micclass").Value = "Browser"
3) Set Browsers =Desktop.ChildObjects (oDesc)
4) NumberofBrowsers = Browsers.Count()


gcrindia@gmail.com

5) Reporter.ReportEvent 2,"Res","Number of Browsers are:
"&NumberOfBrowsers
6) For Counter=0 to NumberofBrowsers-1
7) Browsers(Counter).Close
8) Next

16) Create an Excel file, enter some data and save the file through VB
scripting?

1) Dim objexcel
2) Set objExcel = createobject("Excel.application")
3) objexcel.Visible = True
4) objexcel.Workbooks.add
5) objexcel.Cells(1, 1).Value = "Testing"
6) objexcel.ActiveWorkbook.SaveAs("f:exceltest.xls")
7) objexcel.Quit


gcrindia@gmail.com

QTP Add-Ins Information
I) ActiveX Environment

Object Description
ActiveX An ActiveX control.
AcxButton An ActiveX button.
AcxCalendar An ActiveX calendar object.
AcxCheckBox An ActiveX check box.
AcxComboBox An ActiveX combo box object.
AcxEdit An ActiveX edit box.
AcxRadioButton An ActiveX radio button.
AcxTable An ActiveX table.
An object that enables you to work with objects
AcxUtil returned by performing an operation (usually via
the Object property) on an ActiveX test object.

II) Delphi Environment

Object Description
DelphiButton A Delphi button.
DelphiCheckBox A Delphi check box.
DelphiComboBox A Delphi combo box.
DelphiEdit A Delphi edit box.
DelphiEditor A Delphi multi-line editor.
DelphiList A Delphi list.
DelphiListView A Delphi list-view control.
DelphiNavigator A Delphi navigator control.
DelphiObject A Delphi object.
DelphiRadioButton A Delphi radio button.
DelphiScrollBar A Delphi scroll bar.
DelphiSpin A Delphi spin box.
DelphiStatic A Delphi static control.
DelphiStatusBar A Delphi status bar.
DelphiTable A Delphi table.
DelphiTabStrip A Delphi tab strip.
DelphiTreeView A Delphi tree-view control.


gcrindia@gmail.com

DelphiWindow A Delphi window or dialog box.

III) Java Environment

Object Description
JavaApplet A Java applet.
JavaButton A Java button.
JavaCalendar A Java calendar.
JavaCheckBox A Java check box.
JavaDialog A Java dialog box.
JavaEdit A Java edit box.
A Java control that contains labeled
JavaExpandBar bar items, which can be expanded
or collapsed by the user.
An internal frame that can be
JavaInternalFrame
activated from the Java applet.
A Java control that displays text
JavaLink
with links.
A Java list box with single or
JavaList
multiple selection.
JavaMenu A Java menu item.
JavaObject A generic Java object.
JavaRadioButton A Java radio button.
JavaSlider A Java slider.
JavaSpin A Java spin object.
JavaStaticText A Java static text object.
A Java tabstrip control containing
JavaTab
tabbed panels.
JavaTable A Java table.
JavaToolbar A Java toolbar.
JavaTree A Java tree.
JavaWindow A Java window.

IV) .NET Web Forms Environment

Object Description
WbfCalendar A .NET Web Forms calendar control.
WbfGrid A .NET Web Forms DataGrid object.


gcrindia@gmail.com

WbfTabStrip A .NET Web Forms tabstrip control.
WbfToolbar A .NET Web Forms toolbar control.
WbfTreeView A .NET Web Forms tree view object.
WbfUltraGrid A .NET Web Forms UltraGrid object.

V) .NET Windows Forms Environment

Object Description
SwfButton A .NET Windows Forms button object.
A DateTimePicker or a Month Calendar .NET
SwfCalendar
Windows Forms calendar object.
SwfCheckBox A .NET Windows Forms check box.
SwfComboBox A .NET Windows Forms combo box.
SwfEdit A .NET Windows Forms edit box.
SwfEditor A .NET Windows Forms multi-line edit box.
SwfLabel A .NET Windows Forms static text object.
SwfList A .NET Windows Forms list.
SwfListView A .NET Windows Forms ListView control.
SwfObject A standard .NET Windows Forms object.
A property grid control based on the .NET
SwfPropertyGrid
Windows Forms library.
SwfRadioButton A .NET Windows Forms radio button.
SwfScrollBar A .NET Windows Forms scroll bar.
SwfSpin A .NET Windows Forms spin object.
SwfStatusBar A .NET Windows Forms status bar control.
SwfTab A .NET Windows Forms tab control.
A grid control based on the .NET Windows Forms
SwfTable
library.
SwfToolBar A .NET Windows Forms toolbar.
SwfTreeView A .NET Windows Forms TreeView control.
SwfWindow A .NET Windows Forms window.

VI) Windows Presentation Foundation Environment

Object Description
A button control in a Windows Presentation
WpfButton
Foundation application.


gcrindia@gmail.com

A check box control in a Windows Presentation
WpfCheckBox
A combo box control in a Windows Presentation
WpfComboBox
A document, rich text box, or text control in a
WpfEdit
Windows Presentation Foundation application.
A grid control in a Windows Presentation
WpfGrid
An image control in a Windows Presentation
WpfImage
A hyperlink control in a Windows Presentation
WpfLink
A list control in a Windows Presentation
WpfList
A menu control in a Windows Presentation
WpfMenu
An object control in a Windows Presentation
WpfObject
A progress bar control in a Windows Presentation
WpfProgressBar
A radio button control in a Windows Presentation
WpfRadioButton
A scroll bar control in a Windows Presentation
WpfScrollBar
A slider control in a Windows Presentation
WpfSlider
A status bar control in a Windows Presentation
WpfStatusBar
A tab control in a Windows Presentation
WpfTabStrip
A toolbar control in a Windows Presentation
WpfToolbar
A tree control in a Windows Presentation
WpfTreeView
A window control in a Windows Presentation
WpfWindow


gcrindia@gmail.com

VII) Oracle Environment

Object Description
OracleApplications An Oracle Applications session window.
OracleButton An Oracle button.
OracleCalendar An Oracle calendar.
OracleCheckbox A check box Oracle field.
OracleFlexWindow An Oracle flexfield window.
OracleFormWindow An Oracle Form window.
OracleList An Oracle poplist (combo box) or list.
An Oracle window containing a list of values for
OracleListOfValues
selection.
OracleLogon An Oracle Applications sign-on window.
OracleNavigator An Oracle Navigator window.
OracleNotification An Oracle error or message window.
OracleRadioGroup An Oracle option (radio button) group.
The status line and message line at the bottom
OracleStatusLine
of an Oracle Applications window.
OracleTabbedRegion An Oracle tabbed region.
OracleTable An Oracle block of records.
OracleTextField An Oracle text field.
OracleTree An Oracle tree.

VIII) PeopleSoft Environment

Object Description
PSFrame A frame object within a PeopleSoft application.

IX) PowerBuilder Environment

Object Description
PbButton A PowerBuilder button.
PbCheckBox A PowerBuilder check box.
PbComboBox A PowerBuilder combo box.
PbDataWindow A PowerBuilder DataWindow control.
PbEdit A PowerBuilder edit box.
PbList A PowerBuilder list.


gcrindia@gmail.com

PbListView A PowerBuilder listview control.
PbObject A standard PowerBuilder object.
PbRadioButton A PowerBuilder radio button.
PbScrollBar A PowerBuilder scroll bar.
PbTabStrip A PowerBuilder tab strip control
PbTreeView A PowerBuilder tree-view control.
PbWindow A PowerBuilder window.

X) SAP Web Environment

Object Description
An SAP Gui for HTML application button,
including icons, toolbar buttons, regular buttons,
SAPButton
buttons with text, and buttons with text and
image.
SAPCalendar A calendar in a Web-based SAP application.
An SAP Gui for HTML application toggle button,
SAPCheckBox
including check boxes and toggle images.
A menu that is opened by clicking a menu icon
SAPDropDownMenu
within an SAP Gui for HTML application.
An SAP Gui for HTML application edit box,
SAPEdit including single-line edit boxes and multi-line
edit boxes (text area).
SAPFrame An SAP Gui for HTML application frame.
SAPiView An SAP Enterprise Portal application iView frame.
A drop-down or single/multiple selection list in an
SAPList
SAP Gui for HTML application.
SAPMenu An SAP Gui for HTML application top-level menu.
SAPNavigationBar A navigation bar in a Web-based SAP application.
An OK Code box in an SAP Gui for HTML
SAPOKCode
application.
SAPPortal An SAP Enterprise Portal desktop.
An SAP Gui for HTML application radio button
SAPRadioGroup
group.
SAPStatusBar An SAP Gui for HTML application status bar.
SAPTable An SAP Gui for HTML application table or grid.
An SAP Gui for HTML application tab strip object
SAPTabStrip
(an object that enables switching between


gcrindia@gmail.com

multiple tabs).
SAPTreeView An SAP Gui for HTML application tree object.

XI) SAP GUI for Windows Environment

Object Description
An APO grid control in an SAP GUI for Windows
SAPGuiAPOGrid
application.
SAPGuiButton A button in an SAP GUI for Windows application.
A calendar object in an SAP GUI for Windows
SAPGuiCalendar
application.
A check box in an SAP GUI for Windows
SAPGuiCheckBox
application.
A combo box in an SAP GUI for Windows
SAPGuiComboBox
application.
An edit box in an SAP GUI for Windows
SAPGuiEdit
application.
Any object in an SAP GUI for Windows
SAPGuiElement
application.
A grid control in an SAP GUI for Windows
SAPGuiGrid
application.
A static text label in an SAP GUI for Windows
SAPGuiLabel
application.
A menu bar in an SAP GUI for Windows
SAPGuiMenubar
application.
An OK Code box in an SAP GUI for Windows
SAPGuiOKCode
application.
A radio button in an SAP GUI for Windows
SAPGuiRadioButton
application.
Represents the SAP GUI for Windows session on
SAPGuiSession
which an operation is performed.
A status bar in an SAP GUI for Windows
SAPGuiStatusBar
application.
A table control in an SAP GUI for Windows
SAPGuiTable
application.
A tab strip in an SAP GUI for Windows
SAPGuiTabStrip
application.
A text area in an SAP GUI for Windows
SAPGuiTextArea
application.


gcrindia@gmail.com

SAPGuiToolbar A toolbar in an SAP GUI for Windows application.
A column tree, list tree, or simple tree control in
SAPGuiTree
an SAP GUI for Windows application.
A utility object in an SAP GUI for Windows
SAPGuiUtil
application.
A window or dialog box containing objects in an
SAPGuiWindow
SAP GUI for Windows application.

XII) Siebel Environment

Object Description
An edit box whose value can be set by a
SblAdvancedEdit dynamic object that opens after clicking
on a button inside the edit box
SblButton A Siebel button.
SblCheckBox A check box with an ON and OFF state.
SblEdit An edit box.
SblPickList A drop-down pick list.
A Siebel table containing a variable
SblTable
number of rows and columns.
A number of tabs and four arrows that
SblTabStrip move its visible range to the left and to
the right.
SblTreeView A tree view of specific screen data.
An applet in a Siebel test automation
SiebApplet
environment.
An application in a Siebel test automation
SiebApplication
environment.
A button control in a Siebel test
SiebButton
automation environment.
A calculator control in a Siebel test
SiebCalculator
A calendar control in a Siebel test
SiebCalendar
A checkbox in a Siebel test automation
SiebCheckbox
environment.
The communications toolbar in a Siebel
SiebCommunicationsToolbar
test automation environment.
SiebCurrency A currency calculator in a Siebel test


gcrindia@gmail.com

A list object in a Siebel test automation
SiebList
environment.
A menu or menu item in a Siebel test
SiebMenu
A page tab in a Siebel test automation
SiebPageTabs
environment.
A predefined query in a Siebel test
SiebPDQ
A pick list in a Siebel test automation
SiebPicklist
environment.
A rich text control in a Siebel test
SiebRichText
A screen object in a Siebel test
SiebScreen
A screen view in a Siebel test automation
SiebScreenViews
environment.
The Task Assistant in a Siebel test
SiebTaskAssistant
The task UI pane in a Siebel test
SiebTaskUIPane
A text box in a Siebel test automation
SiebText
environment.
A text area in a Siebel test automation
SiebTextArea
environment.
A threadbar in a Siebel test automation
SiebThreadbar
environment.
A toolbar in a Siebel test automation
SiebToolbar
environment.
A tree view object in a Siebel test
SiebTree
A view object in a Siebel test automation
SiebView
environment.
A view applet in a Siebel test automation
SiebViewApplets
environment.


gcrindia@gmail.com

XIII) Standard Windows Environment

Object Description
An object that enables you to access top-level
Desktop
items on your desktop.
Dialog A Windows dialog box.
Static A static text object.
An object used to control applications and
SystemUtil
processes during a run session.
WinButton A Windows button.
WinCalendar A Windows calendar.
WinCheckBox A Windows check box.
WinComboBox A Windows combo box.
Window A standard window.
WinEdit A Windows edit box.
WinEditor A Windows multi-line editor.
WinList A Windows list.
WinListView A Windows list-view control.
WinMenu A Windows menu.
WinObject A standard (Windows) object.
WinRadioButton A Windows radio button.
WinScrollBar A Windows scroll bar.
WinSpin A Windows spin box.
WinStatusBar A Windows status bar.
WinTab A Windows tab strip in a dialog box.
WinToolbar A Windows toolbar.
WinTreeView A Windows tree-view control.

XIV) Stingray Environment

Object Description
WinTab A Windows tab strip in a dialog box.
WinTable A Stingray grid.
WinToolbar A Windows toolbar.
WinTreeView A Stingray tree control.


gcrindia@gmail.com

XV) Terminal Emulators Environment

Object Description
A terminal emulator field that fully supports
TeField
HLLAPI.
A terminal emulator screen that fully supports
TeScreen
HLLAPI.
A terminal emulator screen that uses text-only
TeTextScreen
HLLAPI or does not support HLLAPI.
TeWindow A terminal emulator window.

XVI) Visual Basic Environment

Object Description
VbButton A Visual Basic button.
VbCheckBox A Visual Basic check box.
VbComboBox A Visual Basic combo box.
VbEdit A Visual Basic edit box.
VbEditor A Visual Basic multi-line editor.
VbFrame A Visual Basic frame.
VbLabel A static text object.
VbList A Visual Basic list.
VbListView A Visual Basic list-view control.
VbRadioButton A Visual Basic radio button.
VbScrollBar A Visual Basic scroll bar.
VbToolbar A Visual Basic toolbar.
VbTreeView A Visual Basic tree-view control.
VbWindow A Visual Basic window.

XVII) VisualAge Smalltalk Environment

Object Description
WinButton A button in the VisualAge Smalltalk application.
An edit box in the VisualAge Smalltalk
WinEdit
application.
WinList A list in the VisualAge Smalltalk application.


gcrindia@gmail.com

WinObject An object in the VisualAge Smalltalk application.
WinTab A tab strip in the VisualAge Smalltalk application.
WinTable A table in the VisualAge Smalltalk application.
A tree-view control in the VisualAge Smalltalk
WinTreeView
application.

XVIII) Web Environment

Object Description
Browser A Web browser (or browser tab).
Frame An HTML frame.
Image An image with or without a target URL link.
Link A hypertext link.
Page An HTML page.
ViewLink A Viewlink object.
A section of an image (usually a section of a
WebArea
client-side image map).
WebButton An HTML button.
WebCheckBox A check box with an ON and OFF state.
WebEdit An edit box, usually contained inside a form.
A general Web object that can represent any
WebElement
Web object.
An edit box with a browse button attached, used
WebFile
to select a file from the File dialog box.
WebList A drop-down box or multiple selection list.
A set of radio buttons belonging to the same
WebRadioGroup
group.
A table containing a variable number of rows and
WebTable
columns.
WebXML An XML document contained in a Web page.

XIX) Web Services Environment

Object Description
An object that supports attachment-related test
Attachments
object operations.
An object that supports configuration-related test
Configuration
object operations.


gcrindia@gmail.com

An object that supports header-related test
headers
object operations.
An object that supports security-related test
Security
object operations.
WebService A test object representing a Web service.
WSUtil A utility object used to check WSDL files.

B) Utility Objects
• Crypt Object
• DataTable Object
• Description Object
• DotNetFactory Object
• DTParameter Object
• DTSheet Object
• Environment Object
• Extern Object
• LocalParameter Object
• MercuryTimers Object (Collection)
• MercuryTimer Object
• Parameter Object
• PathFinder Object
• Properties Object (Collection)
• QCUtil Object
• RandomNumber Object
• Recovery Object
• Reporter Object
• RepositoriesCollection Object
• Repository Object
• Services Object
• Setting Object
• SystemMonitor Object


gcrindia@gmail.com

• TextUtil Object
• TSLTest Object
• XMLUtil Object

The following utility statements help you control your test.
• DescribeResult Statement
• ExecuteFile Statement
• ExitAction Statement
• ExitActionIteration Statement
• ExitComponent Statement
• ExitComponentIteration Statement
• ExitTest Statement
• ExitTestIteration Statement
• GetLastError Statement
• InvokeApplication Statement
• LoadAndRunAction Statement
• ManualStep Statement
• Print Statement
• RegisterUserFunc Statement
• RunAction Statement
• SetLastError Statement
• UnregisterUserFunc Statement
• Wait Statement

C) Supplemental Objects
• DbTable Object
• VirtualButton Object
• VirtualCheckBox Object
• VirtualList Object
• VirtualObject Object
• VirtualRadioButton Object


gcrindia@gmail.com

• VirtualTable Object
• XMLAttribute Object
• XMLAttributesColl Object
• XMLData Object
• XMLElement Object
• XMLElementsColl Object
• XMLFile Object
• XMLItemColl Object


gcrindia@gmail.com

VBScript Glossary
ActiveX control
An object that you place on a form to enable or enhance a user's interaction
with an application. ActiveX controls have events and can be incorporated into
other controls. The controls have an .ocx file name extension.

ActiveX object
An object that is exposed to other applications or programming tools through
Automation interfaces.

Argument
A constant, variable, or expression passed to a procedure.

Array
A set of sequentially indexed elements having the same type of data. Each
element of an array has a unique identifying index number. Changes made to
one element of an array do not affect the other elements.

ASCII Character Set
American Standard Code for Information Interchange (ASCII) 7-bit character
set widely used to represent letters and symbols found on a standard U.S.
keyboard. The ASCII character set is the same as the first 128 characters (0–
127) in the ANSI character set.

Automation object
An object that is exposed to other applications or programming tools through
Automation interfaces.

Bitwise comparison
A bit-by-bit comparison of identically positioned bits in two numeric
expressions.

Boolean expression
An expression that evaluates to either True or False.

By reference
A way of passing the address, rather than the value, of an argument to a
procedure. This allows the procedure to access the actual variable. As a
result, the variable's actual value can be changed by the procedure to which it
is passed.


gcrindia@gmail.com

By value
A way of passing the value, rather than the address, of an argument to a
procedure. This allows the procedure to access a copy of the variable. As a
result, the variable's actual value can't be changed by the procedure to which
it is passed.

character code
A number that represents a particular character in a set, such as the ASCII
character set.

Class
The formal definition of an object. The class acts as the template from which
an instance of an object is created at run time. The class defines the
properties of the object and the methods used to control the object's
behavior.

Class module
A module containing the definition of a class (its property and method
definitions).

Collection
An object that contains a set of related objects. An object's position in the
collection can change whenever a change occurs in the collection; therefore,
the position of any specific object in the collection may vary.

Comment
Text added to code by a programmer that explains how the code works. In
Visual Basic Scripting Edition, a comment line generally starts with an
apostrophe ('), or you can use the keyword Rem followed by a space.

Comparison operator
A character or symbol indicating a relationship between two or more values or
expressions. These operators include less than (<), less than or equal to
(<=), greater than (>), greater than or equal to (>=), not equal (<>), and
equal (=).

Is is also a comparison operator, but it is used exclusively for determining if
one object reference is the same as another.

Constant
A named item that retains a constant value throughout the execution of a
program. Constants can be used anywhere in your code in place of actual
values. A constant can be a string or numeric literal, another constant, or any
combination that includes arithmetic or logical operators except Is and
exponentiation. For example:


gcrindia@gmail.com

Const A = "MyString"

Data ranges
Each Variant subtype has a specific range of allowed values:
Subtype Range

Byte 0 to 255.

Boolean True or False.

Integer -32,768 to 32,767.

Long -2,147,483,648 to 2,147,483,647.

Single -3.402823E38 to -1.401298E-45 for negative values;
1.401298E-45 to 3.402823E38 for positive values.

Double -1.79769313486232E308 to -4.94065645841247E-324 for
negative values; 4.94065645841247E-324 to
1.79769313486232E308 for positive values.

Currency -922,337,203,685,477.5808 to 922,337,203,685,477.5807.

Date January 1, 100 to December 31, 9999, inclusive.

Object Any Object reference.

String Variable-length strings may range in length from 0 to
approximately 2 billion characters.

Date expression
Any expression that can be interpreted as a date. This includes any
combination of date literals, numbers that look like dates, strings that look
like dates, and dates returned from functions. A date expression is limited to
numbers or strings, in any combination, that can represent a date from
January 1, 100 through December 31, 9999.

Dates are stored as part of a real number. Values to the left of the decimal
represent the date; values to the right of the decimal represent the time.
Negative numbers represent dates prior to December 30, 1899.

Date literal
Any sequence of characters with a valid format that is surrounded by number
signs (#). Valid formats include the date format specified by the locale
settings for your code or the universal date format. For example, #12/31/99#
is the date literal that represents December 31, 1999, where English-U.S. is
the locale setting for your application.


gcrindia@gmail.com

In VBScript, the only recognized format is US-ENGLISH, regardless of the
actual locale of the user. That is, the interpreted format is mm/dd/yyyy.

Date separators
Characters used to separate the day, month, and year when date values are
formatted.

Empty
A value that indicates that no beginning value has been assigned to a
variable. Empty variables are 0 in a numeric context, or zero-length in a
string context.

Error number
A whole number in the range 0 to 65,535, inclusive, that corresponds to the
Number property of the Err object. When combined with the Name property
of the Err object, this number represents a particular error message.

Expression
A combination of keywords, operators, variables, and constants that yield a
string, number, or object. An expression can perform a calculation,
manipulate characters, or test data.

Intrinsic constant
A constant provided by an application. Because you can't disable intrinsic
constants, you can't create a user-defined constant with the same name.

Keyword
A word or symbol recognized as part of the VBScript language; for example, a
statement, function name, or operator.

Locale
The set of information that corresponds to a given language and country. A
locale affects the language of predefined programming terms and locale-
specific settings. There are two contexts where locale information is
important:

• The code locale affects the language of terms such as keywords and
defines locale-specific settings such as the decimal and list separators,
date formats, and character sorting order.
• The system locale affects the way locale-aware functionality behaves,
for example, when you display numbers or convert strings to dates.
You set the system locale using the Control Panel utilities provided by
the operating system.


gcrindia@gmail.com

Nothing
The special value that indicates that an object variable is no longer associated
with any actual object.

Null
A value indicating that a variable contains no valid data. Null is the result of:

• An explicit assignment of Null to a variable.
• Any operation between expressions that contain Null.

Numeric expression
Any expression that can be evaluated as a number. Elements of the
expression can include any combination of keywords, variables, constants,
and operators that result in a number.

Object type
A type of object exposed by an application, for example, Application, File,
Range, and Sheet. Refer to the application's documentation (Microsoft Excel,
Microsoft Project, Microsoft Word, and so on) for a complete listing of
available objects.

pi
Pi is a mathematical constant equal to approximately 3.1415926535897932.

Private
Variables that are visible only to the script in which they are declared.

Procedure
A named sequence of statements executed as a unit. For example, Function
and Sub are types of procedures.

Procedure level
Describes statements located within a Function or Sub procedure.
Declarations are usually listed first, followed by assignments and other
executable code. For example:

Sub MySub() ' This statement declares a sub procedure block.
Dim A ' This statement starts the procedure block.
A = "My variable" ' Procedure-level code.
Debug.Print A ' Procedure-level code.
End Sub ' This statement ends a sub procedure block.
Note that script-level code resides outside any procedure blocks.


gcrindia@gmail.com

Property
A named attribute of an object. Properties define object characteristics such
as size, color, and screen location, or the state of an object, such as enabled
or disabled.

Public
Variables declared using the Public Statement are visible to all procedures in
all modules in all applications.

Run time
The time when code is running. During run time, you can't edit the code.

Run-time error
An error that occurs when code is running. A run-time error results when a
statement attempts an invalid operation.

Scope
Defines the visibility of a variable, procedure, or object. For example, a
variable declared as Public is visible to all procedures in all modules.
Variables declared in procedures are visible only within the procedure and
lose their value between calls.

SCODE
A long integer value that is used to pass detailed information to the caller of
an interface member or API function. The status codes for OLE interfaces and
APIs are defined in FACILITY_ITF.

Script level
Any code outside a procedure is referred to as script-level code.

Seed
An initial value used to generate pseudorandom numbers. For example, the
Randomize statement creates a seed number used by the Rnd function to
create unique pseudorandom number sequences.

String comparison
A comparison of two sequences of characters. Unless specified in the function
making the comparison, all string comparisons are binary. In English, binary
comparisons are case-sensitive; text comparisons are not.


gcrindia@gmail.com

String expression
Any expression that evaluates to a sequence of contiguous characters.
Elements of a string expression can include a function that returns a string, a
string literal, a string constant, or a string variable.

Type library
A file or component within another file that contains standard descriptions of
exposed objects, properties, and methods.

Variable
A named storage location that can contain data that can be modified during
program execution. Each variable has a name that uniquely identifies it within
its level of scope.

Variable names:

• Must begin with an alphabetic character.
• Can't contain an embedded period or type-declaration character.
• Must be unique within the same scope.
• Must be no longer than 255 characters.


Advanced Qtp Book

More Related Content

Viewers also liked (6)

Similar to Advanced Qtp Book (20)

Recently uploaded (20)

Advanced Qtp Book