Горячие клавиши больше не работают

Question

Я использовал горячие клавиши, но из ниоткуда они больше не работают. Это очень запутанно.

Это произошло, когда мой друг проверил мой код через зрителя команды. Затем он прекратил работать.

Public Class Form2 

Public Const MOD_ALT As Integer = &H1 'Alt key 
Public Const WM_HOTKEY As Integer = &H312 

<DllImport("User32.dll")> _ 
Public Shared Function RegisterHotKey(ByVal hwnd As IntPtr, _ 
        ByVal id As Integer, ByVal fsModifiers As Integer, _ 
        ByVal vk As Integer) As Integer 
End Function 

<DllImport("User32.dll")> _ 
Public Shared Function UnregisterHotKey(ByVal hwnd As IntPtr, _ 
        ByVal id As Integer) As Integer 
End Function 

Private Sub Form2_Load(ByVal sender As System.Object, _ 
        ByVal e As System.EventArgs) Handles MyBase.Load 
    RegisterHotKey(Me.Handle, 100, MOD_ALT, Keys.E) 
    RegisterHotKey(Me.Handle, 200, MOD_ALT, Keys.A) 
    Me.TopMost = True 
    Me.ShowInTaskbar = False 
    Me.TransparencyKey = Me.BackColor 
    Dim leftpos As Long 
    Dim toppos As Long 
    leftpos = (My.Computer.Screen.WorkingArea.Right - 2) - Me.Width 
    toppos = (My.Computer.Screen.WorkingArea.Bottom - 2) - Me.Height 
    Me.Location = New Point(leftpos, toppos) 
End Sub 

Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message) 
    If m.Msg = WM_HOTKEY Then 
     Dim id As IntPtr = m.WParam 
     Select Case (id.ToString) 
      Case "100" 
       Application.Exit() 
      Case "200" 
       Form3.Show() 

     End Select 
    End If 
    MyBase.WndProc(m) 
End Sub 

Private Sub Form2_FormClosing(ByVal sender As System.Object, _ 
        ByVal e As System.Windows.Forms.FormClosingEventArgs) _ 
        Handles MyBase.FormClosing 
    UnregisterHotKey(Me.Handle, 100) 
    UnregisterHotKey(Me.Handle, 200) 
End Sub 


Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown 
    If e.KeyCode = Keys.Enter Then 

     Form3.Show() 
     Form3.Activate() 

    End If 
End Sub 
End Class 

Answer 1

я исправил некоторые функции API подписи с помощью хорошего парня IronRazer в DreamInCode согласно ниже

<DllImport("user32.dll", EntryPoint:="RegisterHotKey")> _ 
Private Shared Function RegisterHotKey(ByVal hWnd As IntPtr, ByVal id As Integer, ByVal fsModifiers As Integer, ByVal vk As Integer) As <MarshalAs(UnmanagedType.Bool)> Boolean 
End Function 

<DllImport("user32.dll", EntryPoint:="UnregisterHotKey")> _ 
Private Shared Function UnregisterHotKey(ByVal hWnd As IntPtr, ByVal id As Integer) As <MarshalAs(UnmanagedType.Bool)> Boolean 
End Function 

    and it worked fine.