Gta San Andreas keybinder Frage

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von schroffl.

    Gta San Andreas keybinder Frage

    Guten Abend,
    ich möchte mir ein Keybinder mir VB machen (VB ist neuland für mich :D)
    Und zwar möchte ich das ich bei Taste meine eigene Taste auswählen kann und bei Aktion mein eigenen Text.
    Das er in Game wenn ich die Taste z. B. n drücke das dann "/me lacht." abgesendet wird.


    mfg
    N3xiz

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

    Für SA:MP gibt es extra eine API, die Entwicklung wurde zwar eingestellt aber man kann sie trotzdem noch runterladen.
    Falls du noch Hilfe brauchst bezüglich der API kannst du mir gerne 'ne PN schreiben.
    Ich hab' mich selbst schon mit der API beschäftigt und einen funktionierenden Keybinder hochgezogen.
    Zwar nichts besonderes, aber... es hat funktioniert ;)

    Gruß
    schroffl

    Du machst Hotkeys auf die Tasten:
    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    3. Public Class Form1
    5. Public Const MOD_ALT As Integer = &H1 'Alt key
    6. Public Const WM_HOTKEY As Integer = &H312
    8. <DllImport("User32.dll")> _
    9. Public Shared Function RegisterHotKey(ByVal hwnd As IntPtr, _
    10. ByVal id As Integer, ByVal fsModifiers As Integer, _
    11. ByVal vk As Integer) As Integer
    12. End Function
    14. <DllImport("User32.dll")> _
    15. Public Shared Function UnregisterHotKey(ByVal hwnd As IntPtr, _
    16. ByVal id As Integer) As Integer
    17. End Function
    19. Private Sub Form1_Load(ByVal sender As System.Object, _
    20. ByVal e As System.EventArgs) Handles MyBase.Load
    21. RegisterHotKey(Me.Handle, 1, MOD_ALT, Keys.F1)
    22. '...
    23. End Sub
    25. Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
    26. If m.Msg = WM_HOTKEY Then
    27. Dim id As IntPtr = m.WParam
    28. Select Case (id.ToString)
    29. Case "1"
    30. 'An SA:MP senden
    31. End Select
    32. End If
    33. MyBase.WndProc(m)
    34. End Sub
    36. Private Sub Form1_FormClosing(ByVal sender As System.Object, _
    37. ByVal e As System.Windows.Forms.FormClosingEventArgs) _
    38. Handles MyBase.FormClosing
    39. UnregisterHotKey(Me.Handle, 1)
    40. End Sub
    42. End Class


    Und dann sendest du deinen Text an SA:MP: (ich glaube das geht irgenwie so)

    VB.NET-Quellcode

    1. My.Computer.Keyboard.SendKeys("t/lachen")

Facebook
Telefonspende