Advanced Qtp Tutorial 1l383

Advanced QTP Tutorial Advanced QTP Tutorial (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 1. Introduction VBScript is a scripting language.



A scripting language is a lightweight programming language.



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 istration 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. 1.Start Notepad. 2. 2.Write your script. For example purposes, type Msgbox "Hello VB Script" 3. 3.Save this text file with a .vbs extension (instead of the default .txt extension). For example, Hello.vbs 4. 4.Navigate to the file you just saved, and double-click it. 5. 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). 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 ed 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. 2. Comments

 

 

The comment argument is the text of any comment we want to include. 2.0 Purpose of comments: We can use comments for making the script understandable. 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) 3. 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: Must begin with an alphabetic character.



Cannot contain an embedded period.



Must not exceed 255 characters.



Must be unique in the scope in which it is declared. 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 scriptlevel 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 Asg 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: 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. 4. 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 zerolength 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. 5. 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. 5.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. 5.2 Arithmetic Operators: Operators symbols and their 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. 5.3 Comparison Operators Comparison operators are used to compare expressions. Operators Symbols and their Description) 1. = (Equal to) 2. (Not equal to) 3. < (Less than) 4. > (Greater than) 5. <= (Less than or equal to) 6. >= (Greater than or equal to) 7. Is (Object equivalence) 5.4 Concatenation Operators Concatenation Operators and their Description 1) Addition Operator (+) - Sums two numbers If both expressions are numeric then Add



If both expressions are strings then Concatenate.



If both One expression is numeric and the other is a string then Add. 2) Concatenation Operator (&) : Forces string concatenation of two expressions.

5.5 Logical Operators Operator Symbol and Description 1) Not : Performs logical negation on an expression Syntax: result= Not expression 2) And : Performs a logical conjunction on two expressions. Syntax: result= expression1 And expression2 3) Or : Performs a logical disjunction on two expressions. Syntax: result= expression1 Or expression2 4) Xor : Performs a logical exclusion on two expressions. Syntax: result= expression1 Xor expression2 5) Eqv : Performs a logical equivalence on two expressions. Syntax: result= expression1 Eqv expression2 6) Imp : Performs a logical implication on two expressions. Syntax: result= expression1 Imp expression2 6. Input/Output Operations 6.1 InputBox Function Displays a prompt in a dialog box, waits for the 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 to click a button, and returns a value indicating which button the clicked. Example: Dim MyVar MyVar = MsgBox ("Hello World!", 65, "MsgBox Example") ' MyVar contains either 1 or 2, depending on which button is 7. 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 -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 8. 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: 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 "Hello G.C.Reddy" 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 msgbox "Hello G.C.Reddy" msgbox "Dist count is 10" Else if Region= "Rayalasema" Then msgbox "Hello GCR" msgbox "Dist count is 4" Else If Region= "Costal" Then msgbox "Hello Chandra mohan Reddy" msgbox "Dist count is 9" 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 "Hello G.C.Reddy" Msgbox "Addition of x,y values is "&Result Case "sub" Result= x-y Msgbox "Hello G.C.Reddy" Msgbox "Substraction of x,y values is "&Result Case "mul" Result= x*y Msgbox "Hello G.C.Reddy" Msgbox "Multiplication of x,y values is "&Result Case "div" Result= x/y Msgbox "Hello G.C.Reddy" Msgbox "Division of x,y values is "&Result Case "mod"

