Systemweiter Hook -> Tasten erweitern

[sdfds2h3ru9s]

Hallo,

ich hab ein kleines problem mit meinem Hook, den ich im Internet auf vb-paradise gefunden hab. So weit so gut.

So jetzt habe ich noch mehr Tasten die ich überwachen möchte. Wie mache ich das
Muss ich dort noch was verändern, um noch mehr Tasten her zu bekommen?

Wo bekomme ich die Codes wie &H312 oder &H0 her?

Bitte helft mir, bin totaler Anfänger!

Ich bedanke mich bei allen Postern


Mein gefundener Code:

Public Class Form1

Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer, ByVal fsModifier As Integer, ByVal vk As Integer) As Integer
Private Declare Sub UnregisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer)

Private Const Key_NONE As Integer = &H0
Private Const WM_HOTKEY As Integer = &H312

Protected Overrides Sub WndProc(ByRef m As Message)
'die messages auswerten
If m.Msg = WM_HOTKEY Then
'hier wird entschieden welcher hotkey es war
'einfach die übergebene id auswerten
Select Case m.WParam
Case 1
MessageBox.Show("Sie haben die Tab-Taste gedrückt!")
Case 2
MessageBox.Show("Sie haben die 1 gedrückt!")
End Select
End If
MyBase.WndProc(m)
End Sub

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
'die tab taste wieder freigeben
UnregisterHotKey(Me.Handle, 1)
UnregisterHotKey(Me.Handle, 2)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'die tab taste abfangen
RegisterHotKey(Me.Handle, 1, Key_NONE, Keys.Tab)
RegisterHotKey(Me.Handle, 2, Key_NONE, Keys.D1)
End Sub
End Class