设为首页收藏本站

就爱编程论坛

 找回密码
 注册

人人连接登陆

无需注册,直接登录

用新浪微博连接

一步搞定

QQ登录

只需一步,快速开始

查看: 826|回复: 7
打印 上一主题 下一主题

VB锁定键盘的钩子函数 [复制链接]

Rank: 9Rank: 9Rank: 9

  • TA的每日心情
    无聊
    2025-5-27 03:37:20
  • 签到天数: 366 天

    [LV.9]以坛为家II

    论坛先锋 学习至圣 荣誉成员 论坛元老 活跃之星 终极领袖

    我玩的应用:

    跳转到指定楼层
    楼主
    发表于 2011-3-30 03:33:10 |只看该作者 |倒序浏览

    可以使用钩子函数
    首先声明api函数和常量
    Public   Declare   Function   SetWindowsHookEx   Lib   "user32 "   Alias   "SetWindowsHookExA "   (ByVal   idHook   As   Long,   ByVal   lpfn   As   Long,   ByVal   hmod   As   Long,   ByVal   dwThreadId   As   Long)   As   Long
    Public   Declare   Function   UnhookWindowsHookEx   Lib   "user32 "   (ByVal   hHook   As   Long)   As   Long
    Public   Declare   Function   GetCurrentThreadId   Lib   "kernel32 "   ()   As   Long
    Public   Const   WH_KEYBOARD   =   2
            
    Public   gLngKeyHook   As   Long
            
    Public   Function   KeyboardProc(ByVal   nCode   As   Long,   ByVal   wParam   As   Long,   ByVal   lParam   As   Long)   As   Long
    KeyboardProc   =   -1
    End   Function

    然后在窗口中设置钩子函数:
    gLngKeyHook   =   SetWindowsHookEx(WH_KEYBOARD,   AddressOf   KeyboardProc,   App.hInstance,   GetCurrentThreadId)

    最后别忘了在unload时取消钩子函数
    UnhookWindowsHookEx   gLngKeyHook

    希望以上对你有帮助
    分享到: QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
    分享分享0 收藏收藏0 支持支持0 反对反对0 分享到人人 转发到微博
    [img=http://mail.qq.com/cgi-bin/qm_share?t=qm_mailme&email=fRUcHhYWGAQ9GxIFEBwUEVMeEhA]http://rescdn.qqmail.com/zh_CN/htmledition/images/function/qm_open/ico_mailme_02.png[/img]

    使用道具 举报

    Rank: 1

    升级 
     
    86%

    该用户从未签到

    沙发
    发表于 2011-8-29 11:47:02 |只看该作者

    使用道具 举报

    Rank: 2

    升级 
     
    36%

    该用户从未签到

    板凳
    发表于 2011-9-3 13:48:16 |只看该作者
    支持,我认为你太厉害了












    www.lianghexcb.com

    使用道具 举报

    Rank: 1

    升级 
     
    48%

    该用户从未签到

    地板
    发表于 2011-9-11 21:21:47 |只看该作者
    谢谢您阿,我非常高兴












    www.hanwensports.com

    使用道具 举报

    Rank: 3Rank: 3

    升级 
     
    52.33%

    该用户从未签到

    5#
    发表于 2011-9-29 19:50:05 |只看该作者

    使用道具 举报

    Rank: 3Rank: 3

    升级 
     
    46.33%

    该用户从未签到

    6#
    发表于 2011-10-6 07:50:48 |只看该作者

    使用道具 举报

    Rank: 2

    升级 
     
    71.33%

    该用户从未签到

    7#
    发表于 2011-10-8 05:57:49 |只看该作者

    使用道具 举报

    您需要登录后才可以回帖 登录 | 注册 人人连接登陆

    晴云孤魂's Blog|就爱编程搜帖|手机版|Archiver|就爱编程论坛     

    GMT+8, 2025-7-1 19:56 , Processed in 0.097526 second(s), 39 queries .

    Powered by Discuz! X2

    © 2001-2011 Comsenz Inc.

    回顶部