[名称]添加系统热键

[名称]添加系统热键(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

     以上代码保存于： SourceCode Explorer(源代码数据库)
           复制时间： 2002-08-20 17:20:58
           软件版本： 1.0.730
           软件作者： Shawls
           个人主页： Http://Shawls.Yeah.Net
             E-Mail： ShawFile@163.Net
                 QQ： 9181729