Gampad tastendruck auslessen

Skilkor

Tach leute
ich mal wider
Ich habe eine frage bezüglich des auslessens von tasten.
Und ich Frage mich ob es nicht evt möglich währe den tastendruck eines GamePads auszulessen (Oder abzufangen)
In meinem falle ist es das GamePad "Saitek P380 Dual Analog"
Ist kein Hightech teil, doch für die verwendung von Nintendo 64/PS1 & PS2 Emulators reicht das ding alle mal

Mein vorhaben ist,ob es nicht möglich ist mit autoit die tastendrücke abzufangen und auf die tastatur um zu leiten.
Sprich. wen ich nach "Oben" auf dem Pad drücke soll er dafür die "W" taste drücken
"Links" = "D"
"Unten" = "S"
"Links" = "A"
usw...

Gibt es da möglichkeiten mit autoit dies zu machen???

Skilkor

L3viathan

Ich denke, du solltest erstmal gucken, ob es Software vom Hersteller dafür gibt, ich glaube kaum, dass eine AutoIt-Version noch flüssige Steuerung ermöglicht...

Skilkor

Eben aus diesem grund Frag ich ja da ich nicht bezüglich zusatz software nichts gefunden habe... nur kostenpflichtiges das Kompatible mit 100´000 anderen GamePads ist.

Gäb es den überhaupt ne Möglichkeit sowas zu machen?
Performance hin oder her
an der kann man ja immer ein bischen feilen

Skilkor

Edit:
Mit den verschiedenen Controller progs bei den Emulators Bekomm ich die "Name" teils angezeigt der tasten....
Kann das was Helfen??

(PS Es geht nich um die Emulators sondern darum normale pc games mit dem gampad zu spielen :D)

Rodny_le_lude

Hier haste n Plugin das sollte mit jedem Controller funktionieren der unter Windows erkannt wird, bei mir funkts mit meinem Joypad u. Joystick.

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

Local $joy,$coor,$h,$s,$msg

[/autoit] [autoit][/autoit] [autoit]

$joy = _JoyInit()

[/autoit] [autoit][/autoit] [autoit]

GUICreate("Joystick Test",300,300)
$h= GuiCtrlCreatelabel("",10,10,290,290)
GUISetState()

[/autoit] [autoit][/autoit] [autoit]

while 1
$msg = GUIGetMSG()
$coor = _GetJoy($joy,0)
$s = "Joystick(0):" & @CRLF & _
"X: " & $coor[0] & @CRLF & _
"Y: " & $coor[1] & @CRLF & _
"Z: " & $coor[2] & @CRLF & _
"R: " & $coor[3] & @CRLF & _
"U: " & $coor[4] & @CRLF & _
"V: " & $coor[5] & @CRLF & _
"POV: " & $coor[6] & @CRLF & _
"Buttons: " & $coor[7]
GUICtrlSetData($h,$s,1)
sleep(10)
if $msg = $GUI_EVENT_CLOSE Then Exitloop
WEnd

[/autoit] [autoit][/autoit] [autoit]

_JoyClose($joy)

[/autoit] [autoit][/autoit] [autoit]

;======================================
; _JoyInit()
;======================================
Func _JoyInit()
Local $joy
Global $JOYINFOEX_struct = "dword[13]"

[/autoit] [autoit][/autoit] [autoit]

$joy = DllStructCreate($JOYINFOEX_struct)
if @error Then Return 0
DllStructSet($joy,1,DllStructSize($joy),1);dwSize = sizeof(struct)
DllStructSet($joy,1,255,2) ;dwFlags = GetAll
return $joy
EndFunc

[/autoit] [autoit][/autoit] [autoit]

;======================================
; _GetJoy($lpJoy,$iJoy)
; $lpJoy Return from _JoyInit()
; $iJoy Joystick # 0-15
; Return Array containing X-Pos, Y-Pos, Z-Pos, R-Pos, U-Pos, V-Pos,POV
; Buttons down
;
; *POV This is a digital game pad, not analog joystick
; 65535 = Not pressed
; 0 = U
; 4500 = UR
; 9000 = R
; Goes around clockwise increasing 4500 for each position
;======================================
Func _GetJoy($lpJoy,$iJoy)
Local $coor,$ret

