Beiträge von Skilkor

  • LotW Soundboard

    Zitat

    Von autoBert
    du tippst wohl gerne?


    Jau ^^ und bin auch zimlich schnell darin :D
    Was das Kürzen angeht :D
    Sagte ich ja, dass man es zu 100% noch kürzen kann ^^

    Allso was die musiktitel angeht.
    wie will ich das sagen, ich hab meine Viedeo samlang durchforstet und bin auf das aalte Relikt Video Lord of the Weed gestossen. da kahm mir die Idee mit dem Soundboard ^^ und hab das Video zu nem mp3 Convertiert. im video sah ich kein Copiroght.ich schuas mir abernochmals an
    Was ich bei den buttons noch machenkönnte sind verschiedene grüntöne verwenden :D

    Skilkor

  • LotW Soundboard

    Hallo Liebe User

    Ich hab mir mal Spasseshalber ein Lord of the Weed Soundboard gebasstelt.
    Auf die nur einfachste art und weise :D
    Man könnts evt noch bündel / den Code kleiner machen was für mich aber nicht so sinn und zwer ist.

    Es soll ein kleines Bsp. sein fürn soundwidergabe und GUI Farben
    Auf jeden ist es funny ^^

    Anregungen einfach mitteilen :D
    Code / exe und co befinden sich in der .rar datei

    Skilkor

    (leider muss ichn Megaupload link angeben,da dass .rar file fürs board zu gross ist (3,71mb))
    Link = LotW
    Hier währ der Code

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### Hauptfenster
    $Form = GUICreate("LotW Soundboard", 630, 630, 192, 124)
    GUISetBkColor(0x000000)
    $Pic = GUICtrlCreatePic(@ScriptDir & "\LotW.jpg", 0, 240, 636, 404, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    $Button1 = GUICtrlCreateButton("Überraschung", 8, 8, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button2 = GUICtrlCreateButton("MultiKill", 8, 40, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button3 = GUICtrlCreateButton("Bierschiss", 8, 72, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button4 = GUICtrlCreateButton("Fett", 8, 104, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button5 = GUICtrlCreateButton("Auf dem Land", 8, 136, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button6 = GUICtrlCreateButton("Mukke", 8, 168, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button7 = GUICtrlCreateButton("Hinter den Ohren", 8, 200, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button8 = GUICtrlCreateButton("Durchziehen", 136, 8, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button9 = GUICtrlCreateButton("Schnee im Sommer", 136, 40, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button10 = GUICtrlCreateButton("Träume", 136, 72, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button11 = GUICtrlCreateButton("Alte Säcke", 136, 104, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button12 = GUICtrlCreateButton("Puff", 136, 136, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button13 = GUICtrlCreateButton("Gamma Gandalf", 136, 168, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button14 = GUICtrlCreateButton("Verarschen", 136, 200, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button15 = GUICtrlCreateButton("Drogenfahndung", 264, 8, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button16 = GUICtrlCreateButton("Ich hab alles", 264, 40, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button17 = GUICtrlCreateButton("Muff", 264, 72, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button18 = GUICtrlCreateButton("Aufs Mowl", 264, 104, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button19 = GUICtrlCreateButton("Ultra Zauberer", 264, 136, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button20 = GUICtrlCreateButton("Wacken", 264, 168, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button21 = GUICtrlCreateButton("Der Teufel", 264, 200, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button22 = GUICtrlCreateButton("Dorfnutte", 392, 8, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button23 = GUICtrlCreateButton("Kluger Puntsher", 392, 40, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button24 = GUICtrlCreateButton("Gott", 392, 72, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button25 = GUICtrlCreateButton("Kopfnuss", 392, 104, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button26 = GUICtrlCreateButton("Mein Ring", 392, 136, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button27 = GUICtrlCreateButton("Jamaika", 392, 168, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button28 = GUICtrlCreateButton("DROGEN!!", 392, 200, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    GUISetState(@SW_SHOW)
    #EndRegion ### Hauptfenster

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

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

    Case $Button1
    SoundPlay(@ScriptDir & "\Sound\01-Überraschung.mp3",1)
    Case $Button2
    SoundPlay(@ScriptDir & "\Sound\02-MiltiKill.mp3",1)
    Case $Button3
    SoundPlay(@ScriptDir & "\Sound\03-Bierschiss.mp3",1)
    Case $Button4
    SoundPlay(@ScriptDir & "\Sound\04-Fett.mp3",1)
    Case $Button5
    SoundPlay(@ScriptDir & "\Sound\05-Auf dem Land.mp3",1)
    Case $Button6
    SoundPlay(@ScriptDir & "\Sound\06-Mukke.mp3",1)
    Case $Button7
    SoundPlay(@ScriptDir & "\Sound\07-Hinter den Ohren.mp3",1)
    Case $Button8
    SoundPlay(@ScriptDir & "\Sound\08-Durchziehen.mp3",1)
    Case $Button9
    SoundPlay(@ScriptDir & "\Sound\09-Schnee im Sommer.mp3",1)
    Case $Button10
    SoundPlay(@ScriptDir & "\Sound\10-Träume.mp3",1)
    Case $Button11
    SoundPlay(@ScriptDir & "\Sound\11-Alte Säcke.mp3",1)
    Case $Button12
    SoundPlay(@ScriptDir & "\Sound\12-Puff.mp3",1)
    Case $Button13
    SoundPlay(@ScriptDir & "\Sound\13-Gamma Gandalf.mp3",1)
    Case $Button14
    SoundPlay(@ScriptDir & "\Sound\14-Verarschen.mp3",1)
    Case $Button15
    SoundPlay(@ScriptDir & "\Sound\15-Drogenfahndung.mp3",1)
    Case $Button16
    SoundPlay(@ScriptDir & "\Sound\16-Ich hab alles.mp3",1)
    Case $Button17
    SoundPlay(@ScriptDir & "\Sound\17-Stinkt.mp3",1)
    Case $Button18
    SoundPlay(@ScriptDir & "\Sound\18-Aufs Mowl.mp3",1)
    Case $Button19
    SoundPlay(@ScriptDir & "\Sound\19-Ultra Zauberer.mp3",1)
    Case $Button20
    SoundPlay(@ScriptDir & "\Sound\20-Wacken.mp3",1)
    Case $Button21
    SoundPlay(@ScriptDir & "\Sound\21-Der Teufel.mp3",1)
    Case $Button22
    SoundPlay(@ScriptDir & "\Sound\22-Dorfnutte.mp3",1)
    Case $Button23
    SoundPlay(@ScriptDir & "\Sound\23-Kluger Puntscher.mp3",1)
    Case $Button24
    SoundPlay(@ScriptDir & "\Sound\24-Gott.mp3",1)
    Case $Button25
    SoundPlay(@ScriptDir & "\Sound\25-Kopfnuss.mp3",1)
    Case $Button26
    SoundPlay(@ScriptDir & "\Sound\26-Mein Ring.mp3",1)
    Case $Button27
    SoundPlay(@ScriptDir & "\Sound\27-Jamaika.mp3",1)
    Case $Button28
    SoundPlay(@ScriptDir & "\Sound\28-DOGEN.mp3",1)
    EndSwitch
    WEnd

    [/autoit]


    Leider nur Ohne Alles

  • Ich brauch dringend schnell hilfe pls

    Double & Dreifach posts sind ned gern gesehen
    Dafür gibt es einen "Bearbeiten" button unten Links
    Dein Script

    Spoiler anzeigen
    [autoit]

    Func _start()
    While 1
    $B = PixelSearch(390, 403, 494, 466, 0xD49E35)
    If IsArray($B) = True Then

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

    Send ( "meinen neuen text ^^" )

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

    EndIf
    WEnd
    EndFunc

    [/autoit]

    naja so ganz stimmt das nicht.
    Ich bräuchte den variablen namem deines textes

    EDIT

    Spoiler anzeigen
    [autoit]

    Func _start()
    While 1
    $B = $TextVariable
    If $B = @DesktopWidth / 2 Then
    $Textst2vaiable
    EndIf
    WEnd
    EndFunc

    [/autoit]


    vll hilft das

  • Ich brauch dringend schnell hilfe pls

    naja ohne code wird das ned so einfach.

    vll kann das ja was helfen

    [autoit]

    @DesktopWidth / 2

    [/autoit]


    Das ist genau die Hälfte vom Bildschierm (von links nach rechts o. anders rum)
    von oben nach unten, du ahnst es sicher

    [autoit]

    @DesktopHeight / 2

    [/autoit]


    die mitte von Oben nach unten o. anders rum

    verwenden könntest du das so

    Spoiler anzeigen
    [autoit]

    If $DeinText = @DesktopWidth / 2 Then
    $Dein2terText
    EndIf

    [/autoit]


    aba wie gesagt Ohne code kann man da ned viel helfen

    Skilkor

  • Android Forum

    Zitat

    Von Mattthias
    Hey Jungs nichts gegen mein iPhone :(
    Ohne Jailbreak bringt es tatsächlich nichts, wie anno2008 bereits sagte :D


    Darum schreib ich ja

    Zitat

    Von Skilkor
    Pfui kann ich nur zum iPhone Sagen.
    GZ zu demjenigen der weiss wie damit umgehen :D
    Jailbreak ist eines davon ^^

    Zitat

    €²: Wie ich das jetzt mitbekommen habe ist Android software in Java geschrieben.


    Jap. darum ist es mehr alls naheliegend das die apps auch in einer art Java sind.
    dafür gibt es mehrere gründe.
    1: Java ist weit verbreitet (Leider, Java hast mich)
    2: verhindert evt kompatiblitäts probleme (Fals die apps eine andere script / Programmier Sprache hätten)
    3: Performance

    :D skilkor

  • Mausbewegungs möglichkeiten? Welche?

    Zitat

    das sollte was nützen :whistling:


    und das tut es auch, nur hab ich jetz ein prolem
    Ich kann es soweit steuern das er die maus bewegt.
    mit

    Spoiler anzeigen
    [autoit]

    ;~ Rechter PadStick
    If $coor[2] = 0 Then ;Right PadStick Left
    $pos = MouseGetPos()
    MouseMove($pos[0],$pos[1]-$mousespeed)
    EndIf
    If $coor[2] == 32767 Then ;Sezt die Maus wider in die Mitte
    MouseMove(@DesktopWidth / 2,@DesktopHeight / 2)
    EndIf
    If $coor[2] = 65535 Then ;Right PadStick Right
    $pos = MouseGetPos()
    MouseMove($pos[0],$pos[1]+$mousespeed)
    EndIf
    ;~ =========
    If $coor[3] = 0 Then ;Right PadStick Up
    $pos = MouseGetPos()
    MouseMove($pos[0]-$mousespeed,$pos[1])
    EndIf
    If $coor[2] == 32767 Then ;Sezt die Maus wider in die Mitte
    MouseMove(@DesktopWidth / 2,@DesktopHeight / 2)
    EndIf
    If $coor[3] = 65535 Then ;Right PadStick Down
    $pos = MouseGetPos()
    MouseMove($pos[0]+$mousespeed,$pos[1])
    EndIf
    ;~ ==========>

    [/autoit]


    wen ich aber mit

    Spoiler anzeigen
    [autoit]

    If $coor[2] = 16383 Then ;Right PadStick Left
    $pos = MouseGetPos()
    MouseMove($pos[0]/2,$pos[1]/2 -$mousespeed)
    EndIf

    [/autoit]


    Versuche, tut sich nichts, rein garnichts. nicht einmal ein error.
    das heisst für mich eigentlich nur, das der Stick die 16383 nie erreicht. was aber fast nicht möglich ist da
    0 nach Links o. Oben ist
    65535 nach Rechts o. Unten
    Und
    32767 die mitte ist
    weiss da jamd vll was?

  • Android Forum

    Zitat

    ein iPhone ist geil, ich habe aber das 3 GS und gejailbreakt, ich habe keinen Bock mir von Apple Steine in den Weg werfen zu lassen !!!


    Pfui kann ich nur zum iPhone Sagen.
    GZ zu demjenigen der weiss wie damit umgehen :D
    Jailbreak ist eines davon ^^

    qixx
    Was das Lehrnen angeht. dazu sage ich nur. Ich hoffe du hast ein wenig Java kenntnisse, da es auf java aufgebaut ist,
    Zum Lehrnen hoff ich, du kannst English :D
    sonnst wird dir Dieses verflucht gute Tutorial nichts bringen :D

  • Sudoku Helfer

    Och leute, muss man mal wider das "vergrault erstpost leute" thema aufgreiffen.
    Ja ok, 4840 zeilen sind verdammt viel. Man "könnte" das ganze wie auch scho gesagt mit arrays und schleifen kürzen.
    Dazu kann ich doch auch nur sagen,
    Na und?
    Er hat sich mühegegeben ein functionsfähiges script zu erstllen, und das evt mit einen wissen von 2 lehrntagen(genauer genommen weiss ichs nicht)
    Und es gibt leute die haben weissgott wieviel mehr wissen über autoit alls manch andere, und bekommen kaum ein functionsfähiges script hin.

    Allso von mir ein lob das es funtioniert.
    Ich würde dir gerne die verbesserung vorlegen. Aber ich bin nicht am rechner und schreib mit meinem handy, was schon mühselig genug ist, und da einen autoit code einzufügeen der auf dem homerechner ist, ist schlicht nicht möglich ohne wlan :( leider
    Wen ich wider zuhause bin und es nicht vergessen hab, meld ich mich hier wider.

  • Mausbewegungs möglichkeiten? Welche?

    ahh, du meinst im sinne von

    [autoit]

    MouseMove(@DesktopWidth / 2,@DesktopHeight / 2)

    [/autoit]


    :D hätt ich selbst drauf können xD wahr wohl doch schon spät :D
    ich frag mich nur wie ich das nun mit dermehrweg Kreuz Tasten machen soll.
    UP = W
    Left = D
    usw.
    wen ich

    [autoit]

    If $coor[6] = 27000 Then
    send("{a}")
    EndIf

    [/autoit]


    verwenden drückt er 1000e malle die w taste, das verursacht Zuckungen beim Charakter xD sprich, er zuck mm für mm in die richtung xD
    weiss da jmd was?
    mit

    [autoit]

    _isPressed

    [/autoit]


    kenn ich mich nicht so gut aus :S würde ddas was helfen?

  • Mausbewegungs möglichkeiten? Welche?

    ok, ich steh vor dem ersten ding :D
    ich hab es erfolgreich umgeschrieben und es funktioniert.
    da ich aber möchte das das script auch andere verwenden, weiss ich nicht genau wie ich den Mauszeiger einheitlich in die Mitte bekomme... egal bei welcher auflösung.
    da ich einen 22° habe,sprich 1680x1050 auflösung, ist bei mir die mitte 840x525.
    da aber ein 17° die auflösung 1280x1024 hat, ist 840x525 natürlich nicht die mitte.
    Wie bekomm ich das den hin??

    (Btw sry für doppelpost,Edits siht man leider nur wen man das Thread öffnet,werden aber nicht angezeigt)

    Hier das Script (Kann nur mit einem GamePad bedient werden)

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>

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

    HotKeySet("{ESC}", "Terminate")

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

    Func Terminate()
    Exit 0
    EndFunc
    ;655535

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

    $Form1 = GUICreate("Pad to Keyboard", 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]

    Global $joy = _JoyInit()
    Global $ControllerNummer = 0 ;wenn nur einer angeschlossen ist isses die 0, sonst testen
    Global $mousespeed = 840 ;erhöhern wenns schneller sein soll

    [/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 &= '(1)' & MsgBox(0,"Pad Taste","1",2)
    If BitAND($Val, 2) Then $SButtons &= '(2)' & MsgBox(0,"Pad Taste","2",2)
    If BitAND($Val, 4) Then $SButtons &= '(3)' & MsgBox(0,"Pad Taste","3",2)
    If BitAND($Val, 8) Then $SButtons &= '(4)' & MsgBox(0,"Pad Taste","4",2)
    If BitAND($Val, 16) Then $SButtons &= '(L1)' & MsgBox(0,"Pad Taste","L1",2)
    If BitAND($Val, 32) Then $SButtons &= '(L2)' & MsgBox(0,"Pad Taste","L2",2)
    If BitAND($Val, 64) Then $SButtons &= '(R1)' & MsgBox(0,"Pad Taste","R1",2)
    If BitAND($Val, 128) Then $SButtons &= '(R2)' & MsgBox(0,"Pad Taste","R2",2)
    If BitAND($Val, 256) Then $SButtons &= '(Select)' & MsgBox(0,"Pad Taste","Select",2)
    If BitAND($Val, 512) Then $SButtons &= '(Start)' & MsgBox(0,"Pad Taste","Start",2)
    If BitAND($Val, 1024) Then $SButtons &= '(L3)' & MsgBox(0,"Pad Taste","L3",2)
    If BitAND($Val, 2048) Then $SButtons &= '(R3)' & MsgBox(0,"Pad Taste","R3",2)
    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, 8)
    $coor[6] = DllStructGetData($lpJoy, 1, 11)
    $coor[7] = DllStructGetData($lpJoy, 1, 9)
    EndIf
    ;~ ==========>PadStick Bewegt Maus
    ;~ Linker PadStick
    If $coor[0] = 0 Then ;Left PadStick Left
    $pos = MouseGetPos()
    MouseMove($pos[0]-$mousespeed,$pos[1])
    EndIf
    If $coor[0] = 32767 Then ;Sezt die Maus wider in die Mitte
    MouseMove(840,525)
    EndIf
    If $coor[0] = 65535 Then ;Left PadStick Right
    $pos = MouseGetPos()
    MouseMove($pos[0]+$mousespeed,$pos[1])
    EndIf

    If $coor[1] = 0 Then ;Left PadStick Up
    $pos = MouseGetPos()
    MouseMove($pos[0],$pos[1]-$mousespeed)
    EndIf
    If $coor[0] = 32767 Then ;Sezt die Maus wider in die Mitte
    MouseMove(840,525)
    EndIf
    If $coor[1] = 65535 Then ;Left PadStick Down
    $pos = MouseGetPos()
    MouseMove($pos[0],$pos[1]+$mousespeed)
    EndIf
    ;~ ==========>
    ;~ Rechter PadStick
    If $coor[2] = 0 Then MsgBox(0,"Pad Stick","Rechter Stick = UP",2)
    If $coor[2] = 65535 Then MsgBox(0,"Pad Stick","Rechter Stick = Down",2)
    If $coor[3] = 0 Then MsgBox(0,"Pad Stick","Rechter Stick = Left",2)
    If $coor[3] = 65535 Then MsgBox(0,"Pad Stick","Rechter Stick = Right",2)
    ;~ ==========>
    ;~ Mehrweg Kreuz Tasten
    If $coor[6] = 27000 Then MsgBox(0,"Mehrwegkreuztaste","Left",2)
    If $coor[6] = 9000 Then MsgBox(0,"Mehrwegkreuztaste","Right",2)
    If $coor[6] = 0 Then MsgBox(0,"Mehrwegkreuztaste","Up",2)
    If $coor[6] = 18000 Then MsgBox(0,"Mehrwegkreuztaste","Down",2)
    Return $coor
    EndFunc ;==>_GetJoy

    [/autoit]

    Skilkor

  • Mausbewegungs möglichkeiten? Welche?

    Siht sehr schön aus :D
    Mal sehen ob ich das mit Meinem Kombinieren kann :D da ja deins auch die winmm.dll nuzt :D
    Thx :D
    Ich lass das Thread mal Offen, falls sich noch was ergeben sollte :D

    Edit:1
    Wehuuu, Dank deinem Script hab ich herausgefunden welche Variable für das Mehrweg Kreuz zuständig ist :D
    Ich mach mit jetz mal daran,dass man mit dem PadStick die maus bewegen kann :D

  • Mausbewegungs möglichkeiten? Welche?

    Zitat

    Von autoBert
    Ist dafür nicht eigentlich der Treiber deines Pad's zuständig :?:


    Mit dem pad lässt sich die Maus grundsätzlich nicht Steuern. Nur wen man diese mittel Programme aufnimmt und denen einen Befehl zuteilt, tun die was ^^ (mit Die mein Ich DIE tasten :D)

    Zitat

    PCKing
    2variablen erstellen, 1 für x-achse und 1 für y-achse.
    in ner schleife wird dann überprücht, ob der PadStick nach oben oder unten gedrückt wird, wenn ja dann die variable y-1 (oder y+1) rechnen und mit MouseMove(x,y) die maus dahin bewegen.
    für linke und rechte maustaste dann überprüfen ob der button gedrückt wurde und dann MouseClick("Primary") oder MouseClick("Secondary") ausführen ^^


    EHM 8| WAT :?: ?(
    Davon hab ich jetz grad nur 80% Verstanden, was aber nicht heisst das ich weiss was du meinst :( ;(
    OK, nach 10maligen durchlessen hab ichs kapiert.
    Allso die PadStick variablen sind vorhanden wird erkannt und alles.
    Wie ich eine maus bewegen kann weiss ich auch. nurhab ich da das problem,dass ich dem doch ned einfach sagen kann, das der in die mitte der Oberenrandes gehen soll.so kann man doch im endefeckt kein Spiel das GamePads nicht erkennt Spielen. (OK,es mag bei einigen einen guten grund dafür haben, wegen der Reaktions zeit,aber wer sagt das es = ein Shooter sein muss?? :D)

    Am besten ich geb euch mal das was ich habe (Ich hoffe ihr habt gamepads,sonnst könnt ihrs ned testen)

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>

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

    ;655535

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

    ;$Form1 = GUICreate("Pad to Keyboard", 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 &= '(1)' & MsgBox(0,"Pad Taste","1",2)
    If BitAND($Val, 2) Then $SButtons &= '(2)' & MsgBox(0,"Pad Taste","2",2)
    If BitAND($Val, 4) Then $SButtons &= '(3)' & MsgBox(0,"Pad Taste","3",2)
    If BitAND($Val, 8) Then $SButtons &= '(4)' & MsgBox(0,"Pad Taste","4",2)
    If BitAND($Val, 16) Then $SButtons &= '(L1)' & MsgBox(0,"Pad Taste","L1",2)
    If BitAND($Val, 32) Then $SButtons &= '(L2)' & MsgBox(0,"Pad Taste","L2",2)
    If BitAND($Val, 64) Then $SButtons &= '(R1)' & MsgBox(0,"Pad Taste","R1",2)
    If BitAND($Val, 128) Then $SButtons &= '(R2)' & MsgBox(0,"Pad Taste","R2",2)
    If BitAND($Val, 256) Then $SButtons &= '(Select)' & MsgBox(0,"Pad Taste","Select",2)
    If BitAND($Val, 512) Then $SButtons &= '(Start)' & MsgBox(0,"Pad Taste","Start",2)
    If BitAND($Val, 1024) Then $SButtons &= '(L3)' & MsgBox(0,"Pad Taste","L3",2)
    If BitAND($Val, 2048) Then $SButtons &= '(R3)' & MsgBox(0,"Pad Taste","R3",2)
    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, 8)
    $coor[6] = DllStructGetData($lpJoy, 1, 11)
    $coor[7] = DllStructGetData($lpJoy, 1, 9)
    EndIf
    ;~ Linker PadStick
    If $coor[0] = 0 Then MsgBox(0,"Pad Stick","Linker Stick = Left",2)
    If $coor[0] = 65535 Then MsgBox(0,"Pad Stick","Linker Stick = Right",2)
    If $coor[1] = 0 Then MsgBox(0,"Pad Stick","Linker Stick = Up",2)
    If $coor[1] = 65535 Then MsgBox(0,"Pad Stick","Linker Stick = Down",2)
    ;~ Rechter PadStick
    If $coor[2] = 0 Then MsgBox(0,"Pad Stick","Rechter Stick = UP",2)
    If $coor[2] = 65535 Then MsgBox(0,"Pad Stick","Rechter Stick = Down",2)
    If $coor[3] = 0 Then MsgBox(0,"Pad Stick","Rechter Stick = Left",2)
    If $coor[3] = 65535 Then MsgBox(0,"Pad Stick","Rechter Stick = Right",2)
    Return $coor
    EndFunc ;==>_GetJoy

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


    Wie gesagt, über allem was ich bis jetz gesehen und gefunden habe, hab ich ne MSGBox drangehauen, da ich die Form Deaktiviert habe ^^

  • Mausbewegungs möglichkeiten? Welche?

    Hey Leute :D
    Ich einmal Wider :D:D
    Wie die meisten wissen ging ich euch die tage auf die Nerven was das auslessen einer gedrückten GamePad taste angeht.
    Da hat mir ja Rodny_le_lude was schönes Hingelegt :D

    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, 8) 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, 8)
    $coor[6] = DllStructGetData($lpJoy, 1, 11)
    $coor[7] = DllStructGetData($lpJoy, 1, 9)
    EndIf
    Return $coor
    EndFunc ;==>_GetJoy

    [/autoit]


    Das hab ich soweit um geschrieben das ALLES mal eine msgbox ausgibt (Damit ich genau weiss wass was ist :D)
    Wen ihr das sehen wollt sagt es pls :D
    Soweit so gut, Da ich aber vor habe das Ganze so um zu schreiben das es am ende tastatur UND mouse imitiert (Damit will ich sagen, PadSticks = Mouse bewegungen und so)
    nun hab ich da aber ein Problem, ich weiss nicht wie ich das machen soll das wen ich den Linken PadStick nach Oben Drücke, das "Der Mauszeiger" auch nach oben geht.
    Weiss da jmd evt was? bin um jede hilfe Dankbar :D

    Skilkor

  • Gampad tastendruck auslessen

    Joa das funktioniert :D 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 :D

  • Bräucht ma hilfe einfaches script

    Zitat

    musste den rechner immerwieder neustarten weil der beenden befehel net geklappt hat -.-


    Wiso das den??? weill dir die Maus nichtmehr gehorcht hat??? :rofl::rofl::rofl::D
    Da gibt es bei XP / Vista und Win7 eine der besten tastencombi welche autoit ist sofort auser gefecht setzt
    Named
    Ctrl/Alt/Del
    Tastkmanager Starten
    Application Kicken
    Fertig :rofl:

  • Gampad tastendruck auslessen

    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]