如何屏蔽键盘

[jjia84]

在Visual Basic中，如何屏蔽键盘，请指教。

[peacock]

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

[jjia84]

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

[Firing_Sky]

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

[rabbit]

当然是使用HOOK了

[Un1]

把键盘拔掉！

[jiajia]

hi

[Tony_Yuan]

可以使用钩子函数
首先声明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

希望以上对你有帮助

[lzj60]

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