用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://azwzsj.com/article/dsgppds.html