网上有个即时监视键盘鼠标的操作的程序,你在
Private Sub sh_KeyUp(KeyCode As Integer, Shift As Integer)
Dim s As String
s = KeyCode
s = s + CharFromKeyCode(KeyCode)
If GetForegroundWindow = Me.hwnd Then ‘这里判断当前得到焦点的控件和你想拦截的控件句柄是否一样就可以了(findwindow,findwindowex)
Text2 = Text2 & CharFromKeyCode(KeyCode)
End If
End Sub