UFT RightClick


”UFT / QTP Environment variables for OS
Function invokeApplication(browser)
    OSType = Environment.Value(“OS”)
    OsXp = “Microsoft Windows XP”

    If OSType = OsXp Then
        SystemUtil.Run “C:\Program Files\Internet Explorer\iexplore.exe”
        Else
        SystemUtil.Run “C:\Program Files (x86)\Internet Explorer\iexplore.exe”
    End If
End Function


”Right Click Function using Mercury.ExternObj
RegisterUserFunc PbDataWindowRightClickRightClick
Function RightClick(obj)
On Error Resume Next
Set myExtern = CreateObject(Mercury.ExternObj)
    myExtern.Declare micLong,“GetCursorPos”,“user32.dll”,“GetCursorPos”,micLong
    myExtern.GetCursorPos(NULL)
    myExtern.Declare micLong,“SetCursorPos”,“user32.dll”,“SetCursorPos”,micLong, micLong
    myExtern.SetCursorPos 40199
    myExtern.Declare micVoidmouse_event“user32.dll”mouse_eventmicLongmicLongmicLongmicLong,micLong
    myExtern.mouse_event 84019900 ”mouse down
    myExtern.mouse_event 16401990,0 ‘lift the mouse
Set myExtern = Nothing
    Wait(2)
End Function

”UFT / QTP Test Parameters
Dim enterCACpin
enterCACpin = TestArgs(myCACpin)
msgbox enterCACpin

Advertisements