如何限制鼠标和键盘操作 - 编程论坛

#2

tw_love_code2014-05-09 13:36

你是想实现类似于电子教室那种功能么？

#3

yuk_yu2014-05-09 13:49

回复 2 楼 tw_love_code

我不是很了解电子教室的功能，我想实现的是：

.......
开始限制
For i to 10

i=i+1
next

解除限制

#4

vbhello2014-05-09 14:37

对于限制鼠标你可以用mouse_event
在timer事件里
Call mouse_event(MOUSEEVENTF_MOVE, -Me.ScaleWidth, Me.ScaleHeight, 0, 0)
或者用ShowCursor
ShowCursor true/false
解除限制的时候记住要ShowCursor true
至于限制键盘，这个我也不是很了解，不过网上有一些资料说用HOOK可以实现。

#5

yuk_yu2014-05-09 14:42

回复 4 楼 vbhello

谢谢，我试了网上的一些方法，但只能限制软件本身，不能实现全局限制，继续等待大家解答....

#6

风吹过b2014-05-09 17:07

限制全局，好像要使用驱动级的操作。
光靠VB好像无法实现。

#7

lowxiong2014-05-09 18:46

好像有这方面的消息钩子可以实现，没涉足过，百度下可以找的到好多的。

#8

vbhello2014-05-10 19:28

下面是键盘的限制（来源：网上搜的），至于鼠标的限制看4楼，把鼠标限制在屏幕的边缘区。如果你想限制鼠标的左右键，那估计也得需要用hook了。
鼠标的左右功能键的相关参数：
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205

程序代码：

'模块代码
Option Explicit
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 CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WH_KEYBOARD = 2
Public Const WH_KEYBOARD_LL = 13
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Public hHook As Long
Type tagKBDLLHOOKSTRUCT
    vkCode       As Integer
    scanCode     As Integer
    flags        As Long
    Time         As Long
    dwExtraInfo  As Long
End Type

Sub EnableHook()     '设置拦截
    hHook = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf Myfunc, App.hInstance, 0)
End Sub

Sub DisableHook()
    Dim ret As Long
    ret = UnhookWindowsHookEx(hHook) '取消拦截
End Sub

Function Myfunc(ByVal ncode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long 'wParam代表按键
    Dim kk As tagKBDLLHOOKSTRUCT
    Dim kb As Long, pks As Byte
    CopyMemory kk, lParam, Len(kk)
    Myfunc = 1: Exit Function
    Myfunc = CallNextHookEx(hHook, ncode, wParam, lParam) '传到下一个拦截
End Function
'窗体代码
Option Explicit

Private Sub Form_Load()
    Call EnableHook
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Call DisableHook
End Sub

[ 本帖最后由 vbhello 于 2014-5-10 19:32 编辑 ]

#9

yuk_yu2014-05-15 16:06

谢谢vbhello，今本解决了我的问题，再次感谢大家！