TESTING-CONNECT TECHNOLOGIES: UTILITY OBJECTS

‘###################################################################################

‘UTILITY OBJECTS

‘###################################################################################

‘>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

‘UTILITY OBJECT : CRYPT

‘DESCRIPTION : ENCRIPTS THE PASSWORD

‘SYNTAX : CRIPT.ENCRYPT (PARAMETER)

‘>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Public Function funcCrypt()

strPassword = “NewPassword”

‘Encrypting the Password

strEncryptedPassword = Crypt.Encrypt(strPassword)

MsgBox (strEncryptedPassword)

Browser("title:=Gmail: Email from Google").Page("title:=Gmail: Email from Google").WebEdit("name:=Passwd").SetSecure strEncryptedPassword "

End Function

‘>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

‘<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

‘UTILITY OBJECT : DATA TABLE

‘DESCRIPTION : The data your test uses is stored in the design-time Data Table, which is displayed in the Data Table pane at the bottom of the screen while you insert and edit steps. The Data Table has the characteristics of a Microsoft Excel spreadsheet, meaning that you can store and use data in its cells and you can also perform mathematical formulas within the cells.

‘<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Method: Value

Description:

Default Property. Retrieves or Sets value of the cell.

Syntax:

To Get the value:

DataTable.Value(ParameterID [, SheetID])

DataTable(ParameterID [, SheetID])

To Set the value:

DataTable.Value(ParameterID [, SheetID])=NewValue

DataTable(ParameterID [, SheetID]) =NewValue

Example:

Get the Value from DataTable

1. DataTable.Value (“Column”, Global)

Set the Value from DataTable

2. DataTable.Value (“Column”, Global) = “Quick Test”

Delete the Un-Necessary Parameter

3. DataTable.GetSheet("dtGlobalSheet").DeleteParameter("OldColumn")

‘<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Method: AddSheet

Description:

Adds the specified sheet to the run-time Data Table.

Syntax:

DataTable.AddSheet(SheetName)

Example:

DataTable.AddSheet ("MySheet")

‘<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Method: DeleteSheet

Description:

Deletes the specified sheet from the run-time Data Table.

Syntax:

DataTable. DeleteSheet (SheetName)

Example:

DataTable. DeleteSheet ("MySheet")

‘<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Method: Export

Description:

Saves a copy of the run-time Data Table in the specified location.

Syntax:

DataTable.Export(FileName)

Example:

DataTable.Export ("C:\FileName.xls")

‘<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Method: ExportSheet

Description:

Exports a specified sheet of the run-time Data Table to the specified file.

• If the specified file does not exist, a new file is created and the specified sheet is saved.

• If the current file exists, but the file does not contain a sheet with the specified sheet name, the sheet is inserted as the last sheet of the file.

• If the current file exists and the file contains the specified sheet, the exported sheet overwrites the existing sheet.

Syntax:

DataTable.ExportSheet(FileName, DTSheet)

Example:

DataTable.ExportSheet "C:\FileName.xls", 1

‘<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Method: Import

Description:

Imports the specified Microsoft Excel file to the run-time Data Table.

Syntax:

DataTable.Import(FileName)

Example:

DataTable.Import ("C:\FileName.xls")

‘<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Method: ImportSheet

Description:

Imports a sheet of a specified file to a specified sheet in the run-time Data Table.

Syntax:

DataTable.ImportSheet(FileName, SheetSource, SheetDest)

Example:

DataTable.ImportSheet "C:\FileName.xls", 1, "DestinationSheetName"

‘<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Method: GetCurrentRow

Description:

Returns the current (active) row in the first sheet in the run-time Data Table (global sheet).

Syntax:

DataTable.ImportSheet(FileName, SheetSource, SheetDest)

Example:

intCurrentRow = DataTable.GetCurrentRow

Reporter.ReportEvent 1, "Row Number", intCurrentRow

‘<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Method: GetRowCount

Description:

Returns the total number of rows in the longest column in the first sheet in the run-time Data Table (global sheet).

Syntax:

DataTable.GetRowCount

Example:

intRowCount = DataTable.GetSheet("MySheet").GetRowCount

Reporter.ReportEvent 2, "There are " & intRowCount & "rows in the data sheet."

‘<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Method: GetSheet

Description:

Returns the specified sheet from the run-time Data Table.

Syntax:

DataTable.GetSheet(SheetID)

Example:

'Add a new column

DataTable.GetSheet("dtGlobalSheet").AddParameter "NewColumn", "Row1Value"

‘<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Method: GetSheetCount

Description:

Returns the total number of sheets in the run-time Data Table.

Syntax:

DataTable.GetSheetCount

Example:

intSheetCountt = DataTable.GetSheetCount