[/autoit] [autoit][/autoit] [autoit]

Dim $coor[8]
DllCall("Winmm.dll","int","joyGetPosEx",_
"int",$iJoy,_
"ptr",DllStructPtr($lpJoy))

[/autoit] [autoit][/autoit] [autoit]

if Not @error Then
$coor[0] = DllStructGet($lpJoy,1,3)
$coor[1] = DllStructGet($lpJoy,1,4)
$coor[2] = DllStructGet($lpJoy,1,5)
$coor[3] = DllStructGet($lpJoy,1,6)
$coor[4] = DllStructGet($lpJoy,1,7)
$coor[5] = DllStructGet($lpJoy,1,8)
$coor[6] = DllStructGet($lpJoy,1,11)
$coor[7] = DllStructGet($lpJoy,1,9)
EndIf

[/autoit] [autoit][/autoit] [autoit]

return $coor
EndFunc

[/autoit] [autoit][/autoit] [autoit]

;======================================
; _JoyClose($lpJoy)
; Free the memory allocated for the joystick struct
;======================================
Func _JoyClose($lpJoy)
DllStructFree($lpJoy)
EndFunc

[/autoit]

hulle

Ich würde es mal mit dem Programm Xpadder (http://www.xpadder.com/) probieren.

Falls du es versuchst mit Autoit umzusetzen könntest du evtl. die Prospeed.dll verwenden. Die hat auch Funktionen zum Gamepad, hab aber persönlich noch keine Erfahrung damit.

Skilkor

@ Rodny le lude
Danke erst einmal doch ich bekomm ein fehler wen ich es ausführen möchte, brauch ich dazu noch etwas zusätzlich?
Fehler

Zitat

C:\Users\***\Desktop\Scripte\Controller.au3 (62) : ==> Missing separator character after keyword.:
DllCall("Winmm.dll","int","joyGetPosEx",_
DllCall("Winmm.dll","int","joyGetPosEx",_^ ERROR

@hulle
Der Xpadder ist kostenpflichtig
auch wen es nur 7Euro sind xD

BTW, Ihr habt mich auf eine Idee gebracht, wegen dll´s
Die Emulators verwenden dll´s alls PlugIn´s
in den kategorien
Grafik
Pad
CDVD
und die PS2Emu noch
USB
FW
DEV9
Ich hab mir die Pad dlls angeschaut
die Imformativste war die LilyPad.dll
die ich mit dem Script von funkey ausgelssen habe.
Hier die funcs der dll

Spoiler anzeigen

[autoit]

[/autoit]

Ich habe noch die Functionen und so aufgeschrieben vll hilft das was mir den passenden tip zu geben
die Frage ist jetz nur, wie kann ich das verwenden??

Skilkor

Skilkor

Mag den Niemand Helfen??
Es geht mir doch eig nur um die verwendung der dll
da ich mir nicht sicher bin wie, da es ja auch nicht direkt ne normale dll ist (auch keine system dll)

Spoiler anzeigen

[autoit]

[/autoit]

Micha_he

Zitat von Skilkor

Zitat

C:\Users\***\Desktop\Scripte\Controller.au3 (62) : ==> Missing separator character after keyword.:
DllCall("Winmm.dll","int","joyGetPosEx",_
DllCall("Winmm.dll","int","joyGetPosEx",_^ ERROR

Hast Du es einmal versucht, mit einem Leerzeichen vor dem "_" in der ersten und zweiten Zeile des DllCall ?

Skilkor

ehm nein, aber nach der korektur kommt folgendes

Zitat

C:\Users\***\Desktop\Scripte\GamePad\pad_Plugin.au3 (39) : ==> Unknown function name.:
DllStructSet($joy,1 DllStructSize($joy),1)
DllStructSet($joy,1 ^ ERROR

Dabei handelt es ich um diesen abschnitt

Spoiler anzeigen

[autoit]

Func _JoyInit()
Local $joy
Global $JOYINFOEX_struct = "dword[13]"

[/autoit] [autoit][/autoit] [autoit]

$joy = DllStructCreate($JOYINFOEX_struct)
if @error Then Return 0
DllStructSet($joy,1 DllStructSize($joy),1);dwSize = sizeof(struct) dlls
DllStructSet($joy,1,255,2) ;dwFlags = GetAll
return $joy
EndFunc

[/autoit]

Spoiler anzeigen

[autoit]

DllStructSet($joy,1 DllStructSize($joy),1);dwSize = sizeof(struct) dlls
DllStructSet($joy,1,255,2) ;dwFlags = GetAll

[/autoit]

**autoBert**

in dem Skript von Rodny le lude fehlen Funktionen (warscheins included)

Code

>"C:\Programme\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "C:\Programme\AutoIt3\Examples\Tests\padTest.au3" /autoit3dir "C:\Programme\AutoIt3" /UserParams    
+>16:44:38 Starting AutoIt3Wrapper v.2.0.1.24    Environment(Language:0407  Keyboard:00000407  OS:WIN_XP/Service Pack 3  CPU:X86 OS:X86)
>Running AU3Check (1.54.19.0)  from:C:\Programme\AutoIt3
C:\Programme\AutoIt3\Examples\Tests\padTest.au3(39,43) : ERROR: DllStructSize(): undefined function.
    DllStructSet($joy,1,DllStructSize($joy)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Examples\Tests\padTest.au3(39,46) : ERROR: DllStructSet(): undefined function.
    DllStructSet($joy,1,DllStructSize($joy),1)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Examples\Tests\padTest.au3(64,38) : ERROR: DllStructPtr(): undefined function.
            "ptr",DllStructPtr($lpJoy)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Examples\Tests\padTest.au3(67,46) : ERROR: DllStructGet(): undefined function.
        $coor[0]    = DllStructGet($lpJoy,1,3)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Examples\Tests\padTest.au3(85,25) : ERROR: DllStructFree(): undefined function.
    DllStructFree($lpJoy)
~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Examples\Tests\padTest.au3 - 5 error(s), 0 warning(s)
!>16:44:38 AU3Check ended.rc:2
>Exit code: 0    Time: 3.062

Alles anzeigen

mfg (Auto)Bert

Rodny_le_lude

versuch das Script mal funkt 100%

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

;655535

[/autoit] [autoit][/autoit] [autoit]

$Form1 = GUICreate("Xbox 360 Controller", 300, 400)
$X0 = GUICtrlCreateLabel('', 10, 10, 30, 20)
$S0 = GUICtrlCreateSlider(40, 05, 250, 20, 0x0010)
$X1 = GUICtrlCreateLabel('', 10, 30, 30, 20)
$S1 = GUICtrlCreateSlider(40, 25, 250, 20, 0x0010)
$X2 = GUICtrlCreateLabel('', 10, 50, 30, 20)
$S2 = GUICtrlCreateSlider(40, 45, 250, 20, 0x0010)
$X3 = GUICtrlCreateLabel('', 10, 70, 30, 20)
$S3 = GUICtrlCreateSlider(40, 65, 250, 20, 0x0010)
$X4 = GUICtrlCreateLabel('', 10, 90, 30, 20)
$S4 = GUICtrlCreateSlider(40, 85, 250, 20, 0x0010)
$X5 = GUICtrlCreateLabel('', 10, 110, 30, 20)
$X6 = GUICtrlCreateLabel('', 10, 130, 30, 20)
$X7 = GUICtrlCreateLabel('', 10, 150, 30, 20)
GUICtrlCreateLabel('Buttons Pressed:', 10, 170, 280, 20)
$XB = GUICtrlCreateLabel('', 10, 190, 280, 20)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

$joy = _JoyInit()

[/autoit] [autoit][/autoit] [autoit]

While 1
Sleep(10)
$msg = GUIGetMsg()
$j = _GetJoy($joy, 0)
If $msg = $GUI_EVENT_CLOSE Then ExitLoop

[/autoit] [autoit][/autoit] [autoit]

;Get Array values from _GetJoy return and display
For $a = 0 To 7
$control = Execute('$X' & $a)
If GUICtrlRead($control) <> $j[$a] Then GUICtrlSetData($control, $j[$a])
Next

[/autoit] [autoit][/autoit] [autoit]

;Get buttons pressed and display
$Spressed = GetPressed($j[7])
If GUICtrlRead($XB) <> $Spressed Then GUICtrlSetData($XB, $Spressed)

[/autoit] [autoit][/autoit] [autoit]

;Set sliders to correct position
For $a = 0 To 4
SetSliders($j[$a], $a)
Next
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func GetPressed($Val)
$SButtons = ''
If BitAND($Val, 1) Then $SButtons &= '(A)'
If BitAND($Val, 2) Then $SButtons &= '(B)'
If BitAND($Val, 4) Then $SButtons &= '(X)'
If BitAND($Val, Then $SButtons &= '(Y)'
If BitAND($Val, 16) Then $SButtons &= '(LB)'
If BitAND($Val, 32) Then $SButtons &= '(RB)'
If BitAND($Val, 64) Then $SButtons &= '(Back)'
If BitAND($Val, 128) Then $SButtons &= '(Start)'
If BitAND($Val, 256) Then $SButtons &= '(LS)'
If BitAND($Val, 512) Then $SButtons &= '(RS)'
Return $SButtons
EndFunc ;==>GetPressed

[/autoit] [autoit][/autoit] [autoit]

Func SetSliders($Val, $Slide)
$control = Execute('$S' & $Slide)
If $Val = 65535 Then
GUICtrlSetData($control, 0)
ElseIf $Val = 0 Then
GUICtrlSetData($control, 100)
Else
GUICtrlSetData($control, ((65535 - $Val) / 65535) * 100)
EndIf
EndFunc ;==>SetSliders

[/autoit] [autoit][/autoit] [autoit]

;======================================
; _JoyInit()
;======================================
Func _JoyInit()
Local $joy
Global $JOYINFOEX_struct = "dword[13]"
$joy = DllStructCreate($JOYINFOEX_struct)
If @error Then Return 0
DllStructSetData($joy, 1, DllStructGetSize($joy), 1);dwSize = sizeof(struct)
DllStructSetData($joy, 1, 255, 2) ;dwFlags = GetAll
Return $joy
EndFunc ;==>_JoyInit

[/autoit] [autoit][/autoit] [autoit]

;======================================
; _GetJoy($lpJoy,$iJoy)
; $lpJoy Return from _JoyInit()
; $iJoy Joystick # 0-15
; Return Array containing X-Pos, Y-Pos, Z-Pos, R-Pos, U-Pos, V-Pos,POV
; Buttons down
;
; *POV This is a digital game pad, not analog Joystick
; 65535 = Not pressed
; 0 = U
; 4500 = UR
; 9000 = R
; Goes around clockwise increasing 4500 for each position
;======================================
Func _GetJoy($lpJoy, $iJoy)
Local $coor, $ret
Dim $coor[8]
DllCall("Winmm.dll", "int", "joyGetPosEx", _
"int", $iJoy, _
"ptr", DllStructGetPtr($lpJoy))
If Not @error Then
$coor[0] = DllStructGetData($lpJoy, 1, 3)
$coor[1] = DllStructGetData($lpJoy, 1, 4)
$coor[2] = DllStructGetData($lpJoy, 1, 5)
$coor[3] = DllStructGetData($lpJoy, 1, 6)
$coor[4] = DllStructGetData($lpJoy, 1, 7)
$coor[5] = DllStructGetData($lpJoy, 1,
$coor[6] = DllStructGetData($lpJoy, 1, 11)
$coor[7] = DllStructGetData($lpJoy, 1, 9)
EndIf
Return $coor
EndFunc ;==>_GetJoy

[/autoit]

Skilkor

Joa das funktioniert ich versuch mal das Script richtig zu verstehen und evt ein neues zuschreiben das mit der LilyPad.dll fungiert.
Wen ich dran scheitere (Wen dan nur weill ich niemand finde der mit das mit dem verwenden der dll´s erläutert) hab ich ja das noch.

Thx @ all for helping me