Result= x mod y Msgbox "Hello G.C.Reddy" Msgbox "Mod of x,y values is "&Result Case "expo" Result= x^y Msgbox "Hello G.C.Reddy" Msgbox"Exponentation of x,y values is "&Result Case Else Msgbox "Hello G.C.Reddy" 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 " ∑) 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 " ∑) 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) rev=rev*10 + num mod 10 num=num/10 num= left(num,2) rev=rev*10 + num mod 10 num=num/10 num= left(num,1) rev=rev*10 + num mod 10 msgbox "Reverse Order of the number is "&rev 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" else If cdbl(e) >=35 and cdbl(m) >=35 and cdbl(p) >=35 and cdbl(c) >=35 and tot >=200 and tot<240 Then msgbox "Grade is Second" else If cdbl(e) >=35 and cdbl(m) >=35 and cdbl(p) >=35 and cdbl(c) >=35 and tot >=160 and tot<200 Then 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 msgbox num Next 8.3.9 Display Even numbers up to n? Dim num,n n=Inputbox ("Enter a Vaule") For num= 2 to n step 2 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 For num= 1 to n step 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 n=Inputbox ("Enter a Vaule") 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 For num= 1 to n step 1 sum= sum+num Next msgbox sum 8.13 Display Natural numbers sum up to n? (using While...Wend Loop) Dim num, n, sum n= inputbox ("Enter a Value") While num <=cdbl (n) sum= sum+num num=num+1 Wend msgbox sum 8.14 Display Natural numbers sum up to n? (Using Do...Until...Loop) Dim num, n, sum n= inputbox ("Enter a Value") 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 For num= 1 to n step 1 sum= sum+num Next msgbox sum End Function 8.16 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)) d3=mid (num, 3, len (1)) d4=mid (num, 4, len (1)) d5=mid (num, 5, len (1)) d6=mid (num, 6, len (1)) d7=mid (num, 7, len (1)) d8=mid (num, 8, len (1)) d9=mid (num, 9, 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 8.17 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) d2=mid (num, 2, len (1)) d3=mid (num, 3, len (1)) d4=mid (num, 4, len (1)) d5=mid (num, 5, len (1)) d6=mid (num, 6, len (1)) d7=mid (num, 7, len (1)) d8=mid (num, 8, len (1)) d9=mid (num, 9, len (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 9. Looping Through Code Looping allows us to run a group of statements repeatedly.



Some loops repeat statements until a condition is False;



Others repeat statements until a condition is True.



   

There are also loops that repeat statements a specific number of times. The following looping statements are available in VBScript: Do...Loop: Loops while or until a condition is True. While...Wend: Loops while a condition is True. For...Next: Uses a counter to run statements a specified number of times. 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 G.C.Reddy" Msgbox "Hello QTP"

Loop b) Do Statements --------------------Loop While condition Example: Dim x x=1 Do Msgbox "Hello G.C.Reddy" 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 Or, we can use this below syntax: Example: Dim x Do Until x=5 x=x+1 Msgbox "G.C.Reddy" Msgbox "Hello QTP" Loop Or, we can use this below syntax: d) Do Statements --------------------Loop Until condition Or, we can use this below syntax: 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 --------------------Wend Example: Dim x x=0 While x<5 x=x+1 msgbox "Hello G.C.Reddy" 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 Msgbox "Hello G.C.Reddy" 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

msgbox element Next 10. Control Flow Examples (Using Conditional and Loop Statements) 10.1 read a number and 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 10.2 read Data and find that data size, If size 4 then display invalid data message, if data size = 4 then “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 11. 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 ed 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 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 ed to it by a calling procedure). If a Function procedure has no arguments, its Function statement must include an empty set of parentheses. A Function returns a value by asg 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 Each piece of data is ed into our procedures using an argument. Arguments serve as placeholders for the data we want to into our procedure. We can name our arguments any valid variable name. When we create a procedure using either the Sub statement or the Function statement, parentheses must be included after the name of the procedure. 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) -OrMsgBox "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. 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. 12. VB Script Built in Functions Types of Functions Conversions (25)



Dates/Times (19)



Formatting Strings (4)



Input/Output (3)



Math (9)



Miscellaneous (3)



Rounding (5)



