vb.net锁键鼠,vbs锁定鼠标键盘
用VB如何实现锁住电脑屏幕,或者如何锁住键盘鼠标??
锁住屏幕的思路:
10年的横山网站建设经验,针对设计、前端、开发、售后、文案、推广等六对一服务,响应快,48小时及时工作处理。成都营销网站建设的优势是能够根据用户设备显示端的尺寸不同,自动调整横山建站的显示方式,使网站能够适用不同显示终端,在浏览器中调整网站的宽度,无论在任何一种浏览器上浏览网站,都能展现优雅布局与设计,从而大程度地提升浏览体验。创新互联从事“横山网站设计”,“横山网站推广”以来,每个客户项目都认真落实执行。
1.创建一个透明度为1的窗体(透明度0的话会让窗体消失),覆盖屏幕,并用Timer不断置顶(防止如任务管理器之类的置顶窗口在这个之上)
2.锁住键盘~~就是屏蔽键盘 这个你搜索一下就可以了 网上都有
3.锁住鼠标:可以理解为 隐藏鼠标 反正窗体上面什么都没有 不隐藏也可以:)
4.Open Environ$("WinDir") "\system32\taskmgr.exe" For Binary As #1
,用于锁定任务管理器……(不能屏蔽Ctrl+Alt+Delete所以只能这么干了)这样任务管理器开不了了(除非已经打开)
一般来说这样就可以了……
当然建议留一个后路否则只能重启啦……
vb.net中如何禁用键盘和鼠标
很简单,你怎么不先问我,还在这提问。用api函数,钩子,设置成全局钩子,然后对钩取来的message消息不做处理,也不返回,这样屏蔽了键盘了。钩子函数api好像是什么hook的那个,还有钩子函数的返回函数,以整个自定义函数的指针作参数
如何在VB.net中用程序控制鼠标移动和点击
调用api
在Visual Baisc.net中的声明:
Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_LEFTDOWN = H2 '模拟鼠标左键按下
Public Const MOUSEEVENTF_LEFTUP = H4 ’模拟鼠标左键释放
Public Const MOUSEEVENTF_MIDDLEDOWN = H20 '模拟鼠标中间键按下
Public Const MOUSEEVENTF_MIDDLEUP = H40 '模拟鼠标中间键释放
Public Const MOUSEEVENTF_RIGHTDOWN = H8 '模拟鼠标右键按下
Public Const MOUSEEVENTF_RIGHTUP = H10 '模拟鼠标右键释放
Public Const MOUSEEVENTF_MOVE = H1 '模拟鼠标指针移动
例:
mouse_event MOUSEEVENTF_LEFTDOWN,10,10,0,0
'在(10,10)模拟鼠标左键按下
网站题目:vb.net锁键鼠,vbs锁定鼠标键盘
分享地址:http://myzitong.com/article/dsgppds.html