'API declaration for ShowWindow API

Extern.Declare micLong,"ShowWindow","user32","ShowWindow",micLong,micLong

'ShowWindow constants

Const SW_HIDE = 0

Const SW_SHOW = 5

'Function to hide the print log window

Public Function HidePrintWindow()

‘Set visible value: see if print log window is already visible or not

Set QTPlogWindow = Window("regexpwndclass:=Mercury::Qtprn::PrintWindow" ,"visible:=True|False")

'Check if the LOg window exist

If QTPlogWindow.Exist(0) Then

hwnd = QTPlogWindow.GetROProperty("hwnd")

'Show/Hide the window, choose the Const value above

Extern.ShowWindow hwnd, SW_HIDE

End if

End Function

Public Function GetPrintWindowText()

GetPrintWindowText = ""

Set QTPlogWindow = Window("regexpwndclass:=Mercury::Qtprn::PrintWindow", "visible:=True:False")

'Check if the Log window exist

If QTPlogWindow.Exist(0) Then

'Get the text from of edit box

GetPrintWindowText = QTPlogWindow.WinEdit("nativeclass:=Edit","visible:=True:False").GetROProperty("text")

End if

End Function

'API Declaration for SendMessage

Extern.Declare micLong,"SendMessage","user32","SendMessageA",micLong,micLong,micLong,micRef+micLong

'Message to Set text of a window

Const WM_SETTEXT = &HC

'Function to clear the print Log window

Public Function ClearPrintWindow()

'Check if the print Log window exists or not

Set QTPlogWindow = Window("regexpwndclass:=Mercury::Qtprn::PrintWindow","visible:=True|False")

If QTPlogWindow.Exist(0) Then

'Get the handle of edit box

'It is important to use "visible:=True|False" here also as the

'for a hidden window the edit is also hidden

hwnd = QTPlogWindow.WinEdit("nativeclass:=Edit","visible:=True|False").GetROProperty("hwnd")

'Send a message to clear the text box text

Extern.SendMessage hwnd, WM_SETTEXT, 0, 0

End if

End Function

'Use the function to clear the window

Call ClearPrintWindow

Initialize : Assigns the regular expression pattern to be testd;

Compare: compare it with value and return Boolean value;

ToString: Get the string description of the operation;

micRegExpMatch.Initialize("test.*")

print micRegExpMatch.Compare("testing")

print micRegExpMatch.Compare("System testing")

print micRegExpMatch.ToString()

Start: start the timer

Continue: Continue the timer

ElapsedTime: Returns the total accumulated time in milliseconds since the timer started.

Reset: Reset the timer

Stop: stop the timer

MercuryTimers.Timer("Time1").Start

Print MercuryTimers.Timer("Time1").ElapsedTime

MercuryTimers.Timer("Time1").Stop

Add Method: Add a share repository

Find Method: find a share repository

MoveToPos Method: Moves the object repository file entry from the current index position to the specified new index position within the run-time collection of shared object repository files associated with the current action.

Remove Method: remove a share repository

RemoveAll Method: remove all share repository

Count Property: count of share repositories

Item Property: Returns the path of the object repository file located in the specified index position within the run-time collection of shared object repository files associated with the current action.

RepositoriesCollection.RemoveAll

RepositoriesCollection.Add "C:\test1.tsr"