Question

VB程序 如何使特定几个按键无法使用

刚在VB吧 发了个帖子 VB设计一个程序，如何避免被强行关闭和最小化
没有完整的回答
我想了想 如果写在form的KEYDOWN事件里
If KeyCode = 17 Or KeyCode = 18 Or KeyCode = 91 Or KeyCode = 92 Or KeyCode = 68 Or KeyCode = 46 Or KeyCode = 110 Or KeyCode = 27 Or KeyCode = 115 Or KeyCode = 87 Then
End If
把ALT CTRL DEL F4 TAB W D这几个能最小化或者关闭窗口的按键都写进去
THEN后边应该怎么写能使这几个按键无效呢 以前学过貌似 但是忘了 用的RETURN还是back什么关键字的
哪位高手能帮忙解答下 感谢！
分不多了 答好有20分追加

Answer 1

窗体的关闭和最小化属于系统级的操作，这些键是由windows系统控制的，VB本身是无法使这些键失效的。用API函数可以做到这点，但是用这种方式达到“避免被强行关闭和最小化”的目的是很傻的，而且除了按键，还有鼠标呢？为什么就不能换一种思路呢？其实用下面的简单代码就可达到你的要求：

Private Sub Form_Resize() '避免最小化
If Me.WindowState = 1 Then Me.WindowState = 0
End Sub

Private Sub Form_Unload(Cancel As Integer) '避免被关闭
Cancel = 1
End Sub

追问

我也没别的方法啊 你想想 一个计费系统的客户端 登录之前就能关闭了或者最小化了可怎么办
上边的代码我已经写了 但是只能避免ALT+F4关闭 ALT+TAB或者任务管理器依然不行
那么请问能不能在FORM1下禁用键盘 只能用鼠标呢？可以的话请简单帮我写一下代码 我就能设置一个屏幕键盘用鼠标输入帐号密码了 可以避免恶意关闭和最小化

追答

要禁用键盘只能用钩子（HOOK）了：
以下代码放到模块文件（.bas）中：

Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long

Public Const WH_KEYBOARD_LL = 13

Public hHook As Long

Public Function EnableKBDHook()
If hHook = 0 Then hHook = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf MyKBHFunc, App.hInstance, 0)
End Function

Public Sub UnHookKBD()
If hHook 0 Then UnhookWindowsHookEx hHook
hHook = 0
End Sub

Public Function MyKBHFunc(ByVal iCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
MyKBHFunc = -1
End Function

以下代码放到窗体文件中：

Private Sub Form_Load()
'窗体一运行即屏蔽键盘并且锁定任务管理器（间接使Ctrl+Alt+Del失效，这个键用钩子也不能屏蔽）
Open "C:\WINDOWS\system32\taskmgr.exe" For Random Lock Read As #9
EnableKBDHook
End Sub

Private Sub Form_Unload(Cancel As Integer)
'窗体退出时解锁任务管理器及键盘，否则的话即使程序退出键盘仍然失效
Close #9
UnHookKBD
End Sub

Answer 2

用钩子

Answer 3

exit sub

追问

这个不行的 只是退出SUB了 按键依然有效

追答

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
Exit Sub
End If
End Sub

追问

真心不行。。。这个语句只是把KEYASC的值改变了 并不能改变windows下已经按键
看来只能用API函数了。。

追答

KEYDOWN事件里更不行，想“改变windows下已经按键”为什么不早说清楚？就这5分？

追问

分没问题 我还一号1000多分 你回答好了我换号重新问个留邮箱的 你答个已发送 给200 400都行
再说我都写了避免程序被强行关闭或者最小化 你给的代码不可以吧

Answer 4

设置ENable