VB.NET注册热键F12，或者屏蔽系统F12键

[轻鸿万里]

如题。请各位大侠帮忙解决。

[Poopaye]

看不懂，不是当前窗口，vs又不会响应f12

[轻鸿万里]

引用 1 楼 shingoscar 的回复:

看不懂，不是当前窗口，vs又不会响应f12

全局热键 无论是不是当前窗口，只要键盘按下F12就会响应。

[轻鸿万里]

引用 3 楼 shingoscar 的回复:

Declare Auto Function RegisterHotKey Lib "user32.dll" (Byval handle As IntPtr, ByVal id As Integer, ByVal fsModifier As UInt32, ByVal vk As UInt32) As Boolean

'8888随便填
'123就是F12
RegisterHotKey (Me.Handle, 8888, 0, 123)

'然后在WnProc里处理786这个消息

试过了，不行的。注册失败

[轻鸿万里]

Public Const WM_HOTKEY As Integer = &H312 Public Const MOD_ALT As Integer = &H1 Public Const MOD_CONTROL As Integer = &H2 Public Const MOD_SHIFT As Integer = &H4 Public Const GWL_WNDPROC As Integer = (-4) Public Declare Auto Function RegisterHotKey Lib "user32.dll" Alias "RegisterHotKey" (ByVal hwnd As IntPtr, ByVal id As Integer, ByVal fsModifiers As Integer, ByVal vk As Integer) As Boolean Public Declare Auto Function UnRegisterHotKey Lib "user32.dll" Alias "UnregisterHotKey" (ByVal hwnd As IntPtr, ByVal id As Integer) As Boolean Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim isResult As Boolean isResult = RegisterHotKey(Handle, 0, 0, Keys.F12) '注册home的组合键 Me.Hide() If isResult = False Then MsgBox("注册热键失败") Me.Close() End If End Sub Private Sub Form1_clos(ByVal sender As System.Object, ByVal e As FormClosingEventArgs) Handles MyBase.FormClosing Dim isResult As Boolean isResult = UnRegisterHotKey(Handle, 0) End Sub '响应热键 Protected Overrides Sub WndProc(ByRef m As Message) If m.Msg = WM_HOTKEY Then End If MyBase.WndProc(m) End Sub

[Poopaye]

f12应该是没辙的，换个吧

引用

The F12 key is reserved for use by the debugger at all times, so it should not be registered as a hot key. Even when you are not debugging an application, F12 is reserved in case a kernel-mode debugger or a just-in-time debugger is resident.

https://msdn.microsoft.com/en-us/library/windows/desktop/ms646309(v=vs.85).aspx

[轻鸿万里]

我的目的就是要屏蔽F12，换个都没问题。

[Poopaye]

Declare Auto Function RegisterHotKey Lib "user32.dll" (Byval handle As IntPtr, ByVal id As Integer, ByVal fsModifier As UInt32, ByVal vk As UInt32) As Boolean

'8888随便填
'123就是F12
RegisterHotKey (Me.Handle, 8888, 0, 123)

'然后在WnProc里处理786这个消息

[轻鸿万里]

自己做全局键盘钩子解决了。