SAMP Keybinder mit Visual Basic

JohnsonC · 29. September 2014

Hallo,

ich habe vor ein paar Tagen mal einen Keybinder in Visual Basic 2010 Express geschrieben. Wenn ich ihm im Editor oder Worddokument nutze geht er super.
Wenn ich ihn jedoch in SAMP verwenden will, geht er nicht. Er öffnet also weder die Textzeile noch schreibt er hinein (z.B. /lock oder so).

An was kann das liegen?

Ich muss dazusagen, dass ich erst seit wenigen Wochen VB programmiere.

Danke schon mal.

Kinimod · 29. September 2014

Eventuell Code oder sollen wir den Fehler raten?

tmcyrix · 29. September 2014

Dumme Frage aber benutzt du auch die SAMP API ?

JohnsonC · 29. September 2014

Zitat von ICookie

Dumme Frage aber benutzt du auch die SAMP API ?

Nein nutze ich nicht. Muss man die denn zwangsläufig nutzen?

Ich habe mich mit diesem Tutorial mal herangetastet: Einfachen Keybinder erstellen [VisualBasic]

Kinimod · 29. September 2014

Du kannst natürlich auch eine eigene API programmieren, aber das denke ich mal, wirst Du noch nicht hinbekommen.
Ohne diese API kansnt Du also nicht auf die samp.dll zugreifen.

linux_ · 29. September 2014

http://www.gta-api.de

Da Du ja Kenntnisse hast, kannst Du ja die Headerfile für VB machen.

JohnsonC · 29. September 2014

Ich habe mit der API Null Ahnung. Habe mal ein bisschen Google befragt und habe jetzt folgenden Code:

Code

Public Class Form1


    Private Declare Function SendCommand Lib "API.dll" Alias "API_SendChat" (ByVal Text As String) As Boolean


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


    End Sub


    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If (e.KeyCode = Keys.S) Then
            SendCommand("tHallo")
        End If
    End Sub

End Class

Alles anzeigen

Wohin muss ich denn genau mit der API und welche muss ich nehmen (*.ddl,*.h,*.lib)?

Kinimod · 29. September 2014

Die API (nur die .dll) kommt in das Verzeichnis, in welchem sich die ausführbare Datei befindet.
Der Rest der Dateien sind für andere Programmiersprachen, bspw. c++.

Kleiner Tipp: Nenn die Funktion eher "SendChat" oder "SendText", weil Du damit nicht nur Befehle senden kannst, sondern auch normalen Chatinhalt hinzufügen kannst.
Außerdem musst Du kein "t" mitsenden. Die Funktion kommuniziert direkt mit der samp.dll, die Chatbox wird kein einziges Mal verwendet.

JohnsonC · 29. September 2014

Ich habe jetzt das mit dem gleichen Code gemacht (SendCommand zu SendChat umbenannt). Die API mit der Keybinder.exe in einen eigenen Ordner verschoben und als Admin ausgeführt. Wenn ich jetzt inGame 'S' drücke kommt nicht der Text "Hallo"...

Kinimod · 29. September 2014

Sehe gerade, dass die Deklaration falsch ist:

Code

Private Declare Function SendChat Lib "API.dll" Alias "API_SendChat" (ByVal Text As String) As Integer

So müsste es passen.

JohnsonC · 29. September 2014

Irgendwie tut sich einfach nichts...

Hier nochmal der ganze Code:

VB Code

Code

Public Class Form1    Private Declare Function SendChat Lib "API.dll" Alias "API_SendChat" (ByVal Text As String) As Integer    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load    End Sub    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown        If (e.KeyCode = Keys.P) Then            SendChat("Hallo")        End If    End Sub

VB Code

breadfish.de 12. März 2022