Strings (30)



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 * 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) Function Returns a string created by ing a number of substrings contained in an array. Dim mystring, myarray(3) myarray(0)="Chandra " myarray(1)="Mohan " myarray(2)="Reddy" mystring=(MyArray) msgbox mystring 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". 15) 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". 16) 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 17) 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’ * 18) 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) 19) isNumeric Function Dim MyVar, MyCheck MyVar = 53 MyCheck = IsNumeric(MyVar) msgbox MyCheck MyVar = "459.95" MyCheck = IsNumeric(MyVar) msgbox MyCheck MyVar = "45 Help" MyCheck = IsNumeric(MyVar) msgbox MyCheck * It Returns True/False like Result * 20) Inputbox Function Displays a prompt in a dialog box, waits for the 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) 21) Msgbox Function Displays a message in a dialog box, waits for the to click a button, and returns a value indicating which button the clicked. Dim MyVar MyVar = MsgBox ("Hello World!", 65, "MsgBox Example") 13. VBScript syntax rules and guidelines 13.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" 13.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) 13.3 Variables: We can specify variables to store strings, integers, arrays and objects. Using variables helps to make our script more readable and flexible 13.4 Parentheses: To achieve the desired result and to avoid errors, it is important that we use parentheses () correctly in our statements. 13.5 Indentation: We can indent or outdent our script to reflect the logical structure and nesting of the statements. 13.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. 13.7 Spaces: We can add extra blank spaces to our script to improve clarity. These spaces are ignored by VBScript. 14. Errors We have two types Errors in VB Script; they are VBScript Run-time Errors and VBScript Syntax Errors 14.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 runtime errors occur while our script is being executed; when variable expressions are being evaluated, and memory is being dynamic allocated. 14.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. 15. 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" Set objFSO = CreateObject("Scripting.FileSystemObject") 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 oFSO = CreateObject("Scripting.FileSystemObject") Set colDrives = oFSO.Drives For Each oDrive in colDrives MsgBox "Drive letter: " & oDrive.DriveLetter Next f) Getting available space on a Disk Drive Set oFSO = CreateObject("Scripting.FileSystemObject") Set oDrive = oFSO.GetDrive("C:") MsgBox "Available space: " & oDrive.AvailableSpace II) Working with Flat Files a)Creating a Flat File Set objFSO = CreateObject("Scripting.FileSystemObject") 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" Set objFSO = CreateObject("Scripting.FileSystemObject") 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 Set objFSO = CreateObject("Scripting.FileSystemObject") 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 objFSO = CreateObject("Scripting.FileSystemObject") 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 Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe","","C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\","open" Dialog("").Activate Dialog("").WinEdit("Agent Name:").Set s(0) Dialog("").WinEdit(":").SetSecure s(1) Dialog("").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") txtFilepath.Delete() h) Checking weather the File is available or not, if available delete the File strDirectory="E:\"

