请问如何屏蔽掉F2键? 显示FPS的那个

sanction_act

{/fd}怕有人作弊吗?- -呵呵新来

sanction_act

哦,原来如此帮你顶,你可知道我的问题http://rpg.blue/viewthread.php?tid=101651
帮帮忙,饿最近也在做游戏

dbshy

去网上找个屏蔽按键的DLL,这种东西多的是

做游戏的新手

好像有泥啊的Game.exe屏蔽了

小柯

屏障FPS有意义么…… = =
让玩家知道才好……

yangff

VB版本有，通过api+dll。我希望又能人用ruby使用这个dll（底层Hook）
dll：不猛击的是SB

1. Option Explicit
   
2. 
   
3. Private Declare Function StartMaskKey Lib "MaskKey" (lpdwVirtualKey As Long, ByVal nLength As Long, ByVal lpfnKeyboarProc As Long, Optional ByVal bDisableKeyboard As Boolean = False) As Long
   
4. 
   
5. Private Declare Function StopMaskKey Lib "MaskKey" () As Long
   
6. 
   
7. 
   
8. 
   
9. Private Sub cmdStartMask_Click()
   
10. 
    
11.     ' 屏蔽 A, B, C, 上, 下, 左, 右及两个win键
    
12. 
    
13.     Dim key(8) As Long
    
14. 
    
15.     key(0) = vbKeyA
    
16. 
    
17.     key(1) = vbKeyB
    
18. 
    
19.     key(2) = vbKeyC
    
20. 
    
21.     key(3) = vbKeyLeft
    
22. 
    
23.     key(4) = vbKeyRight
    
24. 
    
25.     key(5) = vbKeyUp
    
26. 
    
27.     key(6) = vbKeyDown
    
28. 
    
29.     key(7) = &H5B               ' 左边的win键
    
30. 
    
31.     key(8) = &H5C               ' 右边的win键
    
32. 
    
33.     StartMaskKey key(0), UBound(key) + 1, AddressOf KeyboardProc
    
34. 
    
35. End Sub
    
36. 
    
37. 
    
38. 
    
39. Private Sub cmdStopMask_Click()
    
40. 
    
41.     StopMaskKey
    
42. 
    
43. End Sub
    

复制代码

1. Option Explicit
   
2. 
   
3. 
   
4. 
   
5. Private Const WM_KEYDOWN = &H100
   
6. 
   
7. Private Const WM_KEYUP = &H101
   
8. 
   
9. Private Const WM_SYSKEYDOWN = &H104
   
10. 
    
11. Private Const WM_SYSKEYUP = &H105
    
12. 
    
13. 
    
14. 
    
15. Public Type KBDLLHOOKSTRUCT
    
16. 
    
17.     vkCode As Long              ' 虚拟按键码(1--254)
    
18. 
    
19.     scanCode As Long            ' 硬件按键扫描码
    
20. 
    
21.     flags As Long               ' flags
    
22. 
    
23.     time As Long                ' 消息时间戳
    
24. 
    
25.     dwExtraInfo As Long         ' 额外信息
    
26. 
    
27. End Type
    
28. 
    
29. 
    
30. 
    
31. Public Enum KEYACTION
    
32. 
    
33.     ACTION_KEYDOWN = WM_KEYDOWN
    
34. 
    
35.     ACTION_KEYUP = WM_KEYUP
    
36. 
    
37.     ACTION_SYSKEYDOWN = WM_SYSKEYDOWN
    
38. 
    
39.     ACTION_SYSKEYUP = WM_SYSKEYUP
    
40. 
    
41. End Enum
    
42. 
    
43. 
    
44. 
    
45. ' 全局键盘钩子回调函数
    
46. 
    
47. ' 参数: action 标识键盘消息(按下,弹起), keyStruct 包含按键信息
    
48. 
    
49. Public Function KeyboardProc(ByVal action As KEYACTION, keyStruct As KBDLLHOOKSTRUCT) As Boolean
    
50. 
    
51.     Select Case action
    
52. 
    
53.         Case ACTION_KEYDOWN
    
54. 
    
55.             Debug.Print keyStruct.vkCode, "按下键盘按键"
    
56. 
    
57.         Case ACTION_KEYUP
    
58. 
    
59.             Debug.Print keyStruct.vkCode, "弹起键盘按键"
    
60. 
    
61.         Case ACTION_SYSKEYDOWN
    
62. 
    
63.         
    
64. 
    
65.         Case ACTION_SYSKEYUP
    
66. 
    
67.         
    
68. 
    
69.     End Select
    
70. 
    
71.    
    
72. 
    
73.     ' 返回 True 表示继续传递按键消息
    
74. 
    
75.     ' 返回 False 表示结束按键消息传递
    
76. 
    
77.     KeyboardProc = False
    
78. 
    
79. End Function
    

复制代码

---

系统信息：本贴由楼主认可为正确答案，66RPG感谢您的热情解答～