Hallo Liebe Comuniti.
Ich habe mir ein Program gescriptet und weiß leider nicht mehr weiter wie ich das anstellen soll. Habe schon viele Sachen ausprobiert aber nichts ging. Alles was ich wusste hat immer einen Error ergeben. Diverse Suchmaschienen konnten mir ebenfalls nicht weiter helfen darum frage ich euch.
Und zwa:
Teil meines Script's:
[autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_IEAutoLogin($sUrl, $sUsername, $sPwd)
EndSwitch
WEnd
$Url = 'www.google.de'
$User = 'e-mail@gmx.de'
$Pwd = '*******'
$test = _IEAutoLogin($Url, $User, $Pwd)
[/autoit][autoit][/autoit][autoit]Func _IEAutoLogin($sUrl, $sUsername, $sPwd)
;funkey 09.09.09
$oIE = _IECreate($sUrl)
_IEErrorNotify(False)
_IEErrorHandlerRegister()
$oForms = _IEFormGetCollection($oIE)
If @error Then
Return SetError(1, _IEErrorHandlerDeRegister(), $oIE) ;'no forms --> no login'
Else
$Index = 0
For $oForm In $oForms
$oFormElements = _IEFormElementGetCollection($oForm)
If IsObj($oFormElements) Then
$IndexElement = 0
For $oElement In $oFormElements
If $oElement.Type = 'password' Then
$oPwd = _IEFormElementGetObjByName($oForm, $oElement.Name)
_IEFormElementSetValue($oPwd, $sPwd)
For $i = $IndexElement - 1 To 0 Step -1
$oUser = _IEFormElementGetCollection($oForm, $i)
If $oUser.Type = 'text' Then
_IEFormElementSetValue($oUser, $sUsername)
ExitLoop
EndIf
Next
If $oForm.action <> "0" And Not StringInStr($oForm.action, '.php') Then ;submit
_IEFormSubmit($oForm, 0)
_IELoadWait($oIE)
Else ;click
For $i = $IndexElement + 1 To $IndexElement + 10 ;check the next 10 elements
$oButton = _IEFormElementGetCollection($oForm, $i)
If $oButton.Type = 'submit' Then
_IEAction($oButton, "click")
ExitLoop
EndIf
Next
EndIf
Return SetExtended(_IEErrorHandlerDeRegister(), $oIE)
EndIf
$IndexElement += 1
Next
EndIf
$Index += 1
Next
EndIf
Return SetError(2, _IEErrorHandlerDeRegister(), $oIE) ;no password-field found
EndFunc ;==>_IEAutoLogin
So zu meinem Problem:
Ich will das dieser Teil meines Scriptes erst ausgeführt wird, wenn ich den Butten1 drücke. So wie ich es hingeschrieben habe, finktioniert das mit dem Butten aber nicht. Wenn ich den ganzen Script (Den ich aus Datenschutz und privatsphäre nicht ganz rein stelle) ausführe, kommt immer ein Error bei dem $Button1. Wenn ich den Script ohne Butten ausführe funktioniert es einwandfrei. Hätte villeicht jemand von euch eine ahnung wie ich das schreiben kann damit das funktioniert? ![]()
Würde mich sehr über hilfe, tipps oder sonstiges freuen ![]()
Danke schon mal im Vorraus ![]()