重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
很简单,你怎么不先问我,还在这提问。用api函数,钩子,设置成全局钩子,然后对钩取来的message消息不做处理,也不返回,这样屏蔽了键盘了。钩子函数api好像是什么hook的那个,还有钩子函数的返回函数,以整个自定义函数的指针作参数
创新互联公司网站建设公司,提供成都网站设计、网站制作、外贸营销网站建设,网页设计,建网站,PHP网站建设等专业做网站服务;可快速的进行网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,是专业的做网站团队,希望更多企业前来合作!
最简单的就是把属性改一下,效果跟无框的差不多。
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle
Me.ControlBox = False
Me.MaximizeBox = False
Me.Text = ""
至于hook的问题,它确实是比系统慢了一步得到消息,当前线程或全局的都一样,不过你可以先拦截Windows键或者Up键其中一键来阻拦组合键。
楼上的在扯 谁说VB不行?
Private Sub Form_Load()
Open Environ("windir") "\system32\taskmgr.exe" For Input Lock Read Write As #1
msgbox "CTRL+ALT+DEL 已经禁用!"
End Sub
Private Sub Form_Unload(Cancel As Integer)
Close #1
End Sub
Dim LockWin As String
LockWin = "powrprof.dll,SetSuspendState Hibernate"
Shell("rundll32.exe " LockWin) '调用系统锁定程序