屏幕保护关闭时没那么复杂吧 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
End
End SubPrivate Sub Form_Load()
Me.KeyPreview = True
End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
End
End Sub
这就行了，如果还有不懂的加我QQ：243947023
用api获取鼠标的坐标，看它跟原来的是否一样
用API函数！创建勾子
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024