[名称] 添加系统热键

[名称]           添加系统热键

[语言种类]       Visual Basic

[类别一]         系统操控

[类别二]         VBAPI

[类别三]         底层开发

[数据来源]       shawls

[保存时间]       2002-08-19

[关键字一]       热键

[关键字二]       系统

[关键字三]       钩子

[内容简介]       空

[源代码内容]

Option Explicit

Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As IntegerPrivate Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal ipfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As LongPrivate Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As LongPrivate Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const WH_KEYBOARD = 2

Private hHook As LongPrivate boolKeyUp As Boolean

Public Sub EnableHook()hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyFun, App.hInstance, 0)End Sub

Public Sub DisableHook() UnhookWindowsHookEx (hHook)End Sub

Function KeyFun(ByVal ncode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long'If (GetKeyState(&H10) And &HF0000000) Then   'shift keySelect Case wParam    Case vbKeyF         If boolKeyUp = True Then             boolKeyUp = False             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 FunctionEnd Select'End IfKeyFun = 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