VB锁定鼠标键盘,VB锁定鼠标,VB锁定键盘,VB屏蔽鼠标键盘,VB屏蔽鼠标,VB屏蔽键盘,VB BlockInput,VB BlockInput (5),VB BlockInput (0),BlockInput (5),BlockInput (0)。

VB锁定鼠标键盘,VB屏蔽鼠标键盘:

Private Declare Function BlockInput Lib "user32" (ByVal fEnable As Long) As Long
Private Sub Command1_Click()
    BlockInput (5)                                                              '锁定
End Sub
Private Sub Timer1_Timer()
    BlockInput (0)                                                              '解锁
End Sub