_IEFormSubmit Problem

  • Hallo,
    mein Script soll auf der Seite die angezeigt wird auf Weiter klicken. Aber das macht es nicht aber sonst funktioniert bis jetzt alles :)

    Spoiler anzeigen
    [autoit]

    #include <IE.au3>
    #include <String.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <Array.au3>

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

    Global $pin[5]

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

    _IEErrorHandlerRegister()
    $lade_1 = _IECreateEmbedded()

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

    #Region ### START Koda GUI section ### Form=
    ;$Form1 = GUICreate("", 317, 240, 394, 345)
    $Form1 = GUICreate("", 900, 500)
    $Group1 = GUICtrlCreateGroup("Code", 8, 0, 161, 73)
    $Input1 = GUICtrlCreateInput("0000-0000-0000-0000", 48, 16, 113, 21)
    $Label1 = GUICtrlCreateLabel("Code:", 16, 16, 32, 17)
    $Checkbox1 = GUICtrlCreateCheckbox("Passwort?", 56, 48, 73, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group2 = GUICtrlCreateGroup("Passwort", 176, 0, 137, 73)
    $Label2 = GUICtrlCreateLabel("Passwort:", 216, 16, 50, 17)
    $Input2 = GUICtrlCreateInput("", 184, 40, 121, 21)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group3 = GUICtrlCreateGroup("Captcha", 8, 80, 185, 129)
    $Pic1 = GUICtrlCreatePic(@TempDir & "\captcha.jpeg", 16, 96, 170, 75)
    $Input3 = GUICtrlCreateInput("", 16, 176, 169, 21)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Button1 = GUICtrlCreateButton("Code testen", 200, 88, 107, 25, $WS_GROUP)
    $Label3 = GUICtrlCreateLabel("Bitte warten ...", 8, 216, 300, 17)
    $seite = GUICtrlCreateObj($lade_1, 328, 8, 492, 444)
    _IENavigate($lade_1, "https://customer.cc.at.paysafecard.com/psccustomer/GetWelcomePanelServlet")
    FileDelete(@TempDir & "\captcha.jpeg")
    InetGet("https://customer.cc.at.paysafecard.com/seam/resource/captcha", @TempDir & "\captcha.jpeg")
    GUICtrlSetImage($Pic1, @TempDir & "\captcha.jpeg")
    GUICtrlSetData($Label3, "Fertig")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    GUICtrlSetData($Label3, "Bitte warten ............")
    $string = StringSplit(GUICtrlRead($Input1), "-")
    $oForm = _IEFormGetObjByName($lade_1, "j_id17")
    For $a = 1 To 4
    $pin[$a] = _IEFormElementGetObjByName($oForm, "j_id17:rn" & $a)
    _IEFormElementSetValue($pin[$a], $string[$a])
    Next
    $captcha = _IEFormElementGetObjByName($oForm, "j_id17:verifyCaptcha")
    _IEFormElementSetValue($captcha, GUICtrlRead($Input3))
    $oSubmit = _IEGetObjByName($oForm, "submit")
    _IEAction($oSubmit, "click")
    $lala = _IEFormSubmit($oForm)
    $body = _IEBodyReadHTML($lade_1)
    $string2 = _StringBetween($body, '<span class="error">', '. Bitte &uuml;berpr&uuml;fen')
    _ArrayDisplay($string2)
    If IsArray($string2) Then
    If $string2[0] = "Bei Ihrem PIN-Code und/oder Passwort ist ein Fehler aufgetreten" Then
    MsgBox(0, "ERROR", "Bei Ihrem PIN-Code und/oder Passwort ist ein Fehler aufgetreten")
    EndIf
    EndIf
    GUICtrlSetData($Label3, "Fertig")
    FileDelete(@TempDir & "\captcha.jpeg")
    InetGet("https://customer.cc.at.paysafecard.com/seam/resource/captcha", @TempDir & "\captcha.jpeg")
    GUICtrlSetImage($Pic1, @TempDir & "\captcha.jpeg")
    EndSwitch
    WEnd

    [/autoit]