Tastatur Hook Problem

Student · 27. März 2012, 20:39

Hi, erstmal

Also ich habe an einen einfachen Keybinder für ein Spiel gewagt und nun habe ich ein Problem.
Ich möchte das es Tastenkombis unterstützt. Also z.B. Strg+1
Hab auch was probiert doch es buggt. Wenn ich Strg+1 drücke, dann bleibt Strg gedrückt oder ähnlich. -->buggs

Wäre nett, wenn mir jemand hilft.
Gruß

Mein Code

Spoiler anzeigen

VB.NET-Quellcode

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
Private Const Key_STRG As Integer = &H2
Protected Overrides Sub WndProc(ByRef m As Message)
If m.Msg = WM_HOTKEY Then
Select Case m.WParam
Case 1
SendKeys.Send("t")
UnRegisterAll()
RegisterHotKey(Me.Handle, 2, Key_NONE, Keys.Enter)
RegisterHotKey(Me.Handle, 3, Key_NONE, Keys.Escape)
Case 2
SendKeys.Send("{ENTER}")
RegisterAll()
UnregisterHotKey(Me.Handle, 2)
UnregisterHotKey(Me.Handle, 3)
Case 3
SendKeys.Send("{Escape}")
RegisterAll()
UnregisterHotKey(Me.Handle, 2)
UnregisterHotKey(Me.Handle, 3)
Case 4
SendKeys.Send("bla")
Case 5
SendKeys.Send("lol")
End Select
End If
If m.Msg = WM_HOTKEY And Key_STRG Then
Select Case m.WParam
Case 6
SendKeys.Send("rofl")
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
UnregisterHotKey(Me.Handle, 1)
UnregisterHotKey(Me.Handle, 2)
UnregisterHotKey(Me.Handle, 3)
UnregisterHotKey(Me.Handle, 4)
UnregisterHotKey(Me.Handle, 5)
UnregisterHotKey(Me.Handle, 6)
End Sub
Private Sub UnRegisterAll()
UnregisterHotKey(Me.Handle, 1)
UnregisterHotKey(Me.Handle, 2)
UnregisterHotKey(Me.Handle, 3)
UnregisterHotKey(Me.Handle, 4)
UnregisterHotKey(Me.Handle, 5)
UnregisterHotKey(Me.Handle, 6)
End Sub
Private Sub RegisterAll()
RegisterHotKey(Me.Handle, 1, Key_NONE, Keys.T)
RegisterHotKey(Me.Handle, 2, Key_NONE, Keys.Enter)
RegisterHotKey(Me.Handle, 3, Key_NONE, Keys.Escape)
RegisterHotKey(Me.Handle, 4, Key_NONE, Keys.D1)
RegisterHotKey(Me.Handle, 5, Key_NONE, Keys.D2)
RegisterHotKey(Me.Handle, 6, Key_STRG, Keys.D1)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RegisterHotKey(Me.Handle, 1, Key_NONE, Keys.T)
RegisterHotKey(Me.Handle, 4, Key_NONE, Keys.D1)
RegisterHotKey(Me.Handle, 5, Key_NONE, Keys.D2)
RegisterHotKey(Me.Handle, 6, Key_STRG, Keys.D1)
End Sub
End Class

ErfinderDesRades · 27. März 2012, 21:13

probierma RegisterHotkey aus

Student · 29. März 2012, 18:38

Könnte mir das jemand ins VB2010 übersetzen?
Ich bin noch nicht so erfahren damit.

RodFromGermany · 30. März 2012, 07:13

Student schrieb:

Könnte mir das jemand ins VB2010 übersetzen?

Was läuft nicht unter VB2010?

ErfinderDesRades · 30. März 2012, 09:25

habichihm schon auf PM-Anfrage geantwortet, dass das Teil ohne Änderungen auch auf 2010 laufen müsste.

RodFromGermany · 30. März 2012, 09:29

Anfängerproblem.

@Student: Lerne die Grundlagen. :thumbsup:

Student · 31. März 2012, 23:32

Ich verstehe den Code nicht

Wie kann Ich z.B. die Taste "1" registrieren sodass bei der Betätigung eine MsgBox erscheint?

ErfinderDesRades · 1. April 2012, 00:37

wie sieht den die Register-Methode aus? was erwartet die als argument?

RodFromGermany · 1. April 2012, 10:58

Student schrieb:

Ich verstehe den Code nicht

Hast Du irgendwoher C&P-Code ergattert und verstehst ihn nun nicht?

RodFromGermany schrieb:

@Student: Lerne die Grundlagen.

Dazu gehört auch, sich über API-Fun ktionen im Internet, z.B. bei Frau Google, zu informieren.

Student · 9. April 2012, 00:23

So bin ein wenig weiter gekommen ..
Habs jetzt mit den Tastenkombinationen hinbekommen...
Nun möchte ich, dass wenn der Chat im Spiel mit t geöffnet wird und ich z.B. "hgw" schreibe,
der Keybinder automatisch "Herzlichen Glückwunsch" ausgibt..
Was musss ich dafür machen?

ErfinderDesRades · 9. April 2012, 07:08

dazu musste etwas proggen, was "hgw" erkennt und dann stattdessen "Herzlichen Glückwunsch" verschickt. Was soll dir ein Keybinder dazu helfen?

Student · 9. April 2012, 13:16

Ich versuche einen Keybinder zu proggen, für ein Spiel. Der soll diese Funktionen haben.
Wie mache ich das jetzt mit dem hgw?

ErfinderDesRades · 9. April 2012, 13:18

das kann ein keybinder nicht

Student · 9. April 2012, 13:56

Warum sollte das nicht gehen??! ó.Ó
Ich muss nur nachdem der Chat geöffnet wird alles registrieren und in eine Variable packen.
Dann vergleichen ob varriable = "hgw" und dann "Herzlichen Glückwunsch" schreiben...

Edit:
hab mir deine Funktion ein wenig angeschaut und da ist es schon drin.
hier ein wenig angepass vll fehlehaft.. es soll ja an am spiel fenster funktionieren

VB.NET-Quellcode

Private Sub frmRegisterHotKey_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles MyBase.KeyDown
_Proposed = e.KeyData
var &= _Proposed.ToString
End Sub

ErfinderDesRades · 9. April 2012, 14:02

also was ich unter keybinder verstehe verarbeitet immer genau einen Tastendruck. "hgw" sind aber drei.

Student · 9. April 2012, 22:01

ErfinderDesRades schrieb:

also was ich unter keybinder verstehe verarbeitet immer genau einen Tastendruck. "hgw" sind aber drei.

Deine Meinung ist falsch..
Siehe da

Hab eben gemerkt, dass mein Problem seit dem ersten Post nicht gelöst wurde auch nicht mit deiner Funktion.
Bei dem Hotkey Strg+1 soll es z.B Sendkeys.Send("bla") ausführen, doch dann buggt es irgendwie..

SystemUnknow · 9. April 2012, 22:04

Wenn du Tastenkombinationen von Fremde Anwendung kennst, dann kannst mit Hilfe API FUnktionen die Tasten an diese Anwendung/Fenster senden. Im Fenster wird dann die vordefinierte Aktion ausgeführt.

Tastatur Hook Problem

Tastatur Hook Problem

VB.NET-Quellcode

Student schrieb:

Student schrieb:

RodFromGermany schrieb:

VB.NET-Quellcode

ErfinderDesRades schrieb:

Tags

Ähnliche Themen

3 Benutzer haben hier geschrieben