strFile="gcr.txt" Set objFSO = CreateObject("Scripting.FileSystemObject") 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." 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") 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 16. Test Requirements 1) Boundary (Check all the boundary conditions of the window. Checks to see if the correct message appears in the error window (Flight Reservation Message) 2) Cancel Operation (in Dialog box, if selects cancel button, before enter any data after enter data dialog box should be disappeared.) 3) Addition, Subtraction, Multiplication and Division Operations in Calculator Application. 4) 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) Total, In Flight Reservation (In Flight Reservation, Total = Tickets * Price) 7) Flight From & Flight To Combo Boxes (In Flight reservation, select an item from Fly From: combo box and weather that item available or not in Fly To: combo box, like this select all items one by one in Fly From and weather selected items available or not in Fly To.) 8) 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? 13) 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 Dialog box, Help message (The message is ‘The 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) Boundary (Check all the boundary conditions of the dialog box. Checks to see if the correct message appears in the error window (Flight Reservation Message) 1) ApplicationDir = Environment("ProductDir") 2) ApplicationPath = "\samples\flight\app\flight4a.exe" 3) If Window("Flight Reservation").Exist(2) Then 4) Window("Flight Reservation").Close 5) SystemUtil.Run ApplicationDir & ApplicationPath 6) Elseif Not Dialog("").Exist(1) Then 7) SystemUtil.Run ApplicationDir & ApplicationPath 8) End If 9) Dialog("").WinEdit("Agent Name:").Set Datatable.Value ("AgentName",dtGlobalSheet) 10) Dialog("").WinEdit(":").Set Datatable.Value ("",dtGlobalSheet) 11) Dialog("").WinButton("OK").Click 12) If Dialog("").Dialog("Flight Reservations").Exist(1) and Datatable.Value ("Status",dtGlobalSheet)="Fail" Then 13) Dialog("").Dialog("Flight Reservations").Static("Agent name must be at").Check CheckPoint("Agent name must be at least 4 characters long.") 14) Dialog("").Dialog("Flight Reservations").WinButton("OK").Click 15) Elseif Window("Flight Reservation").Exist(10) and Datatable.Value ("Status",dtGlobalSheet)="" Then 16) Reporter.ReportEvent ,": ","Succeeded" 17) Else 18) Reporter.ReportEvent Fail,": ","Combination #" & Datatable.GetCurrentRow & " was not according to Excel file" 19) End If 2) Cancel Operation (in Dialog box, if selects cancel button, before enter any data after enter data dialog box should be disappeared.) 1) Invokeapplication "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe" 2) Dialog("").Activate 3) Dialog("").WinButton("Cancel").Click 4) If Dialog("").Exist (2) =True Then 5) Reporter.ReportEvent 1,"sd","Fail" 6) Else 7) Reporter.ReportEvent 0,"sd","" 8) Invokeapplication "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe"

9) End If 10) Dialog("").Activate 11) Dialog("").WinEdit("Agent Name:").Set "asdf" 12) Dialog("").WinButton("Cancel").Click 13) If Dialog("").Exist (2) =True Then 14) Reporter.ReportEvent 1,"sd","Fail" 15) Else 16) Reporter.ReportEvent 0,"sd","" 17) Invokeapplication "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe" 18) End If 19) Dialog("").Activate 20) Dialog("").WinEdit("Agent Name:").Set "asdf" 21) Dialog("").WinEdit(":").SetSecure "4a993af45dcbd506c8451b274d2da07b38ff5531" 22) Dialog("").WinButton("Cancel").Click 23) If Dialog("").Exist (2)=True Then 24) Reporter.ReportEvent 1,"sd","Fail" 25) Else 26) Reporter.ReportEvent 0,"sd","" 27) Invokeapplication "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe" 28) End If 29) Dialog("").Activate 30) Dialog("").WinEdit("Agent Name:").Set "asdf" 31) Dialog("").WinEdit(":").SetSecure "4a993af45dcbd506c8451b274d2da07b38ff5531" 32) Dialog("").WinButton("OK").Click 3) 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 22)Reporter.ReportEvent 0,"Res","Addition ed" 23)else 24)Reporter.ReportEvent 1,"Res","Addition Failed" 25)End If 26)If sRes=v1-v2 Then 27)Reporter.ReportEvent 0,"Res","Subtraction ed" 28)else 29)Reporter.ReportEvent 1,"Res","Subtraction Failed" 30)End If 31)If mRes=v1*v2 Then 32)Reporter.ReportEvent 0,"Res","Multiplecation ed" 33)else 34)Reporter.ReportEvent 1,"Res","Multiplecation Failed" 35)End If 36)If dRes=v1/v2 Then 37)Reporter.ReportEvent 0,"Res","Division ed" 38)else 39)Reporter.ReportEvent 1,"Res","Division Failed" 40)End If 4) 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 Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe" 5)Dialog("").Activate 6)Dialog("").WinEdit("Agent Name:").Set "Gcreddy" 7)Dialog("").WinEdit(":").SetSecure "4aa8bce9984f1a15ea187a2da5b18c545abb01cf" 8)Dialog("").WinButton("OK").Click 9)End If 10)Window("Flight Reservation").Activate 11)bo=Window("Flight Reservation").WinButton("Update Order").GetROProperty ("Enabled") 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 3)If Not window("Flight Reservation").Exist (2) Then 4)SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe" 5)Dialog("").Activate 6)Dialog("").WinEdit("Agent Name:").Set "asdf" 7)Dialog("").WinEdit(":").SetSecure "4aa8b7b7c5823680cfcb24d30714c9bbf0dff1eb" 8)Dialog("").WinButton("OK").Click 9)End If 10)For n= 1 to 10 step 1 11)Window("Flight Reservation").Activate 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 n 15)Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click 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) 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 4)If Not window("Flight Reservation").Exist (2) Then 5)SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe","","C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\","open" 6)Dialog("").Activate 7)Dialog("").WinEdit("Agent Name:").Set "Gcreddy" 8)Dialog("").WinEdit(":").SetSecure "4aa892d62c529f1c23298175ad78c58f43da8e34" 9)Dialog("").WinButton("OK").Click 10)End If 11)Window("Flight Reservation").Activate 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 n 15)Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click 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 ed"

