成都创新互联网站制作重庆分公司

vb.net键盘锁 vbs键盘代码

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

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

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

Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle

Me.ControlBox = False

Me.MaximizeBox = False

Me.Text = ""

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

用VB如何实现锁住电脑屏幕,或者如何锁住键盘鼠标??

锁住屏幕的思路:

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

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

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

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

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

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

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

vb.net大问题 高手进

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://cxhlcq.com/article/dosjjgc.html

其他资讯

在线咨询

微信咨询

电话咨询

028-86922220(工作日)

18980820575(7×24)

提交需求

返回顶部