在VB里,执行某个事件时,如何禁用鼠标与键盘
三楼的朋友,你好!因为本人太菜看不懂你的代码,请用中文加以说明下,多谢了!你好,我按你的代码试了下,出现编译错误,操作符AddressOf使用无效...
三楼的朋友,你好!因为本人太菜看不懂你的代码,请用中文加以说明下,多谢了!
你好,我按你的代码试了下,出现编译错误,操作符AddressOf使用无效 展开
你好,我按你的代码试了下,出现编译错误,操作符AddressOf使用无效 展开
1个回答
展开全部
调API
'禁用
hNxtHook = SetWindowsHookEx(WH_JOURNALPLAYBACK, AddressOf HookProc, App.hInstance, 0)
'安装钩子,将系统权交给HookProc函数
'''''''''''''''''''''
'这里加以延时,这段时间内,鼠标和键盘都无效..
''''''''''''''''''''
'恢复
UnhookWindowsHookEx hNxtHook '恢复默地址
定义钩子函数:
Function HookProc(ByVal code As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
HookProc = CallNextHookEx(hNxtHook, code, wParam, lParam) '交给下一个钩子
End Function
'这个函数放到模块里
'禁用
hNxtHook = SetWindowsHookEx(WH_JOURNALPLAYBACK, AddressOf HookProc, App.hInstance, 0)
'安装钩子,将系统权交给HookProc函数
'''''''''''''''''''''
'这里加以延时,这段时间内,鼠标和键盘都无效..
''''''''''''''''''''
'恢复
UnhookWindowsHookEx hNxtHook '恢复默地址
定义钩子函数:
Function HookProc(ByVal code As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
HookProc = CallNextHookEx(hNxtHook, code, wParam, lParam) '交给下一个钩子
End Function
'这个函数放到模块里
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