24)else 25)Reporter.ReportEvent 1,"Res","Calculation Failed" 26)End If 27)Next 7) Flight From & Flight To Combo Boxes (In Flight reservation, select an item from Fly From: combo box and weather that item available or not in Fly To: combo box, like this select all items one by one in Fly From and 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="\samples\flight\app\flight4a.exe" 6)SystemUtil.Run QTP & Flight_app 7)Dialog("text:=").Activate 8)Dialog("text:=").WinEdit("attached text:=Agent Name:").Set "asdf" 9)Dialog("text:=").WinEdit("attached text:=:").SetSecure "4aa5ed3daf680e7a759bee1c541939d3a54a5b65" 10)Dialog("text:=").WinButton("text:=OK").Click 11)End If 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 ed" 25)Else 26)Reporter.ReportEvent 1,"Res","Test Failed" 27)End If

28)Next 29)Next 8) Order No Entry in Flight Reservation. (In Open Order dialog box, Order No object accepts numeric values only.) 1)If Not window("Flight Reservation").Exist (2) Then 2)SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe" 3)Dialog("").Activate 4)Dialog("").WinEdit("Agent Name:").Set "asdf" 5)Dialog("").WinEdit(":").SetSecure "4aa9ccae3bb00962b47ff7fb0ce3524c1d88cb43" 6)Dialog("").WinButton("OK").Click 7)End If 8)Window("Flight Reservation").Activate 9)Window("Flight Reservation").WinButton("Button").Click 10)Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order 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" 17)Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click 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, ",") 8)SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe" 9)Dialog("").Activate 10)Dialog("").WinEdit("Agent Name:").Set s(0) 11)Dialog("").WinEdit(":").SetSecure s(1) 12)Dialog("").WinButton("OK").Click

13)Window("Flight Reservation").Close 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") 5)con.open "C:\Documents and Settings\\My Documents\Gcr.mdb" 6)rs.open "Select * From ",con 7)While rs.eof True 8)SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe" 9)Dialog("").Activate 10)Dialog("").WinEdit("Agent Name:").Set rs.fields ("Agent") 11)Dialog("").WinEdit(":").Set rs.fields ("") 12)Dialog("").WinButton("OK").Click 13)Window("Flight Reservation").Close 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. 1)If Not window("Flight Reservation").Exist (2) Then 2)SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe" 3)Dialog("").Activate 4)Dialog("").WinEdit("Agent Name:").Set "Gcreddy" 5)Dialog("").WinEdit(":").Set "mercury" 6)Dialog("").WinButton("OK").Click 7)End If 8)Set oDesc = Description.Create() 9)oDesc("micclass").Value = "WinButton" 10)Set Buttons = Window("text:=Flight Reservation").ChildObjects (oDesc) 11)Num_Buttons = Buttons.Count() 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) 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) 1)If Not window("Flight Reservation").Exist (2) Then 2)SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe" 3)Dialog("").Activate 4)Dialog("").WinEdit("Agent Name:").Set "Gcreddy" 5)Dialog("").WinEdit(":").SetSecure "4aa9ed25bc0ebde66ed726ad87d7e991347d8b9c" 6)Dialog("").WinButton("OK").Click 7)End If 8)Window("Flight Reservation").Activate 9)Window("Flight Reservation").WinButton("Button").Click 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") 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","" 19)else 20)Reporter.ReportEvent 1,"Res","Fail" 21)End If

