vb锁定 键盘 鼠标

来源：百度知道 编辑：UC知道 时间：2024/06/14 07:07:14
运行程序后就锁定键盘及鼠标 有代码的就发啊zhiailxm@vip.qq.com
运行该程序后就让键盘无法运行热键还有锁定他的鼠标让他点击不得

简单！
用 API 函数，EnableWindow()。
详细说明：

让窗口拒绝接受键盘和鼠标事件
声明：
Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long
使用：
'拒绝接受键盘和鼠标事件
Call EnableWindow(Form.hwnd, 0)
'允许接受键盘和鼠标事件
Call EnableWindow(Form.hwnd, 1)

发不上来，给你发个网址

建一个模块Module1，其代码如下。
＝＝＝＝＝＝＝＝＝
Declare Sub Sleep Lib "KERNEL32" (ByVal dwMilliseconds As Long)
Public Const WH_JOURNALPLAYBACK = 1
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
Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lParam A