Hallo Leute,
ich habe ein kleines Login Skript gebastelt und ich habe ein Probelm: wenn das Password Falsch war dann
funktioniert alles Pervekt aber wenn das Passwort richtig war und die seite geändert wird funktioniert nichts mehr
und ich muss mein Programm mit dem Taskmanager killen ...
Hier mal mein Skript:
Spoiler anzeigen
_Login_Gui()
Func _Login_Gui()
$Form1 = GUICreate("Login", 258, 162, 192, 164)
$Label1 = GUICtrlCreateLabel("Username:", 8, 24, 55, 17)
$Label2 = GUICtrlCreateLabel("Password:", 8, 56, 53, 17)
$Input1 = GUICtrlCreateInput("", 65, 24, 183, 21)
$Input2 = GUICtrlCreateInput("", 64, 56, 185, 21,BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD))
$Button1 = GUICtrlCreateButton("Login", 8, 104, 243, 25)
GUICtrlCreateGroup("", 8, 8, 241, 9)
GUICtrlCreateGroup("", 8, 136, 241, 9)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $Button1
_Login_Office("https://www.example.com/",GUICtrlRead($Input1),GUICtrlRead($Input2))
GUIDelete($Form1)
ExitLoop
EndSwitch
WEnd
EndFunc
Func _Login_Office($URL,$Username,$Password)
Global $IE = _IECreate($URL,0,0)
$Form = _IEFormGetCollection($IE,0)
$ieUsername_Input = _IEFormElementGetObjByname($Form,"cred_userid_inputtext")
_IEFormElementSetValue ($ieUsername_Input,$Username)
$iePassword_Input = _IEFormElementGetObjByName($Form,"cred_password_inputtext")
_IEFormElementSetValue ($iePassword_Input,$Password)
_IEFormSubmit($Form,0)
_IELoadWait($Form)
Sleep(1000)
$sText = _IEBodyReadText($IE)
If StringRegExp($sText,"Dies scheint keine gültige Benutzer-ID zu sein") Or StringRegExp($sText,"Benutzer-ID oder Kennwort wurde nicht erkannt") Then
MsgBox(0,"Error!","Der Benutzenamer oder das Password wurde nicht erkant.")
Else
MsgBox/0,"Super","DU bist jetzt eingeloggt")
EndIf
EndFunc
[/autoit] [autoit][/autoit] [autoit][/autoit]
Ich hoffe ihr könnt mir helfen...
Lg F4R