设为首页收藏本站
切换到宽版

就爱编程论坛

 找回密码
 注册

人人连接登陆

无需注册，直接登录

用新浪微博连接

一步搞定

QQ登录

只需一步，快速开始

就爱编程论坛 › 论坛 › ★软件开发拓展★ › 新手VB&易语言 › VB锁定键盘的钩子函数
返回列表 发新帖
查看: 831|回复: 7
打印 上一主题 下一主题

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

admin

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]

    使用道具 举报

    zlxqhbyq

    Rank: 2

    升级 
     
    71.33%

    该用户从未签到
    8#
    发表于 2011-10-8 05:57:49 |只看该作者
    谢谢你啊，好帖子不顶不行












    贺县劲舞团新闻 济宁天龙八部家族 绵竹永恒之塔家族 济宁天堂家族 建德神魔大陆私服 桂林征途一条龙 鹤峰完美国际私服

    使用道具 举报

    ABC_84

    Rank: 3Rank: 3

    升级 
     
    46.33%

    该用户从未签到
    7#
    发表于 2011-10-6 07:50:48 |只看该作者
    谢谢啦，辛苦啦。感谢感谢!












    1.di-guo.info 2.di-guo.info
    3.di-guo.info 4.di-guo.info
    5.di-guo.info 6.di-guo.info 7.di-guo.info 8.di-guo.info
    9.di-guo.info

    使用道具 举报

    侃呀侃之灵

    Rank: 3Rank: 3

    升级 
     
    52.33%

    该用户从未签到
    6#
    发表于 2011-9-29 19:50:05 |只看该作者
    很好，辛苦楼主发这么有意义的帖












    1.80战神合击 1.85狂雷版本 1.85星王传奇 1.95皓月无内功 1.80复古传奇 1.76复古传奇 1.95皓月无内功 www.siedu.cn www.a148.com  http://516x.com

    使用道具 举报

    骢骐密

    Rank: 1

    升级 
     
    48%

    该用户从未签到
    5#
    发表于 2011-9-11 21:21:47 |只看该作者
    谢谢您阿，我非常高兴












    www.hanwensports.com

    使用道具 举报

    iargl

    Rank: 2

    升级 
     
    36%

    该用户从未签到
    地板
    发表于 2011-9-3 13:48:16 |只看该作者
    支持，我认为你太厉害了












    www.lianghexcb.com

    使用道具 举报

    thmkx

    Rank: 1

    升级 
     
    86%

    该用户从未签到
    板凳
    发表于 2011-8-29 11:47:02 |只看该作者
    HOHO~~~~~~












    反恐精英外挂 www.ssgou.net

    使用道具 举报

    返回列表 发新帖
    高级模式
    B Color Image Link Quote Code Smilies
    您需要登录后才可以回帖 登录 | 注册 人人连接登陆

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

    GMT+8, 2025-7-2 13:12 , Processed in 0.094422 second(s), 39 queries .

    Powered by Discuz! X2

    © 2001-2011 Comsenz Inc.

    回顶部