VB语言

本类阅读TOP10

·Visual Basic 安装程序的制作!!
·VB中使用EXCEL输出
·一个简单的MP3播放器
·VB程序实现WindowsXP效果的界面!!
·VB打造超酷个性化菜单(六)
·透明位图
·平铺与拉伸MDI窗口的背景图 ~!~
·对《VB程序实现WindowsXP效果的界面》一文的补遗
·从Windows资源管理器中拖动文件
·VB打造超酷个性化菜单(一)

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
[名称] 添加系统热键

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

[名称]           添加系统热键

[语言种类]       Visual Basic

[类别一]         系统操控

[类别二]         VBAPI

[类别三]         底层开发

[数据来源]       shawls

[保存时间]       2002-08-19

[关键字一]       热键

[关键字二]       系统

[关键字三]       钩子

[内容简介]       空

[源代码内容]

Option Explicit

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

Private hHook As Long
Private 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 key
Select 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 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: [email protected]
                 QQ: 9181729




相关文章

相关软件