为什么我写的键盘钩子程序会执行2次？

netherder 2005-01-22 12:48:19

Public Function MyKBHFunc(ByVal iCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
MyKBHFunc = 0
If iCode < 0 Then
MyKBHFunc = CallNextHookEx(hnexthookproc, iCode, wParam, lParam)
Exit Function
End If

If wParam = 34 Then '侦测有没有按到pageDown键
MyKBHFunc = 1
MsgBox "aa"
End If

End Function

只要按下了pageDown那个键，就会弹出2个aa提示

...全文

174 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

tztz520 2005-01-22

打赏
举报

If wParam = 34 and lParam>0 Then '侦测有没有按到pageDown键
MyKBHFunc = 1
MsgBox "aa"
End If

dongge2000 2005-01-22

打赏
举报

Option Explicit

Public Function MyKBHFunc(ByVal iCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Static iNum As Long
MyKBHFunc = 0
If iCode < 0 Then
MyKBHFunc = CallNextHookEx(hnexthookproc, iCode, wParam, lParam)
Exit Function
End If

If wParam = 34 Then '侦测有没有按到pageDown键
iNum = iNum + 1
If iNum Mod 2 = 1 Then
MyKBHFunc = 1
MsgBox "aa"
End If
End If

End Function

dongge2000 2005-01-22