Reporter.ReportEvent 0, "Sheet number", "There are " & intSheetCountt & " sheets in the Data Table."

‘<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Method: GlobalSheet

Description:

Returns the first sheet in the run-time Data Table (global sheet).

Syntax:

DataTable.GlobalSheet

Example:

DataTable.GlobalSheet.AddParameter "Time", "5:45"

‘<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Method: LocalSheet

Description:

Returns the current (active) local sheet of the run-time Data Table.

Syntax:

DataTable.LocalSheet

Example:

strMyParam=DataTable.LocalSheet.AddParameter ("Time", "5:45")

‘<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Method: SetCurrentRow

Description:

Sets the specified row as the current (active) row in the run-time Data Table.

Syntax:

DataTable.SetCurrentRow(RowNumber)

Example:

DataTable.SetCurrentRow (2)

‘<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Method: SetNextRow

Description:

Sets the row after the current (active) row as the new current row in the run-time Data Table.

Syntax:

DataTable.SetNextRow

Example:

DataTable.SetNextRow

‘<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Method: SetPrevRow

Description:

Sets the row above the current (active) row as the new current (active) row in the run-time Data Table.

Syntax:

DataTable.SetPrevRow

Example:

DataTable.SetPrevRow

‘<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Method: RawValue

Description:

Retrieves the raw value of the cell in the specified parameter and the current row of the run-time Data Table. The raw value is the actual string written in a cell before the cell has been computed, such as the actual text from a formula.

Syntax:

DataTable.RawValue ParameterID [, SheetID]

Example:

FormulaVal = DataTable.RawValue ("Date", "ActionA")

‘<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

‘^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

‘UTILITY OBJECT : EXTERN

‘^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Description:

Declares references to external procedures which are stored with a dynamic-link library (DLL).

Syntax:

Extern.Declare (RetType, MethodName, LibName, Alias [, ArgType(s)])

Example:

'FindWindowA is a function in user32.dll. This function is used to find a window which is currently opened on Desktop.

'This function takes two string inputs NativeClass & Title of the Window.

'This will return a handler value of the identified window.

'If it is returned 0 then there is no window found

‘Getting the Handle for the Notepad Window

strHWND = Extern.FindWindow ("Notepad", vbNullString)

‘Finding the Notepad Application Opened

If strHWND = 0 Then

MsgBox "Notepad Application NOT Opened"

Else

MsgBox "Notepad Application Opened"

End If

‘^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

‘+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

‘UTILITY OBJECT : PATH FINDER

‘+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Description:

Gets the Absolute Path from Relative Path

Syntax:

PathFinder.Locate RelativePath

Example:

PathFinder.Locate (strRelativeFileWithPath)

‘+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

‘===================================================================================

‘UTILITY OBJECT : RANDOM NUMBER

‘===================================================================================

Description:

Let’s assume, we have 10 sets of data to execute. But for executing all these 10 sets of data, Night Execution will take 12 hours. But we don’t have enough time to execute our Automation Regression Suite. At that moment, we may pick up 1 set of data from 10 sets and can execute. This kind of situations, RandomNumber function will be pretty userful.

Syntax:

RandomNumber (RangeStartNumber, RangeEndNumber)

Example:

intSetToExecute = RandomNumber (1, 10)

‘===================================================================================

‘UTILITY OBJECT : RND

‘===================================================================================

Description:

Syntax:

Int ( ( UpperBound – LowerBound + 1) * RND + LowerBound)

Example:

intSetToExecute = Int ( ( 10 – 1 + 1) * RND + 1)

‘===================================================================================

‘~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

‘UTILITY OBJECT : DotNetFactory

‘~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Description:

To create an instance of a .NET object, and access its methods and properties. We can create forms where the user can interact with them and give some input in run time

Public Function funcDotNetFactory()

‘Creating Objects

Set objMainForm = DotNetFactory.CreateInstance("System.Windows.Forms.Form", "System.Windows.Forms")

Set objTextField = DotNetFactory.CreateInstance("System.Windows.Forms.TextBox", "System.Windows.Forms")

Set objButton = DotNetFactory.CreateInstance("System.Windows.Forms.Button", "System.Windows.Forms")

Set objPosition = DotNetFactory.CreateInstance("System.Drawing.Point","System.Drawing",x,y)

‘Assigning Text Field Co-ordinates

objPosition.X = 150

objPosition.Y = 150

objTextField.Location = objPosition

objTextField.Width = 100

'Assigning Button Details

objPosition.X = 130

objPosition.Y = 130

objButton.Location = objPosition

objButton.Text = "Close"

'Adding Text Field and Button to Main Form

objMainForm.Controls.Add objTextField

objMainForm.Controls.Add objButton

objMainForm.CancelButton = objButton

