Keybinder Hilfe

  • VB.NET

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

    Keybinder Hilfe

    Guten Tag Community,

    Ich kenn mich mit VB 2010 sehr wenig aus und benutze diesen Code(oder diesen Teil) um keys in meinem Keybinder zu senden.


    If GetAsyncKeyState(Keys.Z) Then
    SendKeys.Send(t.Text)
    SendKeys.SendWait(zoll.Text)
    SendKeys.Send(EnterTaste.Text)
    End If

    Was kann Ich machen Damit Ich verbindungen Reinmachen kann?

    Also Z+C dann schickt er die Zeilen?

    Willkommen im Forum. :thumbup:
    Vielleicht beschreibst Du mal genau, was Du eigentlich willst.
    Was soll passieren, wenn die Z-Taste gedrückt ist?
    Was soll nicht passieren?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @maxasoft :
    Kann es sein, dass Du dies meinst:

    VB.NET-Quellcode

    1. If e.KeyCode = Keys.P OrElse e.KeyCode = Keys.D1 Then
    2. ' ...
    3. End If
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hallo,

    Hab mir anders beholfen jetzt bin Ich auf ein Neues Problem gestoßen.

    Nun kämpfe Ich mit dem Problem das wenn ich Ingame(Spiel) t drücke und zum Bsp. Z schreibe schreibt er dass:
    Achtung Zt/zoll
    Eigentlich aber will ich das schreiben
    Achtung Zollkontrolle.
    Kann man das Umgehen?
    Ich hab einiges schon ausprobiert 2. Ticker reingemacht der den Ersten ausmacht und wenn man Enter drückt wieder anmacht und Checkboxen und Radiobuttons aber Ich komm zu keinem Ergebnis...
    Ich war schon soweit das er nix schreibt wenn die Checkbox zum Bsp. nicht mehr an ist aber sobald man Enter(wieder anmachen drückt) schreibt er dann alle Keybinds aufeinmal -.-

    Das ist mein Code:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Integer) As Short
    5. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    9. If OnOff.Checked = True Then
    11. If GetAsyncKeyState(Keys.M) Then
    12. SendKeys.Send(t.Text)
    13. SendKeys.SendWait(motor.Text)
    14. SendKeys.Send(EnterTaste.Text)
    15. SendKeys.Send(t.Text)
    16. SendKeys.SendWait(licht.Text)
    17. SendKeys.Send(EnterTaste.Text)
    18. End If
    20. If GetAsyncKeyState(Keys.Z) Then
    21. SendKeys.Send(t.Text)
    22. SendKeys.SendWait(zoll.Text)
    23. SendKeys.Send(EnterTaste.Text)
    24. End If
    26. If GetAsyncKeyState(Keys.P) Then
    27. SendKeys.Send(t.Text)
    28. SendKeys.SendWait(punkte.Text)
    29. SendKeys.Send(EnterTaste.Text)
    30. End If
    32. If GetAsyncKeyState(Keys.LShiftKey) Then
    33. If GetAsyncKeyState(Keys.O) Then
    34. SendKeys.Send(t.Text)
    35. SendKeys.SendWait(zoll.Text)
    36. SendKeys.Send(EnterTaste.Text)
    37. End If
    38. End If
    40. End If
    42. End Sub
    44. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    46. If GetAsyncKeyState(Keys.T) Then
    47. OnOff.Checked = False
    48. End If
    49. If GetAsyncKeyState(Keys.Enter) Then
    50. OnOff.Checked = True
    51. End If
    53. End Sub
    54. End Class

    Mr. Chuffy schrieb:

    VB.NET-Quellcode

    1. SendKeys.Send(t.Text)
    2. SendKeys.SendWait(zoll.Text)
    3. SendKeys.Send(EnterTaste.Text)
    Mach da mal

    VB.NET-Quellcode

    1. SendKeys.SendWait(t.Text)
    2. SendKeys.SendWait(zoll.Text)
    3. SendKeys.SendWait(EnterTaste.Text)
    draus.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Wie äußert sich das Nicht-funktionieren genau?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ich glaube, das liegt am Timer.
    Du musst den Timer sperren, wenn Du in der Prozedur bist.
    Probier mal dies:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    2. If Not OnOff.Checked Then
    3. Return
    4. End If
    6. Timer1.Enabled = False
    8. If GetAsyncKeyState(Keys.M) Then
    9. SendKeys.Send(t.Text)
    10. SendKeys.SendWait(motor.Text)
    11. SendKeys.Send(EnterTaste.Text)
    12. SendKeys.Send(t.Text)
    13. SendKeys.SendWait(licht.Text)
    14. SendKeys.Send(EnterTaste.Text)
    15. End If
    17. If GetAsyncKeyState(Keys.Z) Then
    18. SendKeys.Send(t.Text)
    19. SendKeys.SendWait(zoll.Text)
    20. SendKeys.Send(EnterTaste.Text)
    21. End If
    23. If GetAsyncKeyState(Keys.P) Then
    24. SendKeys.Send(t.Text)
    25. SendKeys.SendWait(punkte.Text)
    26. SendKeys.Send(EnterTaste.Text)
    27. End If
    29. If GetAsyncKeyState(Keys.LShiftKey) Then
    30. If GetAsyncKeyState(Keys.O) Then
    31. SendKeys.Send(t.Text)
    32. SendKeys.SendWait(zoll.Text)
    33. SendKeys.Send(EnterTaste.Text)
    34. End If
    35. End If
    37. Timer1.Enabled = True
    38. End Sub
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende