qtp10.0下鼠标滚轮事件

qtp 10.0下产生鼠标滚轮event方法。

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>
'************************************************* *********************
'* @bsub MouseWheelRot | perform mouse wheel rotations
'* @comm Author: Ron Goodwin
'* @bparm number of mouse clicks
'* @ex MouseWheelRot(5); MouseWheelRot(-5)
'* @devnote positive and negative clicks exist, negative rotates wheel up: positive down
'* @todo Nil
'************************************************* *********************
Sub MouseWheelRot(iClicks)

dim iLoop
dim bPos

if iClicks > 0 then
bPos = true
end if
for iLoop = 1 to abs(iClicks)
if bPos then
Extern.mouse_event MOUSEEVENTF_WHEEL,0,0,POSWHEEL_DELTA,0
else
Extern.mouse_event MOUSEEVENTF_WHEEL,0,0,NEGWHEEL_DELTA,0
end if
next
End Sub

form http://www.sqaforums.com/forums/hp-unified-functional-testing-uft-mercury-quicktest-pro-qtp/50190-mouse-wheel-recording-qtp.html