求助!关于键盘鼠标锁定

[guoli279]

我在做个机房计费系统,客户端开始自动键盘鼠标锁定,然后输入密码后解锁.听说用钩子可以实现,可我不会用.哪位老大能不能说的详细点!不甚感激!

[guoli279]

我用的是vb.net

[chenhui530]

你的意思是不能使用任何按键和鼠标对吗？

[WuYunpeng]

Public Declare Function ClipCursor& Lib "user32" (lpRect As RECT)
Public Declare Function ClipCursorBynum& Lib "user32" Alias "ClipCursor" (ByVal lpRect As Long)
Public Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long

Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type


Private tmpRect As RECT
'锁光标
Private Sub Timer1_Timer()
tmpRect.Top = 100
tmpRect.Left = 100
tmpRect.Right = 120
tmpRect.Bottom = 120
ClipCursor tmpRect

End Sub


锁定光标代码为
Timer1.Enabled = True

解除锁定光标代码为
Timer1.Enabled = False
ClipCursorBynum& 0