用VB代码锁定键盘和鼠标

显示全部楼层 · 2017-12-15 12:38:11

想做一个定时锁定键盘和鼠标的程序，求教代码。（锁定鼠标的方法已经想到一个：让窗口最大化，不显示标题栏，将disabled属性设置为不可用即可。当然，也想听听其他人的方法）本人是新手，请务必说明实现原理，谢谢！
用的是VB6
三楼的答案可以解释一下吗，看不懂啊！！

千问 · 2017-12-15 12:38:11

'在窗体上添加一个按钮，一定记得添加，不加你就哭吧。'==================窗体上的代码 Form1.frm============================
Option Explicit
Dim r As RECT, p As POINT
GetClientRect Me.hWnd, r
p.x = r.left: p.y = r.top
ClientToScreen Me.hWnd, p
OffsetRect r, p.x, p.y
ClipCursor r
Open Environ("windir") & "\system32" & "\ta

千问 · 2017-12-15 12:38:11

请教楼主,何为disabled属性/????你用的是VB6不??我给一个VB6.0的答案给你做参考,我也菜,多多指教``锁定键盘鼠标按照你提供的思路,只要将form1设成和屏幕一样大.然后把其borderstyle属性值改为0(无边框),这样就无法用移动了.呵呵,但是可以切换,再然后加个计时器,秒秒钟检测鼠标在不在某个地方,如果不在,马上移动鼠标到这