Register Hotkey

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von 12hummer34.

    Register Hotkey

    mein code:

    VB.NET-Quellcode

    1. Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer, ByVal fsModifier As Integer, ByVal vk As Integer) As Integer
    2. Private Declare Sub UnregisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer)
    3. Private Const Key_NONE As Integer = &H0
    4. Private Const WM_HOTKEY As Integer = &H312
    6. Protected Overrides Sub WndProc(ByRef m As Message)
    7. 'die messages auswerten
    8. If m.Msg = WM_HOTKEY Then
    9. 'hier wird entschieden welcher hotkey es war
    10. 'einfach die übergebene id auswerten
    11. Select Case m.WParam
    12. Case 1
    13. SendKeys.Send("T")
    14. SendKeys.Send(Form3.TextBox1.Text)
    15. SendKeys.Send("{ENTER}")
    16. Case 2
    17. SendKeys.Send("T")
    18. SendKeys.Send(Form3.TextBox2.Text)
    19. SendKeys.Send("{ENTER}")
    20. Case 3
    21. SendKeys.Send("T")
    22. SendKeys.Send(Form3.TextBox4.Text)
    23. SendKeys.Send("{ENTER}")
    24. Case 4
    25. SendKeys.Send("T")
    26. SendKeys.Send(Form3.TextBox3.Text)
    27. SendKeys.Send("{ENTER}")
    28. Case 5
    29. SendKeys.Send("T")
    30. SendKeys.Send(Form3.TextBox8.Text)
    31. SendKeys.Send("{ENTER}")
    32. Case 6
    33. SendKeys.Send("T")
    34. SendKeys.Send(Form3.TextBox7.Text)
    35. SendKeys.Send("{ENTER}")
    36. Case 7
    37. SendKeys.Send("T")
    38. SendKeys.Send(Form3.TextBox6.Text)
    39. SendKeys.Send("{ENTER}")
    40. Case 8
    41. SendKeys.Send("T")
    42. SendKeys.Send(Form3.TextBox5.Text)
    43. SendKeys.Send("{ENTER}")
    44. Case 9
    45. SendKeys.Send("T")
    46. SendKeys.Send(Form3.TextBox9.Text)
    47. SendKeys.Send("{ENTER}")
    48. Case 10
    49. SendKeys.Send("T")
    50. SendKeys.Send(Form3.TextBox18.Text)
    51. SendKeys.Send("{ENTER}")
    52. Case 11
    53. SendKeys.Send("T")
    54. SendKeys.Send(Form3.TextBox17.Text)
    55. SendKeys.Send("{ENTER}")
    56. Case 12
    57. SendKeys.Send("T")
    58. SendKeys.Send(Form3.TextBox16.Text)
    59. SendKeys.Send("{ENTER}")
    60. Case 13
    61. SendKeys.Send("T")
    62. SendKeys.Send(Form3.TextBox15.Text)
    63. SendKeys.Send("{ENTER}")
    64. Case 14
    65. SendKeys.Send("T")
    66. SendKeys.Send(Form3.TextBox14.Text)
    67. SendKeys.Send("{ENTER}")
    68. Case 15
    69. SendKeys.Send("T")
    70. SendKeys.Send(Form3.TextBox13.Text)
    71. SendKeys.Send("{ENTER}")
    72. Case 16
    73. SendKeys.Send("T")
    74. SendKeys.Send(Form3.TextBox12.Text)
    75. SendKeys.Send("{ENTER}")
    76. Case 17
    77. SendKeys.Send("T")
    78. SendKeys.Send(Form3.TextBox11.Text)
    79. SendKeys.Send("{ENTER}")
    80. Case 18
    81. SendKeys.Send("T")
    82. SendKeys.Send(Form3.TextBox10.Text)
    83. SendKeys.Send("{ENTER}")
    84. End Select
    85. End If
    86. MyBase.WndProc(m)
    87. End Sub
    89. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    90. 'die tab taste wieder freigeben
    91. UnregisterHotKey(Me.Handle, 1)
    92. UnregisterHotKey(Me.Handle, 2)
    93. UnregisterHotKey(Me.Handle, 3)
    94. UnregisterHotKey(Me.Handle, 4)
    95. UnregisterHotKey(Me.Handle, 5)
    96. UnregisterHotKey(Me.Handle, 6)
    97. UnregisterHotKey(Me.Handle, 7)
    98. UnregisterHotKey(Me.Handle, 8)
    99. UnregisterHotKey(Me.Handle, 9)
    100. UnregisterHotKey(Me.Handle, 10)
    101. UnregisterHotKey(Me.Handle, 11)
    102. UnregisterHotKey(Me.Handle, 12)
    103. UnregisterHotKey(Me.Handle, 13)
    104. UnregisterHotKey(Me.Handle, 14)
    105. UnregisterHotKey(Me.Handle, 15)
    106. UnregisterHotKey(Me.Handle, 16)
    107. UnregisterHotKey(Me.Handle, 17)
    108. UnregisterHotKey(Me.Handle, 18)
    109. End Sub
    114. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    115. RegisterHotKey(Me.Handle, 1, Key_NONE, Keys.F2 + Keys.D1)
    116. RegisterHotKey(Me.Handle, 2, Key_NONE, Keys.F2 + Keys.D2)
    117. RegisterHotKey(Me.Handle, 3, Key_NONE, Keys.F2 + Keys.D3)
    118. RegisterHotKey(Me.Handle, 4, Key_NONE, Keys.F2 + Keys.D4)
    119. RegisterHotKey(Me.Handle, 5, Key_NONE, Keys.F2 + Keys.D5)
    120. RegisterHotKey(Me.Handle, 6, Key_NONE, Keys.F2 + Keys.D6)
    121. RegisterHotKey(Me.Handle, 7, Key_NONE, Keys.F2 + Keys.D7)
    122. RegisterHotKey(Me.Handle, 8, Key_NONE, Keys.F2 + Keys.D8)
    123. RegisterHotKey(Me.Handle, 9, Key_NONE, Keys.F2 + Keys.D9)
    124. RegisterHotKey(Me.Handle, 10, Key_NONE, Keys.F3 + Keys.D1)
    125. RegisterHotKey(Me.Handle, 11, Key_NONE, Keys.F3 + Keys.D2)
    126. RegisterHotKey(Me.Handle, 12, Key_NONE, Keys.F3 + Keys.D3)
    127. RegisterHotKey(Me.Handle, 13, Key_NONE, Keys.F3 + Keys.D4)
    128. RegisterHotKey(Me.Handle, 14, Key_NONE, Keys.F3 + Keys.D5)
    129. RegisterHotKey(Me.Handle, 15, Key_NONE, Keys.F3 + Keys.D6)
    130. RegisterHotKey(Me.Handle, 16, Key_NONE, Keys.F3 + Keys.D7)
    131. RegisterHotKey(Me.Handle, 17, Key_NONE, Keys.F3 + Keys.D8)
    132. RegisterHotKey(Me.Handle, 18, Key_NONE, Keys.F3 + Keys.D9)
    133. Form3.Show()
    134. End Sub



    es kommt keine Fehlermeldung, es funktioniert einfach nicht!!

    Kann das überhaupt so funktionieren?? was muss ich ändern?? verschrieben?

    !!Ich verwende den code von Mikeb69!!

    //Edit: der code is ok, es lag an was anderem!!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „S3cr3t“ ()

    Sorry das ich dieses Thema nochmal raushole aber ich habe genau das selbe Problem wie blaze gesagt hatt. Aber ich versetehe nicht wie er das meint mit GetA... Ich bin noch Anfänger und es wäre super wenn ihr mir des ausführlich schreiben könntet. Ich hoffe das ließt noch jemand :D

    MFG 12hummer34

Facebook
Telefonspende