189 8069 5689

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锁定鼠标键盘
URL网址:http://cdxtjz.cn/article/dsgppds.html

其他资讯