'Show Form

objMainForm.ShowDialog

‘Un-Initializing the Variables

Set objTextField = Nothing

Set objButton = Nothing

Set objPosition = Nothing

Set objMainForm = Nothing

End Function

‘~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

‘===================================================================================

‘UTILITY OBJECT : Reporter

‘Description : Used to send/block information to results page

‘===================================================================================

‘---------------------------------------------------------------------------------------------------------------------------------------------------------------------

Method: ReportEvent

Description:

Syntax:

Reporter.ReportEvent EventStatus, ReportStepName, Details [, ImageFilePath]

Example:

If Browser("title:=Gmail: Email from Google").Exist Then

Reporter.ReportEvent micPass,"Verify Gmail Window", "Gmail Window Exists as Expected"

Else

Reporter.ReportEvent micFail,"Verify Gmail Window", "Gmail Window NOT Exists as Expected"

End If

‘---------------------------------------------------------------------------------------------------------------------------------------------------------------------

Method: Filter

Description:

Filters the Reporting Types to Results

Syntax:

Reporter.Filter = FilterType

FilterType will be one of the following

rfEnableAll - Reporter enables for all type of Reports

rfEnableErrorsAndWarnings - Reporter enables only for Errors and Warnings

rfEnableErrorsOnly - Reporter enables only for Errors

Example:

1. Reporter.Filter = rfEnableAll

2. Reporter.Filter = rfEnableErrorsAndWarnings

3. Reporter.Filter = rfEnableErrorsOnly

‘---------------------------------------------------------------------------------------------------------------------------------------------------------------------

Method: RunStatus

Description:

Retrieves the Current Execution Status either Pass or Fail

Syntax:

Reporter.RunStatus

Example:

If Reporter.RunStatus = micPass Then

MsgBox “Current Execution Status is Pass”

Else

MsgBox “Current Execution Status is Fail”

End If

‘---------------------------------------------------------------------------------------------------------------------------------------------------------------------

Method: ReportPath

Description:

Retrieves the Current Results Location

Syntax:

Reporter. ReportPath

Example:

MsgBox (Reporter.ReportPath)

‘---------------------------------------------------------------------------------------------------------------------------------------------------------------------

‘===================================================================================

‘||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||

‘UTILITY OBJECT : Desktop

‘||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||

‘????????????????????????????????????????????????????????????????????????????????????????????????????????

Method: CaptureBitmap

Description:

Saves a screen capture of the object as a .png or .bmp image using the specified file name.

Syntax:

object.CaptureBitmap FullFileName, [OverrideExisting]

‘????????????????????????????????????????????????????????????????????????????????????????????????????????

Method: RunAnalog

Description:

Runs the specified analog track.

Syntax:

object.RunAnalog ActionId, [Speed]

‘????????????????????????????????????????????????????????????????????????????????????????????????????????

Method: ChildObjects

Description:

Returns the collection of child objects contained within the object.

Syntax:

object.ChildObjects ([Description])

‘????????????????????????????????????????????????????????????????????????????????????????????????????????

‘||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||

‘XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

‘UTILITY OBJECT : RepositoriesCollection

‘XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

‘xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Method: Add

Description:

Adding Object Repository to the Script/Action during Run Time.

Syntax:

RepositoriesCollection.Add RepositoryPath [, Position]

Example:

RepositoriesCollection.Add RepositoryPath

‘xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Method: Find

Description:

Finds the specified Object Repository Position during Run Time.

Syntax:

RepositoriesCollection.Find RepositoryFileAlongWithPath

Example:

intRepositoryPos=RepositoriesCollection.Find("C:\GmailAuto\ObjectRepository\Main.tsr")

‘xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Method: Remove

Description:

Removes the Object Repository at specified Position during Run Time.

Syntax:

RepositoriesCollection.Remove RepositoryPosition

Example:

RepositoriesCollection.Remove(3)

‘xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Method: RemoveAll

Description:

Removes all the Object Repositories during Run Time.

Syntax:

RepositoriesCollection.RemoveAll ()

Example:

RepositoriesCollection.RemoveAll ()

‘xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Method: Count

Description:

Counts the Number of Repositories Available during Run Time.

Syntax:

RepositoriesCollection.Count

Example:

RepositoriesCollection.Count

‘xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Method: MoveToPos

Description:

Moves the Specified Object Repositor from Current Position to New Position

Syntax:

RepositoriesCollection.MoveToPos CurrentPosition, NewPosition

Example:

RepositoriesCollection.MoveToPos 2, 3

‘xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

‘XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

‘###################################################################################

TESTING-CONNECT TECHNOLOGIES

Pages

UTILITY OBJECTS

1 comment:

Popular Posts

Search This Blog

Total Pageviews

Followers