22)Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order 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") 26)ono=Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Customer Name").GetROProperty ("Enabled") 27)fd=false 28)ono=false 29)Reporter.ReportEvent 0,"Res","" 30)else 31)Reporter.ReportEvent 1,"Res","Fail" 32)End If 33)Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order 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 37)ono=Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").GetROProperty ("Enabled") 38)fd=Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Flight Date").GetROProperty ("Enabled") 39)fd=True 40)ono=false 41)Reporter.ReportEvent 0,"Res","" 42)else 43)Reporter.ReportEvent 1,"Res","Fail" 44)End If 45)Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Customer Name").Set "OFF" 46)Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Flight Date").Set "ON" 47)fd=Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Flight Date").GetROProperty ("Checked") 48)If fd="ON" Then 49)ono=Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").GetROProperty ("Enabled") 50)cn=Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Customer Name").GetROProperty ("Enabled") 51)cn=True

52)ono=false 53)Reporter.ReportEvent 0,"Res","" 54)else 55)Reporter.ReportEvent 1,"Res","Fail" 56)End If 14) In Dialog box, Help message (The message is ‘The is 'MERCURY') 1)If Not Dialog("").Exist (2) Then 2)SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe" 3)End If 4)Dialog("").Activate 5)Dialog("").WinButton("Help").Click 6)message=Dialog("").Dialog("Flight Reservations").Static("The is 'MERCURY'").GetROProperty("text") 7)If message="The 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? 1)Set oDesc = Description.Create() 2)oDesc("micclass").Value = "Browser" 3)Set Browsers =Desktop.ChildObjects (oDesc) 4)NumberofBrowsers = Browsers.Count() 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 18. QTP Add-Ins Information I) ActiveX Environment Objects and their 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. AcxUtil : An object that enables you to work with objects returned by performing an operation (usually via the Object property) on an ActiveX test object. II) Delphi Environment Objects and their 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. DelphiWindow : A Delphi window or dialog box. III) Java Environment Objects and their 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. JavaExpandBar : A Java control that contains labeled bar items, which can be expanded or collapsed by the . JavaInternalFrame : An internal frame that can be activated from the Java applet. JavaLink : A Java control that displays text with links. JavaList : A Java list box with single or 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. JavaTab : A Java tabstrip control containing tabbed s. JavaTable : A Java table. JavaToolbar : A Java toolbar. JavaTree : A Java tree. JavaWindow : A Java window. IV) .NET Web Forms Environment Objects and their Description WbfCalendar : A .NET Web Forms calendar control. WbfGrid : A .NET Web Forms DataGrid object. 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 Objects and their Description SwfButton : A .NET Windows Forms button object. SwfCalendar : A DateTimePicker or a Month Calendar .NET 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. SwfPropertyGrid : A property grid control based on the .NET 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. SwfTable : A grid control based on the .NET Windows Forms 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 Objects and their Description

