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
#include <IE.au3>
#include <String.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
Global $pin[5]
[/autoit] [autoit][/autoit] [autoit]_IEErrorHandlerRegister()
$lade_1 = _IECreateEmbedded()
#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 ###
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 überprü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