Answer Posted / mohd ikhlaque

HI

I have tried the Mouse wheel UP/Down movement operation for
a Windows application , and it is working pretty fine.

Please find the code-snipt for the above mentioned
operation.


'*********************************************************
Function To Perform Mouse Scroll Wheel Operation
****************************************************
*******************
'Function Name :
MouseWheelRotation(iClicks)

'Description :
Performs Mouse Scroll Wheel Operation

''Parameters :
1.iClicks :: No. of Mouse Click
'

'Return Value :
TRUE \ FALSE

'Pre-requisite : Nx
should be launched

'Examples :
Call MouseWheelRotation(-2) -----> To perform
Scroll Down
'
Call
MouseWheelRotation(2) -----> To perform Scroll UP

'History :
' Developer Name

Date
Rev. No.

Reviewer
'-----------------------------------------------------------
------------------------------------------------------------
------------------------------------------------------------
-
' Mohd Ikhlaque

31/05/ 2012
1.0

'-----------------------------------------------------------
------------------------------------------------------------
------------------------------------------------------------
-

'*********************************************************
Start of Function
****************************************************
******************

Public Function MouseWheelRotation(iClicks)
dim iLoop
dim bPos
Window("NXWindow").Window("WinDrawingArea").WinObject
("WinDrawingArea").click 1,1 '======= The Object on which
Mouse wheel operation is to be perform.===========
Wait(2)
MouseWheelRotation=False
Extern.Declare
micVoid, "mouse_event", "user32.dll", "mouse_event",
micLong, micLong, micLong, micLong, micLong
Const MOUSEEVENTF_WHEEL = 2048 '@const long |
MOUSEEVENTF_WHEEL | middle button up
Const POSWHEEL_DELTA = 120 '@const long | POSWHEEL_DELTA |
movement of 1 mousewheel click Down<nl>
Const NEGWHEEL_DELTA = -120 '@const long | NEGWHEEL_DELTA |
movement of 1 mousewheel click Up<nl>

If iClicks<>0Then
For iLoop = 1 to abs(iClicks)
If iClicks > 0 then
'========To Scroll Down=============
Extern.mouse_event
MOUSEEVENTF_WHEEL,0,0,POSWHEEL_DELTA,1
' "Performed Mouse Wheel Down
Operation Successfully "
MouseWheelRotation=True
else
'===========To Scroll
UP===============
Extern.mouse_event
MOUSEEVENTF_WHEEL,0,0,NEGWHEEL_DELTA,1
' "Performed Mouse Wheel UP
Operation Successfully "
MouseWheelRotation=True
end if
next
else
' "Fail :Fail To Perform [Mouse Wheel UP/Down]
Operation"
End If
End Function

Define Error Pane of UFT?

1126

---

I am a new tester that needs to create an automatic script involving security questions. On a webpage I need to select a security question(which are random) from a drop down menu, and then input the answer as the last word from the security question. I have the script set-up to automatically select the first security question from the drop down. The problem I am having is trying to insert the security answer. How do I insert the security answer based on the selection from the security question?

2339

---

Explain the concept of object repository and how quicktest professional recognises objects?

1036

---

how to evalute defects in QTP script?

2013

---

Is it possible to switch between recording modes during a test creation?

1066

---

Limitations in QTP?

2174

---

Does any one worked on JIL Emulator , Testing with QTP(automation). Trail Version of QTP is not identifying the child objects of JIL emulator, Can any one help me out ,

1891

---

Can anybody post some real time scenario in qtp? please its very urgent.

2298

---

Explain calling sub procedure.

1085

---

how can i pass a "cript"as a parameter in to a function

2004

---

Suppose I created one object as virtual object? That object is applicable to that test? Or all the tests?

1008

---

Is text area check point supports for web applications?

984

---

How many types of recording facility are available in quicktest professional (qtp)?

1069

---

If we put all properties in mandatory and assistive list of Normal Identification, Do we still need Smart?

1100

---

Hi friends did any budy attend accenture system test for qtp? if any budy pls drop questions.not only accenture any other mnc company which you attended system test(QTP)?it may helpful to others also

2337

---