[名称]添加系统热键(2) MsgBox "f" Else boolKeyUp = True End If KeyFun = 1 Exit Function Case vbKeyG If boolKeyUp = True Then boolKeyUp = False MsgBox "g" Else boolKeyUp = True End If KeyFun = 1 Exit Function End Select 'End If KeyFun = CallNextHookEx(hHook, ncode, wParam, lParam) End Function