51Testing软件测试论坛

标题: QTP如何模拟鼠标滚轮滚动。 [打印本页]

作者: zz45509 时间: 2012-8-23 18:07
标题: QTP如何模拟鼠标滚轮滚动。
比如向上滚或向下滚。

作者: zz45509 时间: 2012-8-24 09:50
Const  GWL_WNDPROC  =  (-4)
Const  WM_COMMAND  =  &H111
Const  WM_MBUTTONDOWN  =  &H207
Const  WM_MBUTTONUP  =  &H208
Const  WM_MOUSEWHEEL  =  &H20A

dim Oldwinproc  As  Long

Declare  Function  SetWindowLong  Lib  "user32"  Alias  "SetWindowLongA"  (ByVal  hWnd  As  Long,  _
ByVal  nIndex  As  Long,  ByVal  dwNewLong  As  Long)  As  Long

Declare  Function  CallWindowProc  Lib  "user32"  Alias  "CallWindowProcA"  (ByVal  lpPrevWndFunc  As  Long,  _
ByVal  hWnd  As  Long,  ByVal  Msg  As  Long,  ByVal  wParam  As  Long,  ByVal  lParam  As  Long)  As  Long

Declare  Function  GetWindowLong  Lib  "user32"  Alias  "GetWindowLongA"  (ByVal  hWnd  As  Long,  _
ByVal  nIndex  As  Long)  As  Long

Function  FlexScroll(ByVal  hWnd  As  Long,  ByVal  wMsg  As  Long,  ByVal  wParam  As  Long,  ByVal  lParam  As  Long)  As  Long
'支持滚轮的滚动  Yu  2004-5-10  15:33
               Select  Case  wMsg

                           Case  WM_MOUSEWHEEL

                                    Select  Case  wParam

                                                   Case  -7864320 '向下滚
                                                            SendKeys  "{PGDN}"

                                                   Case  7864320    '向上滚
                                                            SendKeys  "{PGUP}"

                                    End  Select

               End  Select

               FlexScroll  =  CallWindowProc(Oldwinproc,  hWnd,  wMsg,  wParam,  lParam)

End  Function
以上代码为支持鼠标滚动的代码（没有经过调试）

看不懂~~~~~~~~~~~~~~~~~~~~~ 这好像是VB 还要转成VBS

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)