鼠标和键盘

Question

我通过以下代码把鼠标限制了
    Private Sub Command1_Click()
      Dim r As RECT
      r.Left = 300
     r.Top = 300
     r.Right = 500
     r.Bottom = 500
    ClipCursor r
   End Sub  Private Sub Command2_Click()
    ClipCursor ByVal 0&
  End Sub Private Sub Timer1_Timer()
  Command1_Click
 End Sub ''''模块
 Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
 End Type Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
请问 如何锁定键盘？代码怎么写？
 

Answer 1

好像是用hook拦截键盘消息，具体代码自己搜索一下吧，应该有很多的。