In einem Spiel KeyUp Event ausführen???

  • VB.NET

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

    In einem Spiel KeyUp Event ausführen???

    Hay habe folgendes problem:

    Ich habe ein Programm gemacht für ein Spiel. Das Programm soll halt immer wenn man "Z" drückt, F1 - F9 durchdrücken. Doch wenn ich jetz zu dem Spiel wechsle und "Z" drücke passiert nix.
    [Ps: Ein bissl umständlich gecodet]

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    4. Me.KeyPreview = True
    7. End Sub
    8. Private Sub Form1_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp
    9. If e.KeyCode = Keys.Z Then
    10. Button1.PerformClick()
    11. ElseIf e.KeyCode = Keys.Q Then
    12. Button2.PerformClick()
    14. End If
    15. End Sub
    17. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    18. If ComboBox1.Text = "F - Leiste 1" Then
    19. SendKeys.Send(Keys.D1)
    20. SendKeys.Send(Keys.F1)
    21. SendKeys.Send(Keys.F2)
    22. SendKeys.Send(Keys.F3)
    23. SendKeys.Send(Keys.F4)
    24. SendKeys.Send(Keys.F5)
    25. SendKeys.Send(Keys.F6)
    26. SendKeys.Send(Keys.F7)
    27. SendKeys.Send(Keys.F8)
    28. SendKeys.Send(Keys.F9)
    29. ElseIf ComboBox1.Text = "F - Leiste 2" Then
    30. SendKeys.Send(Keys.D2)
    31. SendKeys.Send(Keys.F1)
    32. SendKeys.Send(Keys.F2)
    33. SendKeys.Send(Keys.F3)
    34. SendKeys.Send(Keys.F4)
    35. SendKeys.Send(Keys.F5)
    36. SendKeys.Send(Keys.F6)
    37. SendKeys.Send(Keys.F7)
    38. SendKeys.Send(Keys.F8)
    39. SendKeys.Send(Keys.F9)
    40. ElseIf ComboBox1.Text = "F - Leiste 3" Then
    41. SendKeys.Send(Keys.D3)
    42. SendKeys.Send(Keys.F1)
    43. SendKeys.Send(Keys.F2)
    44. SendKeys.Send(Keys.F3)
    45. SendKeys.Send(Keys.F4)
    46. SendKeys.Send(Keys.F5)
    47. SendKeys.Send(Keys.F6)
    48. SendKeys.Send(Keys.F7)
    49. SendKeys.Send(Keys.F8)
    50. SendKeys.Send(Keys.F9)
    51. ElseIf ComboBox1.Text = "F - Leiste 4" Then
    52. SendKeys.Send(Keys.D4)
    53. SendKeys.Send(Keys.F1)
    54. SendKeys.Send(Keys.F2)
    55. SendKeys.Send(Keys.F3)
    56. SendKeys.Send(Keys.F4)
    57. SendKeys.Send(Keys.F5)
    58. SendKeys.Send(Keys.F6)
    59. SendKeys.Send(Keys.F7)
    60. SendKeys.Send(Keys.F8)
    61. SendKeys.Send(Keys.F9)
    62. ElseIf ComboBox1.Text = "F - Leiste 5" Then
    63. SendKeys.Send(Keys.D5)
    64. SendKeys.Send(Keys.F1)
    65. SendKeys.Send(Keys.F2)
    66. SendKeys.Send(Keys.F3)
    67. SendKeys.Send(Keys.F4)
    68. SendKeys.Send(Keys.F5)
    69. SendKeys.Send(Keys.F6)
    70. SendKeys.Send(Keys.F7)
    71. SendKeys.Send(Keys.F8)
    72. SendKeys.Send(Keys.F9)
    73. ElseIf ComboBox1.Text = "F - Leiste 6" Then
    74. SendKeys.Send(Keys.D6)
    75. SendKeys.Send(Keys.F1)
    76. SendKeys.Send(Keys.F2)
    77. SendKeys.Send(Keys.F3)
    78. SendKeys.Send(Keys.F4)
    79. SendKeys.Send(Keys.F5)
    80. SendKeys.Send(Keys.F6)
    81. SendKeys.Send(Keys.F7)
    82. SendKeys.Send(Keys.F8)
    83. SendKeys.Send(Keys.F9)
    84. ElseIf ComboBox1.Text = "F - Leiste 7" Then
    85. SendKeys.Send(Keys.D7)
    86. SendKeys.Send(Keys.F1)
    87. SendKeys.Send(Keys.F2)
    88. SendKeys.Send(Keys.F3)
    89. SendKeys.Send(Keys.F4)
    90. SendKeys.Send(Keys.F5)
    91. SendKeys.Send(Keys.F6)
    92. SendKeys.Send(Keys.F7)
    93. SendKeys.Send(Keys.F8)
    94. SendKeys.Send(Keys.F9)
    95. ElseIf ComboBox1.Text = "F - Leiste 8" Then
    96. SendKeys.Send(Keys.D8)
    97. SendKeys.Send(Keys.F1)
    98. SendKeys.Send(Keys.F2)
    99. SendKeys.Send(Keys.F3)
    100. SendKeys.Send(Keys.F4)
    101. SendKeys.Send(Keys.F5)
    102. SendKeys.Send(Keys.F6)
    103. SendKeys.Send(Keys.F7)
    104. SendKeys.Send(Keys.F8)
    105. SendKeys.Send(Keys.F9)
    106. ElseIf ComboBox1.Text = "F - Leiste 9" Then
    107. SendKeys.Send(Keys.D9)
    108. SendKeys.Send(Keys.F1)
    109. SendKeys.Send(Keys.F2)
    110. SendKeys.Send(Keys.F3)
    111. SendKeys.Send(Keys.F4)
    112. SendKeys.Send(Keys.F5)
    113. SendKeys.Send(Keys.F6)
    114. SendKeys.Send(Keys.F7)
    115. SendKeys.Send(Keys.F8)
    116. SendKeys.Send(Keys.F9)
    117. End If
    118. End Sub
    120. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    121. If ComboBox2.Text = "F - Leiste 1" Then
    122. SendKeys.Send(Keys.D1)
    123. SendKeys.Send(Keys.F1)
    124. SendKeys.Send(Keys.F2)
    125. SendKeys.Send(Keys.F3)
    126. SendKeys.Send(Keys.F4)
    127. SendKeys.Send(Keys.F5)
    128. SendKeys.Send(Keys.F6)
    129. SendKeys.Send(Keys.F7)
    130. SendKeys.Send(Keys.F8)
    131. SendKeys.Send(Keys.F9)
    132. ElseIf ComboBox2.Text = "F - Leiste 2" Then
    133. SendKeys.Send(Keys.D2)
    134. SendKeys.Send(Keys.F1)
    135. SendKeys.Send(Keys.F2)
    136. SendKeys.Send(Keys.F3)
    137. SendKeys.Send(Keys.F4)
    138. SendKeys.Send(Keys.F5)
    139. SendKeys.Send(Keys.F6)
    140. SendKeys.Send(Keys.F7)
    141. SendKeys.Send(Keys.F8)
    142. SendKeys.Send(Keys.F9)
    143. ElseIf ComboBox2.Text = "F - Leiste 3" Then
    144. SendKeys.Send(Keys.D3)
    145. SendKeys.Send(Keys.F1)
    146. SendKeys.Send(Keys.F2)
    147. SendKeys.Send(Keys.F3)
    148. SendKeys.Send(Keys.F4)
    149. SendKeys.Send(Keys.F5)
    150. SendKeys.Send(Keys.F6)
    151. SendKeys.Send(Keys.F7)
    152. SendKeys.Send(Keys.F8)
    153. SendKeys.Send(Keys.F9)
    154. ElseIf ComboBox2.Text = "F - Leiste 4" Then
    155. SendKeys.Send(Keys.D4)
    156. SendKeys.Send(Keys.F1)
    157. SendKeys.Send(Keys.F2)
    158. SendKeys.Send(Keys.F3)
    159. SendKeys.Send(Keys.F4)
    160. SendKeys.Send(Keys.F5)
    161. SendKeys.Send(Keys.F6)
    162. SendKeys.Send(Keys.F7)
    163. SendKeys.Send(Keys.F8)
    164. SendKeys.Send(Keys.F9)
    165. ElseIf ComboBox2.Text = "F - Leiste 5" Then
    166. SendKeys.Send(Keys.D5)
    167. SendKeys.Send(Keys.F1)
    168. SendKeys.Send(Keys.F2)
    169. SendKeys.Send(Keys.F3)
    170. SendKeys.Send(Keys.F4)
    171. SendKeys.Send(Keys.F5)
    172. SendKeys.Send(Keys.F6)
    173. SendKeys.Send(Keys.F7)
    174. SendKeys.Send(Keys.F8)
    175. SendKeys.Send(Keys.F9)
    176. ElseIf ComboBox2.Text = "F - Leiste 6" Then
    177. SendKeys.Send(Keys.D6)
    178. SendKeys.Send(Keys.F1)
    179. SendKeys.Send(Keys.F2)
    180. SendKeys.Send(Keys.F3)
    181. SendKeys.Send(Keys.F4)
    182. SendKeys.Send(Keys.F5)
    183. SendKeys.Send(Keys.F6)
    184. SendKeys.Send(Keys.F7)
    185. SendKeys.Send(Keys.F8)
    186. SendKeys.Send(Keys.F9)
    187. ElseIf ComboBox2.Text = "F - Leiste 7" Then
    188. SendKeys.Send(Keys.D7)
    189. SendKeys.Send(Keys.F1)
    190. SendKeys.Send(Keys.F2)
    191. SendKeys.Send(Keys.F3)
    192. SendKeys.Send(Keys.F4)
    193. SendKeys.Send(Keys.F5)
    194. SendKeys.Send(Keys.F6)
    195. SendKeys.Send(Keys.F7)
    196. SendKeys.Send(Keys.F8)
    197. SendKeys.Send(Keys.F9)
    198. ElseIf ComboBox2.Text = "F - Leiste 8" Then
    199. SendKeys.Send(Keys.D8)
    200. SendKeys.Send(Keys.F1)
    201. SendKeys.Send(Keys.F2)
    202. SendKeys.Send(Keys.F3)
    203. SendKeys.Send(Keys.F4)
    204. SendKeys.Send(Keys.F5)
    205. SendKeys.Send(Keys.F6)
    206. SendKeys.Send(Keys.F7)
    207. SendKeys.Send(Keys.F8)
    208. SendKeys.Send(Keys.F9)
    209. ElseIf ComboBox2.Text = "F - Leiste 9" Then
    210. SendKeys.Send(Keys.D9)
    211. SendKeys.Send(Keys.F1)
    212. SendKeys.Send(Keys.F2)
    213. SendKeys.Send(Keys.F3)
    214. SendKeys.Send(Keys.F4)
    215. SendKeys.Send(Keys.F5)
    216. SendKeys.Send(Keys.F6)
    217. SendKeys.Send(Keys.F7)
    218. SendKeys.Send(Keys.F8)
    219. SendKeys.Send(Keys.F9)
    220. End If
    221. End Sub
    223. End Class

    Hab jetz nochmal umgeschrieben, aber wenn ioch jetz "Z" drücke, sollte es eig F1 bis F9 durchdrücken, aber das passiert nicht sondern es kommt diese Fehlermeldung:

    SendKeys kann nicht innerhalb der Anwendung ausgeführt werden, da diese Anwendung keine Windows-Meldungen verarbeitet. Ändern Sie die Anwendung so, dass sie Meldungen behandelt, oder verwenden Sie die SendKeys.SendWait-Methode.

    Der Code soeht jetz so aus:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Integer) As Short
    3. Function GetTaste(ByVal Taste As Integer) As Boolean
    4. If GetAsyncKeyState(Keys.Z) = -32767 Then
    5. Return True
    6. End If
    7. End Function
    8. Dim hotkeyThread As New Threading.Thread(AddressOf CheckKeyPressed)
    9. Sub CheckKeyPressed()
    10. Do
    11. If GetTaste(Keys.Z) = True Then
    12. SendKeys.Send(Keys.F1)
    13. SendKeys.Send(Keys.F2)
    14. SendKeys.Send(Keys.F3)
    15. SendKeys.Send(Keys.F4)
    16. SendKeys.Send(Keys.F5)
    17. SendKeys.Send(Keys.F6)
    18. SendKeys.Send(Keys.F7)
    19. SendKeys.Send(Keys.F8)
    20. SendKeys.Send(Keys.F9)
    21. End If
    22. Loop
    23. End Sub
    25. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    26. hotkeyThread.Start()
    27. Me.KeyPreview = True
    29. End Sub
    31. End Class