QTP如何模拟鼠标滚轮

zz45509

向上滚 和向下 滚

zz45509

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

lsekfe

帮LZ互换下~

xjwldlover

只是翻译，不知道是否可用~

1. Const GWL_WNDPROC = (-4)
   
2. Const WM_COMMAND = &H111
   
3. Const WM_MBUTTONDOWN = &H207
   
4. Const WM_MBUTTONUP = &H208
   
5. Const WM_MOUSEWHEEL = &H20A
   
6. 
   
7. dim Oldwinproc
   
8. Set wshell = CreateObject("wscript.Shell")
   
9. 
   
10. 
    
11. Extern.Declare micLong ,"SetWindowLong","user32.dll", _
    
12.                       "SetWindowLongA",micLong,micLong,micLong
    
13. 
    
14. Extern.Declare micLong ,"CallWindowProc","user32.dll", _
    
15.                      "CallWindowProcA",micLong,micLong,micLong,micLong
    
16. 
    
17. 
    
18. Extern.Declare micLong ,"GetWindowLong","user32.dll", _
    
19.                       "SetWindowLongA",micLong,micLong
    
20. 
    
21. Function FlexScroll(hWnd, wMsg , wParam, lParam)
    
22. '支持滚轮的滚动 Yu 2004-5-10 15:33
    
23. Select Case wMsg
    
24. 
    
25. Case WM_MOUSEWHEEL
    
26. 
    
27. Select Case wParam
    
28. 
    
29. Case -7864320 '向下滚
    
30. wshell.SendKeys "{PGDN}"
    
31. 
    
32. Case 7864320 '向上滚
    
33. wshell.SendKeys "{PGUP}"
    
34. 
    
35. End Select
    
36. 
    
37. End Select
    
38. 
    
39. FlexScroll = CallWindowProc(Oldwinproc, hWnd, wMsg, wParam, lParam)
    
40. 
    
41. End Function
    

复制代码

zz45509

只是翻译，不知道是否可用~
xjwldlover 发表于 2012-8-28 09:45

    感谢啊  都快一年了 才看到。。。。。。。。

小丫头amy

回复 4# xjwldlover


    11.Extern.Declare micLong ,"SetWindowLong","user32.dll", _

          "SetWindowLongA",micLong,micLong,micLong

这几个语句是干嘛用的？