如何屏蔽键盘

Question

在KeyPress中写入下面的代码：
KeyAscii=0

Answer 1

对不起，可能是我刚才没说清楚，我想知道如何在整个程序中使键盘不发挥作用。
（包括Ctrl+Atl+Delete)

Answer 2

那可能要用到钩子程序，请查阅论坛的 Hook 关键字

Answer 3

可以使用钩子函数
首先声明api函数和常量
Public 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
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public Declare Function GetCurrentThreadId Lib "kernel32" () As Long
Public Const WH_KEYBOARD = 2
    
Public gLngKeyHook As Long
    
Public Function KeyboardProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
KeyboardProc = -1
End Function然后在窗口中设置钩子函数:
gLngKeyHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, App.hInstance, GetCurrentThreadId)最后别忘了在unload时取消钩子函数
UnhookWindowsHookEx gLngKeyHook希望以上对你有帮助

Answer 4

看了Tony_Yuan 的程序非常好，可不知怎样封掉ctri-alt-del 这三个键？请指教。