Utility In QTP

'Encryption utility

Browser("Yahoo").Page("Login").WebEdit("pwd").SetSecure Crypt.Encrypt("My Password)

'Description Utility

set oDesc = Description.Create()

oDesc("micclass").Value = "Link"

Browser("Yahoo").Page("Login").webLink(Link).click

'Timer in milliseconds

MercuryTimers("Timer1").Start

MercuryTimers("Timer1").Stop

MercuryTimers("Timer1").Continue

MercuryTimers("Timer1").Reset

x = MercuryTimers(TimerName)

'Action Parameters

Parameter("InOutPaaram")

'Path Finder within based on the folders specified in the Folders search list.

msgbox PathFinder.Locate ("Environmet_Load.txt")

'Random Number

G_Rnd100 = RandomNumber.Value(0,100)

'Text utility

'The following example retrieves all of the text from the "Telnet" window.

' Find handle of the Telnet window

Extern.Declare micLong,"FindWindow","User32","FindWindowA",micString,micString

hTelnet = Extern.FindWindow("TelnetWClass", "Telnet - 100.100.100.100")

' Get text from the Telnet window

TelnetText = TextUtil.GetText(hTelnet)

MsgBox TelnetText

'The following example retrieves the text from the screen rectangle.

' Get text from the screen rectangle

MsgBox TextUtil.GetText(0, 20, 20, 200, 200)

'Utility Statements

ExecuteFile "MyFunctions.vbs"

ExitAction 'Exits from current Action

ExitActionIteratio 'Exits from current Action current Iteration

ExitGlobalIteration 'Exits from current Global Iteration

ExitGlobal' Exists from Test

ExittestIteration 'Exits from test Iteration

ExitTest 'Exits from the Test

msgbox GetLastError 'Returns Err.description

InvokeApplication "Iexplore" 'Invokes and Pllication

'Dynamically Load And Run Action

LoadAndRunAction(TestPath, ActionName, [Iteration], [Parameters])

RunAction "ActionName", oneIteration/allIterations

'Print Log

Print "Hello World"

'Register User define Function

RegisterUserFunc "WebEdit", "Set", "MySet"

UnRegisterUserFunc "WebEdit", "Set"

'Hard Wait

Wait Seconds [, Milliseconds]