Tasten abfrage geht nicht gut!

  • VB.NET
  • .NET (FX) 1.0–2.0

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von ~blaze~.

    Tasten abfrage geht nicht gut!

    Guten Tag!
    Ich möchte gerne Aufzeichnen welche Tasten gedruckt wurden sind.
    Nun habe ich in Youtube.de einen Gutes Tutorial gefunden.
    Link:

    Das Überwachen der Tasteneingabe funktioniert NUR für Zahlen und Buchstaben!
    Aber leider nicht für Sonderzeichen, ich möchte gerne dass es auch das @ und € und das $ anzeigt.
    Ich habe hier unten mal den Code stehen.
    Im Code steht: Case 64 rtb1.Text += "@"
    aber leider erfolgt dieses nicht in der Ausgabe!
    Was ist an diesem Code falsch?
    Wer kann mir helfen? ?(
    Vielen Dank!

    Code

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Int32) As Int16
    4. Dim typein As Integer
    5. Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
    7. For logger = 1 To 255
    8. typein = GetAsyncKeyState(logger)
    9. If typein = -32767 Then
    10. Select Case logger
    11. Case 1
    12. rtb1.Text += "[LinksKlick]"
    13. Case 2
    14. rtb1.Text += "[RechtsKlick]"
    15. Case 3
    16. rtb1.Text += "[ACHTUNG!!!]"
    17. Case 4
    18. rtb1.Text += "[ACHTUNG!!!4]"
    19. Case 5
    20. rtb1.Text += "[ACHTUNG!!!5]"
    21. Case 6
    22. rtb1.Text += "[ACHTUNG!!6!]"
    23. Case 7
    24. rtb1.Text += "[ACHTUNG!!!7]"
    25. Case 8
    26. rtb1.Text += "[Backspace]"
    27. Case 9
    28. rtb1.Text += "[Tab]"
    29. Case 10
    30. rtb1.Text += "[ACHTUNG!!!10]"
    31. Case 11
    32. rtb1.Text += "[ACHTUNG!!!11]"
    33. Case 12
    34. rtb1.Text += "[ACHTUNG!!!12]"
    35. Case 13
    36. rtb1.Text += "[Enter]"
    37. Case 112
    38. rtb1.Text += "[F1]"
    39. Case 113
    40. rtb1.Text += "[F2]"
    41. Case 114
    42. rtb1.Text += "[F3]"
    43. Case 115
    44. rtb1.Text += "[F4]"
    45. Case 116
    46. rtb1.Text += "[F5]"
    47. Case 117
    48. rtb1.Text += "[F6]"
    49. Case 118
    50. rtb1.Text += "[F7]"
    51. Case 119
    52. rtb1.Text += "[F8]"
    53. Case 120
    54. rtb1.Text += "[F9]"
    55. Case 121
    56. rtb1.Text += "[F10]"
    57. Case 122
    58. rtb1.Text += "[F11]"
    59. Case 123
    60. rtb1.Text += "[F12]"
    61. Case 160
    62. rtb1.Text += ""
    63. Case 161
    64. rtb1.Text += ""
    65. Case 164
    66. rtb1.Text += "[Alt]"
    67. Case 165
    68. rtb1.Text += "[Alt]"
    69. Case 189
    70. rtb1.Text += "-"
    71. Case 187
    72. rtb1.Text += "+"
    73. Case 46
    74. rtb1.Text += "."
    75. Case 14
    76. rtb1.Text += "[ACHTUNG 14]"
    77. Case 15
    78. rtb1.Text += "[ACHTUNG 15]"
    79. Case 16
    80. rtb1.Text += "[Shift]"
    81. Case 17
    82. rtb1.Text += "[Strg]"
    83. Case 18
    84. rtb1.Text += "[Alt]"
    85. Case 19
    86. rtb1.Text += "[ACHTUNG 19]"
    87. Case 20
    88. rtb1.Text += "[Umstell.]"
    89. Case 21
    90. rtb1.Text += "[ACHTUNG 21]"
    91. Case 22
    92. rtb1.Text += "[ACHTUNG 22]"
    93. Case 23
    94. rtb1.Text += "[ACHTUNG 23]"
    95. Case 24
    96. rtb1.Text += "[ACHTUNG 24]"
    97. Case 25
    98. rtb1.Text += "[ACHTUNG 25]"
    99. Case 26
    100. rtb1.Text += "[ACHTUNG 26]"
    101. Case 27
    102. rtb1.Text += "[ACHTUNG 27]"
    103. Case 28
    104. rtb1.Text += "[ACHTUNG 28]"
    105. Case 29
    106. rtb1.Text += "[ACHTUNG 29]"
    107. Case 30
    108. rtb1.Text += "[ACHTUNG 30]"
    109. Case 31
    110. rtb1.Text += "[ACHTUNG 31]"
    111. Case 32
    112. rtb1.Text += " "
    113. Case 33
    114. rtb1.Text += "!"
    115. Case 34
    116. rtb1.Text = rtb1.Text + "´´"
    117. Case 35
    118. rtb1.Text += "#"
    119. Case 36
    120. rtb1.Text += "$"
    121. Case 37
    122. rtb1.Text += "%"
    123. Case 38
    124. rtb1.Text += "&"
    125. Case 39
    126. rtb1.Text += "'"
    127. Case 40
    128. rtb1.Text += "("
    129. Case 41
    130. rtb1.Text += ")"
    131. Case 42
    132. rtb1.Text += "*"
    133. Case 43
    134. rtb1.Text += "+"
    135. Case 44
    136. rtb1.Text += ","
    137. Case 45
    138. rtb1.Text += "-"
    139. Case 46
    140. rtb1.Text += "."
    141. Case 47
    142. rtb1.Text += "/"
    143. Case 48
    144. rtb1.Text += "0"
    145. Case 49
    146. rtb1.Text += "1"
    147. Case 50
    148. rtb1.Text += "2"
    149. Case 51
    150. rtb1.Text += "3"
    151. Case 52
    152. rtb1.Text += "4"
    153. Case 53
    154. rtb1.Text += "5"
    155. Case 54
    156. rtb1.Text += "6"
    157. Case 55
    158. rtb1.Text += "7"
    159. Case 56
    160. rtb1.Text += "8"
    161. Case 57
    162. rtb1.Text += "9"
    163. Case 58
    164. rtb1.Text += ":"
    165. Case 59
    166. rtb1.Text += ";"
    167. Case 60
    168. rtb1.Text += "<"
    169. Case 61
    170. rtb1.Text += "="
    171. Case 62
    172. rtb1.Text += ">"
    173. Case 63
    174. rtb1.Text += "?"
    175. Case 64
    176. rtb1.Text += "@"
    177. Case 65
    178. rtb1.Text += "a"
    179. Case 66
    180. rtb1.Text += "b"
    181. Case 67
    182. rtb1.Text += "c"
    183. Case 68
    184. rtb1.Text += "d"
    185. Case 69
    186. rtb1.Text += "e"
    187. Case 70
    188. rtb1.Text += "f"
    189. Case 71
    190. rtb1.Text += "g"
    191. Case 72
    192. rtb1.Text += "h"
    193. Case 73
    194. rtb1.Text += "i"
    195. Case 74
    196. rtb1.Text += "j"
    197. Case 75
    198. rtb1.Text += "k"
    199. Case 76
    200. rtb1.Text += "l"
    201. Case 77
    202. rtb1.Text += "m"
    203. Case 78
    204. rtb1.Text += "n"
    205. Case 79
    206. rtb1.Text += "o"
    207. Case 80
    208. rtb1.Text += "p"
    209. Case 81
    210. rtb1.Text += "q"
    211. Case 82
    212. rtb1.Text += "r"
    213. Case 83
    214. rtb1.Text += "s"
    215. Case 84
    216. rtb1.Text += "t"
    217. Case 85
    218. rtb1.Text += "u"
    219. Case 86
    220. rtb1.Text += "v"
    221. Case 87
    222. rtb1.Text += "w"
    223. Case 88
    224. rtb1.Text += "x"
    225. Case 89
    226. rtb1.Text += "y"
    227. Case 90
    228. rtb1.Text += "z"
    229. Case 91
    230. rtb1.Text += "[Win]"
    231. Case 92
    232. rtb1.Text += "[Win]"
    233. Case 93
    234. rtb1.Text += "]"
    235. Case 94
    236. rtb1.Text += "^"
    237. Case 95
    238. rtb1.Text += "_"
    239. Case 96
    240. rtb1.Text += "`"
    241. Case 97
    242. rtb1.Text += "a"
    243. Case 98
    244. rtb1.Text += "b"
    245. Case 99
    246. rtb1.Text += "c"
    247. Case 100
    248. rtb1.Text += "d"
    249. Case 101
    250. rtb1.Text += "e"
    251. Case 102
    252. rtb1.Text += "f"
    253. Case 103
    254. rtb1.Text += "g"
    255. Case 104
    256. rtb1.Text += "h"
    257. Case 105
    258. rtb1.Text += "i"
    259. Case 106
    260. rtb1.Text += "j"
    261. Case 107
    262. rtb1.Text += "k"
    263. Case 108
    264. rtb1.Text += "l"
    265. Case 109
    266. rtb1.Text += "m"
    267. Case 110
    268. rtb1.Text += "n"
    269. Case 111
    270. rtb1.Text += "o"
    271. Case 112
    272. rtb1.Text += "p"
    273. Case 113
    274. rtb1.Text += "q"
    275. Case 114
    276. rtb1.Text += "r"
    277. Case 115
    278. rtb1.Text += "s"
    279. Case 116
    280. rtb1.Text += "t"
    281. Case 117
    282. rtb1.Text += "u"
    283. Case 118
    284. rtb1.Text += "v"
    285. Case 119
    286. rtb1.Text += "w"
    287. Case 120
    288. rtb1.Text += "x"
    289. Case 121
    290. rtb1.Text += "y"
    291. Case 122
    292. rtb1.Text += "z"
    293. Case 123
    294. rtb1.Text += "{"
    295. Case 124
    296. rtb1.Text += "|"
    297. Case 125
    298. rtb1.Text += "}"
    299. Case 126
    300. rtb1.Text += "~"
    301. Case 127
    302. rtb1.Text += "[ACHTUNG 127]"
    303. Case 128
    304. rtb1.Text += "€"
    305. Case 129
    306. rtb1.Text += "[ACHTUNG 129]"
    307. Case 130
    308. rtb1.Text += "‚"
    309. Case 131
    310. rtb1.Text += "ƒ"
    311. Case 132
    312. rtb1.Text += "„"
    313. Case 133
    314. rtb1.Text += "…"
    315. Case 134
    316. rtb1.Text += "†"
    317. Case 135
    318. rtb1.Text += "‡"
    319. Case 136
    320. rtb1.Text += "ˆ"
    321. Case 137
    322. rtb1.Text += "[ACHTUNG 137]"
    323. Case 138
    324. rtb1.Text += "Š"
    325. Case 139
    326. rtb1.Text += "‹"
    327. Case 140
    328. rtb1.Text += "[ACHTUNG 140]"
    329. Case 141
    330. rtb1.Text += "[ACHTUNG 141]"
    331. Case 142
    332. rtb1.Text += "Ž"
    333. Case 143
    334. rtb1.Text += "[ACHTUNG 143]"
    335. Case 144
    336. rtb1.Text += "[ACHTUNG 144]"
    337. Case 145
    338. rtb1.Text += "‘"
    339. Case 146
    340. rtb1.Text += "’"
    341. Case 147
    342. rtb1.Text += """"
    343. Case 148
    344. rtb1.Text += """"
    345. Case 149
    346. rtb1.Text += "•"
    347. Case 150
    348. rtb1.Text += "–"
    349. Case 151
    350. rtb1.Text += "—"
    351. Case 152
    352. rtb1.Text += "˜"
    353. Case 153
    354. rtb1.Text += "™"
    355. Case 154
    356. rtb1.Text += "š"
    357. Case 155
    358. rtb1.Text += "›"
    359. Case 156
    360. rtb1.Text += "[ACHTUNG 155]"
    361. Case 157
    362. rtb1.Text += "[ACHTUNG 157]"
    363. Case 158
    364. rtb1.Text += "ž"
    365. Case 159
    366. rtb1.Text += "Ÿ"
    367. Case 160
    368. rtb1.Text += "[ACHTUNG 160]"
    369. Case 161
    370. rtb1.Text += "¡"
    371. Case 162
    372. rtb1.Text += ""
    373. Case 163
    374. rtb1.Text += ""
    375. Case 164
    376. rtb1.Text += "¤"
    377. Case 165
    378. rtb1.Text += "¥"
    379. Case 166
    380. rtb1.Text += "¦"
    381. Case 167
    382. rtb1.Text += "§"
    383. Case 168
    384. rtb1.Text += "¨"
    385. Case 169
    386. rtb1.Text += "©"
    387. Case 170
    388. rtb1.Text += "ª"
    389. Case 171
    390. rtb1.Text += "«"
    391. Case 172
    392. rtb1.Text += "¬"
    393. Case 173
    394. rtb1.Text += "[ACHTUNG 173]"
    395. Case 174
    396. rtb1.Text += "®"
    397. Case 175
    398. rtb1.Text += "¯"
    399. Case 176
    400. rtb1.Text += "°"
    401. Case 177
    402. rtb1.Text += "±"
    403. Case 178
    404. rtb1.Text += "²"
    405. Case 179
    406. rtb1.Text += "³"
    407. Case 180
    408. rtb1.Text += "´"
    409. Case 181
    410. rtb1.Text += "µ"
    411. Case 182
    412. rtb1.Text += "[ACHTUNG 182]"
    413. Case 183
    414. rtb1.Text += "."
    415. Case 184
    416. rtb1.Text += "¸"
    417. Case 185
    418. rtb1.Text += "¹"
    419. Case 186
    420. rtb1.Text += "ü"
    421. Case 187
    422. rtb1.Text += "»"
    423. Case 188
    424. rtb1.Text += ","
    425. Case 189
    426. rtb1.Text += ":"
    427. Case 190
    428. rtb1.Text += "."
    429. Case 191
    430. rtb1.Text += "¿"
    431. Case 192
    432. rtb1.Text += "ö"
    433. Case 193
    434. rtb1.Text += "Á"
    435. Case 194
    436. rtb1.Text += "Â"
    437. Case 195
    438. rtb1.Text += "Ã"
    439. Case 196
    440. rtb1.Text += "Ä"
    441. Case 197
    442. rtb1.Text += "Æ"
    443. Case 198
    444. rtb1.Text += "Ç"
    445. Case 199
    446. rtb1.Text += "È"
    447. Case 200
    448. rtb1.Text += "É"
    449. Case 201
    450. rtb1.Text += "Ê"
    451. Case 202
    452. rtb1.Text += "Ë"
    453. Case 203
    454. rtb1.Text += "Ì"
    455. Case 204
    456. rtb1.Text += "Í"
    457. Case 205
    458. rtb1.Text += "Í"
    459. Case 206
    460. rtb1.Text += "Î"
    461. Case 207
    462. rtb1.Text += "Ï"
    463. Case 208
    464. rtb1.Text += "Ð"
    465. Case 209
    466. rtb1.Text += "Ñ"
    467. Case 210
    468. rtb1.Text += "Ò"
    469. Case 211
    470. rtb1.Text += "Ó"
    471. Case 212
    472. rtb1.Text += "Ô"
    473. Case 213
    474. rtb1.Text += "Õ"
    475. Case 214
    476. rtb1.Text += "Ö"
    477. Case 215
    478. rtb1.Text += "×"
    479. Case 216
    480. rtb1.Text += "Ø"
    481. Case 217
    482. rtb1.Text += "Ù"
    483. Case 218
    484. rtb1.Text += "Ú"
    485. Case 219
    486. rtb1.Text += "Û"
    487. Case 220
    488. rtb1.Text += "Ü"
    489. Case 221
    490. rtb1.Text += "Ý"
    491. Case 222
    492. rtb1.Text += "ä"
    493. Case 223
    494. rtb1.Text += "ß"
    495. Case 224
    496. rtb1.Text += "à"
    497. Case 225
    498. rtb1.Text += "á"
    499. Case 226
    500. rtb1.Text += "â"
    501. Case 227
    502. rtb1.Text += "<"
    503. Case 228
    504. rtb1.Text += "ä"
    505. Case 229
    506. rtb1.Text += "æ"
    507. Case 230
    508. rtb1.Text += "ç"
    509. Case 231
    510. rtb1.Text += "è"
    511. Case 232
    512. rtb1.Text += "é"
    513. Case 233
    514. rtb1.Text += "ê"
    515. Case 234
    516. rtb1.Text += "ë"
    517. Case 235
    518. rtb1.Text += "ì"
    519. Case 236
    520. rtb1.Text += "í"
    521. Case 237
    522. rtb1.Text += "í"
    523. Case 238
    524. rtb1.Text += "î"
    525. Case 239
    526. rtb1.Text += "ï"
    527. Case 240
    528. rtb1.Text += "ð"
    529. Case 241
    530. rtb1.Text += "ñ"
    531. Case 242
    532. rtb1.Text += "ò"
    533. Case 243
    534. rtb1.Text += "ó"
    535. Case 244
    536. rtb1.Text += "ô"
    537. Case 245
    538. rtb1.Text += "õ"
    539. Case 246
    540. rtb1.Text += "ö"
    541. Case 247
    542. rtb1.Text += "÷"
    543. Case 248
    544. rtb1.Text += "ø"
    545. Case 249
    546. rtb1.Text += "ù"
    547. Case 250
    548. rtb1.Text += "ú"
    549. Case 251
    550. rtb1.Text += "û"
    551. Case 252
    552. rtb1.Text += "ü"
    553. Case 253
    554. rtb1.Text += "ý"
    555. Case 254
    556. rtb1.Text += "þ"
    557. Case 255
    558. rtb1.Text += "ÿ"
    559. End Select
    561. End If
    562. Next
    564. End Sub
    565. End Class
    Visual Basic.NET 8o
    MS-SQL     8o

Facebook
Telefonspende