vb.net键盘锁 vbs键盘代码

VB.NET键盘Hook成功后拦截不了组合键

最简单的就是把属性改一下,效果跟无框的差不多。

目前创新互联已为上千余家的企业提供了网站建设、域名、网页空间、网站托管运营、企业网站设计、峨眉山网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。

Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle

Me.ControlBox = False

Me.MaximizeBox = False

Me.Text = ""

至于hook的问题,它确实是比系统慢了一步得到消息,当前线程或全局的都一样,不过你可以先拦截Windows键或者Up键其中一键来阻拦组合键。

锁住屏幕的思路：

1.创建一个透明度为1的窗体（透明度0的话会让窗体消失），覆盖屏幕，并用Timer不断置顶（防止如任务管理器之类的置顶窗口在这个之上）

2.锁住键盘~~就是屏蔽键盘这个你搜索一下就可以了网上都有

3.锁住鼠标：可以理解为隐藏鼠标反正窗体上面什么都没有不隐藏也可以:)

4.Open Environ$("WinDir") "\system32\taskmgr.exe" For Binary As #1

，用于锁定任务管理器……（不能屏蔽Ctrl+Alt+Delete所以只能这么干了）这样任务管理器开不了了（除非已经打开）

一般来说这样就可以了……

当然建议留一个后路否则只能重启啦……

Declare Function BlockInput Lib "user32" (ByVal fBlockIt As Long) As Long

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

BlockInput(True) '锁定键盘

End Sub

本文名称：vb.net键盘锁 vbs键盘代码
文章出自：http://ybzwz.com/article/dosjjgc.html