Gamepad Tool

11/06/2013 19:30 Huibuh2010#1
Moin Moin,

ich würde gern ein Tool programmieren um bei Fifa nicht AFK zugehen.
Ich habe schon ein Code gefunden, um den Input der einzelnen Buttons/Achsen auszulesen, nun weiss ich nicht wie man ein Befehl sendet das Achse X Postition 500 z.B. Fifa übergibt ohne das, dass Tool den Focus hat.
11/06/2013 19:36 tolio#2
[Only registered and activated users can see links. Click Here To Register...]
oder
[Only registered and activated users can see links. Click Here To Register...]

sollten in der regel reichen
11/06/2013 20:10 Huibuh2010#3
Ja Sendkeys dachte ich mir auch schon leider weiss ich nicht wie man ein Achsenwert senden kann, eine Taste ist no Problem aber die Achse X z.B. weiss ich leider nicht.
11/06/2013 21:05 tolio#4
musste mal schauen wie die werte aussehen wenn sowas gesendet wird und es dann nachbauen
11/06/2013 21:11 Huibuh2010#5
Quote:
Originally Posted by tolio View Post
musste mal schauen wie die werte aussehen wenn sowas gesendet wird und es dann nachbauen
Mh dafür steck ich nicht tief genug in der Materie drin.
Trotzdem Danke

Edit: Habe es eben noch mit diesem Code probiert, da Sendkeys in Fifa geblockt werden, leider diese Anweisung auch. Funktioniert bei Notepad etc... nur nicht bei Fifa :(

Quote:
Imports System.Runtime.InteropServices

Public Class Form1

<DllImport("user32.dll", CallingConvention:=CallingConvention.StdCall, _
CharSet:=CharSet.Unicode, EntryPoint:="keybd_event", _
ExactSpelling:=True, SetLastError:=True)> _
Public Shared Sub keybd_event(ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
End Sub

Const KEYEVENTF_KEYUP As Byte = &H2

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
keybd_event(Keys.Right, 0, 0, 0) ' Generates a KEY_DOWN
keybd_event(Keys.Right, 0, KEYEVENTF_KEYUP, 0) ' Generates a KEY_UP
End Sub

End Class