怎么使键盘上的其它键无效(如：键盘光标的"上"键)？快！急用的！

[dragonsou]

'在VB程序中经常要使Ctrl-Alt-Delete和Ctrl-Esc 无效：
'声明以下函数:
Private Declare Function SystemParametersInfo Lib _
"user32" Alias "SystemParametersInfoA" (ByVal uAction _
As Long, ByVal uParam As Long, ByVal lpvParam As Any, _
ByVal fuWinIni As Long) As Long
'代码如下:
Sub DisableCtrlAltDelete(bDisabled As Boolean)
Dim X As Long
X = SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub
Private Sub Command1_Click()
'使Ctrl-Alt-Delete ：
Call DisableCtrlAltDelete(True)
End Sub
Private Sub Command2_Click()
'恢复Ctrl -Alt - Delete:
Call DisableCtrlAltDelete(False)
End Sub

[pp616]

其实很简单。你在xxx_keydown中检测一下keycode 是你想屏蔽的就把keycode设置成0就好了。

[gameboy999]

to pp616:
bdzwc(bdzwc)　的做法才对，你拦截的只是本程序内部的按键，显然不符和dragonsou提出的要求呀 :)

看他的要求:
'在VB程序中经常要使Ctrl-Alt-Delete和Ctrl-Esc 无效：
'声明以下函数

[pp616]

要做整个的键盘监视做一个hook不就好了。就是bdzwc说的那种。
我说的是程序级的。又不是系统级的。
真是搞笑。

[bdzwc]

拦截键盘输入
Option Explicit

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
Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, _
ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long

Public hnexthookproc As Long
Public Const HC_ACTION = 0
Public Const WH_KEYBOARD = 2

Public Sub UnHookKBD()
If hnexthookproc <> 0 Then
UnhookWindowsHookEx hnexthookproc
hnexthookproc = 0
End If
End Sub
Public Function EnableKBDHook()
If hnexthookproc <> 0 Then
Exit Function
End If
hnexthookproc = SetWindowsHookEx(WH_KEYBOARD, AddressOf _
MyKBHFunc, App.hInstance, 0)
If hnexthookproc <> 0 Then
EnableKBDHook = hnexthookproc
End If
End Function
Public Function MyKBHFunc(ByVal iCode As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
'这叁个参数是固定的，不能动，而MyKBHFunc这个名称只要和
'SetWindowsHookex()中 AddressOf後的名称一样便可，不一定叫什麽
'wParam 是传入按了哪个key的virtual-key code

'如果您将以下的两行unmark则所有键盘的输入皆没有作用
'MyKBHFunc = 1 '吃掉讯息
'Exit Function

MyKBHFunc = 0 '讯息要处理
If iCode < 0 Then
MyKBHFunc = CallNextHookEx(hnexthookproc, iCode, wParam, lParam)
Exit Function
End If
If wParam = vbKeySnapshot Then '在这里改变吃掉的键值，现为PRINTSCREEN
MyKBHFunc = 1 '在这个Hook便吃掉这个讯息
Debug.Print "haha"
Else
Call CallNextHookEx(hnexthookproc, iCode, wParam, lParam)
End If
End Function

'以下在Form
Private Sub Form_Load()
Call EnableKBDHook
End Sub

Private Sub Form_Unload(Cancel As Integer)
Call UnHookKBD
End Sub

[mostar]

gameboy,帮帮我的winsock

[tante呃呃]

api

[gameboy999]

to pp:
是谁搞笑？！你是误导人家！！

[freeboy]

搞笑？那你干嘛用Ctrl-Alt-Delete做例子？

[lionprince]

给我一天时间