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

Question

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提示

Answer 1

Option ExplicitPublic 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

Answer 2

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