admin 发表于 2011-3-30 03:33:10

VB锁定键盘的钩子函数


可以使用钩子函数
首先声明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

希望以上对你有帮助

thmkx 发表于 2011-8-29 11:47:02

HOHO~~~~~~











static/image/common/sigline.gif
反恐精英外挂 www.ssgou.net

iargl 发表于 2011-9-3 13:48:16

支持，我认为你太厉害了











static/image/common/sigline.gif
www.lianghexcb.com

骢骐密 发表于 2011-9-11 21:21:47

谢谢您阿，我非常高兴











static/image/common/sigline.gif
www.hanwensports.com

侃呀侃之灵 发表于 2011-9-29 19:50:05

很好，辛苦楼主发这么有意义的帖











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

ABC_84 发表于 2011-10-6 07:50:48

谢谢啦，辛苦啦。感谢感谢!











static/image/common/sigline.gif
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

zlxqhbyq 发表于 2011-10-8 05:57:49

谢谢你啊，好帖子不顶不行











static/image/common/sigline.gif
贺县劲舞团新闻 济宁天龙八部家族 绵竹永恒之塔家族 济宁天堂家族 建德神魔大陆私服 桂林征途一条龙 鹤峰完美国际私服
页: [1]
查看完整版本: VB锁定键盘的钩子函数