WpfButton : A button control in a Windows Presentation Foundation application. WpfCheckBox : A check box control in a Windows Presentation Foundation application. WpfComboBox : A combo box control in a Windows Presentation Foundation application. WpfEdit : A document, rich text box, or text control in a Windows Presentation Foundation application. WpfGrid : A grid control in a Windows Presentation Foundation application. WpfImage : An image control in a Windows Presentation Foundation application. WpfLink : A hyperlink control in a Windows Presentation Foundation application. WpfList : A list control in a Windows Presentation Foundation application. WpfMenu : A menu control in a Windows Presentation Foundation application. WpfObject : An object control in a Windows Presentation Foundation application. WpfProgressBar : A progress bar control in a Windows Presentation Foundation application. WpfRadioButton : A radio button control in a Windows Presentation Foundation application. WpfScrollBar: A scroll bar control in a Windows Presentation Foundation application. WpfSlider : A slider control in a Windows Presentation Foundation application. WpfStatusBar : A status bar control in a Windows Presentation Foundation application. WpfTabStrip : A tab control in a Windows Presentation Foundation application. WpfToolbar : A toolbar control in a Windows Presentation Foundation application. WpfTreeView : A tree control in a Windows Presentation Foundation application. WpfWindow : A window control in a Windows Presentation Foundation application. VII) Oracle Environment Objects and their 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. OracleListOfValues : An Oracle window containing a list of values for 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. OracleStatusLine : The status line and message line at the bottom 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 and its Description PSFrame : A frame object within a PeopleSoft application. IX) PowerBuilder Environment Objects and their 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. 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 Objects and their Description SAPButton : An SAP Gui for HTML application button, including icons, toolbar buttons, regular buttons, buttons with text, and buttons with text and image. SAPCalendar : A calendar in a Web-based SAP application. SAPCheckBox : An SAP Gui for HTML application toggle button, including check boxes and toggle images. SAPDropDownMenu : A menu that is opened by clicking a menu icon within an SAP Gui for HTML application. SAPEdit : An SAP Gui for HTML application edit box, 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. SAPList : A drop-down or single/multiple selection list in an 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. SAPOKCode : An OK Code box in an SAP Gui for HTML application. SAPPortal : An SAP Enterprise Portal desktop. SAPRadioGroup : An SAP Gui for HTML application radio button group. SAPStatusBar : An SAP Gui for HTML application status bar. SAPTable : An SAP Gui for HTML application table or grid. SAPTabStrip : An SAP Gui for HTML application tab strip object (an object that enables switching between multiple tabs). SAPTreeView : An SAP Gui for HTML application tree object. XI) SAP GUI for Windows Environment Objects and their Description SAPGuiAPOGrid : An APO grid control in an SAP GUI for Windows application. SAPGuiButton : A button in an SAP GUI for Windows application. SAPGuiCalendar : A calendar object in an SAP GUI for Windows application. SAPGuiCheckBox : A check box in an SAP GUI for Windows application. SAPGuiComboBox : A combo box in an SAP GUI for Windows application. SAPGuiEdit : An edit box in an SAP GUI for Windows application. SAPGuiElement : Any object in an SAP GUI for Windows application. SAPGuiGrid : A grid control in an SAP GUI for Windows application. SAPGuiLabel : A static text label in an SAP GUI for Windows application. SAPGuiMenubar : A menu bar in an SAP GUI for Windows application. SAPGuiOKCode : An OK Code box in an SAP GUI for Windows application. SAPGuiRadioButton : A radio button in an SAP GUI for Windows application. SAPGuiSession : Represents the SAP GUI for Windows session on which an operation is performed. SAPGuiStatusBar : A status bar in an SAP GUI for Windows application. SAPGuiTable : A table control in an SAP GUI for Windows application. SAPGuiTabStrip : A tab strip in an SAP GUI for Windows application. SAPGuiTextArea : A text area in an SAP GUI for Windows application. SAPGuiToolbar : A toolbar in an SAP GUI for Windows application. SAPGuiTree : A column tree, list tree, or simple tree control in an SAP GUI for Windows application. SAPGuiUtil : A utility object in an SAP GUI for Windows application. SAPGuiWindow : A window or dialog box containing objects in an SAP GUI for Windows application. XII) Siebel Environment Objects and their Description SblAdvancedEdit : An edit box whose value can be set by a 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. SblTable : A Siebel table containing a variable number of rows and columns. SblTabStrip : A number of tabs and four arrows that move its visible range to the left and to the right. SblTreeView : A tree view of specific screen data. SiebApplet : An applet in a Siebel test automation environment. SiebApplication : An application in a Siebel test automation environment. SiebButton : A button control in a Siebel test automation environment. SiebCalculator : A calculator control in a Siebel test automation environment. SiebCalendar : A calendar control in a Siebel test automation environment. SiebCheckbox : A checkbox in a Siebel test automation environment. SiebCommunicationsToolbar : The communications toolbar in a Siebel test automation environment. SiebCurrency : A currency calculator in a Siebel test automation environment. SiebList : A list object in a Siebel test automation environment. SiebMenu : A menu or menu item in a Siebel test automation environment. SiebPageTabs : A page tab in a Siebel test automation environment. SiebPDQ : A predefined query in a Siebel test automation environment. SiebPicklist : A pick list in a Siebel test automation environment. SiebRichText : A rich text control in a Siebel test automation environment. SiebScreen : A screen object in a Siebel test automation environment. SiebScreenViews : A screen view in a Siebel test automation environment. SiebTaskAssistant : The Task Assistant in a Siebel test automation environment. SiebTaskUIPane : The task UI pane in a Siebel test automation environment. SiebText : A text box in a Siebel test automation environment. SiebTextArea : A text area in a Siebel test automation environment. SiebThreadbar : A threadbar in a Siebel test automation environment. SiebToolbar : A toolbar in a Siebel test automation environment. SiebTree : A tree view object in a Siebel test automation environment. SiebView : A view object in a Siebel test automation environment. SiebViewApplets : A view applet in a Siebel test automation environment. XIII) Standard Windows Environment Objects and their Description Desktop : An object that enables you to access top-level items on your desktop. Dialog : A Windows dialog box. Static : A static text object. SystemUtil : An object used to control applications and 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 Objects and their Description WinTab : A Windows tab strip in a dialog box. WinTable : A Stingray grid. WinToolbar : A Windows toolbar. WinTreeView : A Stingray tree control. XV) Terminal Emulators Environment Objects and their Description TeField : A terminal emulator field that fully s HLLAPI. TeScreen : A terminal emulator screen that fully s HLLAPI. TeTextScreen : A terminal emulator screen that uses text-only HLLAPI or does not HLLAPI. TeWindow : A terminal emulator window. XVI) Visual Basic Environment Objects and their 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 Objects and their Description WinButton : A button in the VisualAge Smalltalk application. WinEdit : An edit box in the VisualAge Smalltalk application. WinList : A list in the VisualAge Smalltalk application. 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. WinTreeView : A tree-view control in the VisualAge Smalltalk application. XVIII) Web Environment Objects and their 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. WebArea : A section of an image (usually a section of a 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. WebElement : A general Web object that can represent any Web object. WebFile : An edit box with a browse button attached, used to select a file from the File dialog box. WebList : A drop-down box or multiple selection list. WebRadioGroup : A set of radio buttons belonging to the same group. WebTable : A table containing a variable number of rows and columns. WebXML : An XML document contained in a Web page. XIX) Web Services Environment Objects and their Description Attachments : An object that s attachment-related test object operations. Configuration : An object that s configuration-related test object operations. Headers : An object that s header-related test object operations. Security : An object that s security-related test 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



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



Func Statement



RunAction Statement



SetLastError Statement



UnFunc Statement



Wait Statement C) Supplemental Objects



DbTable Object



VirtualButton Object



VirtualCheckBox Object



VirtualList Object



VirtualObject Object



VirtualRadioButton Object



VirtualTable Object



XMLAttribute Object



XMLAttributesColl Object



XMLData Object



XMLElement Object



XMLElementsColl Object



XMLFile Object



XMLItemColl Object 19. VBScript Glossary ActiveX control : An object that you place on a form to enable or enhance a '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 ed 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 ing 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 ed. By value : A way of ing 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 ed. 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 (=), 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: Const A = "MyString" Data ranges : Each Variant subtype has a specific range of allowed values: Subtype and their 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. In VBScript, the only recognized format is US-ENGLISH, regardless of the actual locale of the . 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 -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 and locale-specific settings. There are two contexts where locale information is important: 



The code locale affects the language of 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 utilities provided by the operating system. 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. 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 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. 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: