Hallo, danke ersteinmal.
Leider lässt sich unter Firefox nicht auf den Button mit rechts drücken
Habe es vondaher mal in den TextFeld versucht, dort lieferte mit Xpather einen Link.
Diesen habe ich so eingebaut(nur die entsprechenden Zeilen.
Leider kommt bei der Funktion immer ein Error zurück
==> Variable must be of type "Object".:
$Element = $Elements.document.getElementById($nID)
$Element = $Elements^ ERROR
->11:24:58 AutoIT3.exe ended.rc:1
>Exit code: 1 Time: 34.015
Spoiler anzeigen
........................
$Element = _IEXpath($oIE,"/html/body/div[1]/div[1]/div[6]/div[2]/div[@id='gb']/div[@id='gbAddEntry']/div[2]/div[1]/div/textarea[@id='gbEntryAddTextarea']")
_IEFormElementSetValue($Element, $anrede2&" "&$anredename&" "&$anredeteil2&@CRLF&@CRLF&@CRLF&" "&$gbeintrag) ;Input Ausfüllen
.....................
Func _IEXpath($_oObjek, $_sString,$testmode = False)
$_oObjek = $_oObjek.document
$_aParts = StringSplit($_sString, "/")
;~ _ArrayDisplay($_aParts)
For $_i = 1 To $_aParts[0]
If Not ($_aParts[$_i] = "") Then
If StringInStr($_aParts[$_i], "@id=") Then
$_oObjekt = __IEGetByTagID($_oObjek, $_aParts[$_i])
$_oObjek = $_oObjekt
Else
If StringInStr($_aParts[$_i], "@name=") Then
$_oObjekt = __IEGetByTagNAME($_oObjek, $_aParts[$_i])
$_oObjek = $_oObjekt
Else
If StringInStr($_aParts[$_i], "[") Then
$_oObjekt = __IEGetByTagIndex($_oObjek, $_aParts[$_i])
$_oObjek = $_oObjekt
Else
$_oObjekt = __IEGetByTag($_oObjek, $_aParts[$_i])
$_oObjek = $_oObjekt
EndIf
EndIf
EndIf
If $testmode Then MsgBox(0,$_aParts[$_i],$_oObjek.outerHTML)
EndIf
Next
Return $_oObjek
EndFunc ;==>_IEXpath
Func __IEGetByTag($Elements, $stag)
$Elements = $Elements.getElementsByTagName($stag)
For $Element In $Elements
Return $Element
Next
EndFunc ;==>__IEGetByTag
Func __IEGetByTagIndex($Elements, $stag)
$i = 0
$part = StringSplit($stag, "[")
$Elements = $Elements.getElementsByTagName($part[1])
$index = StringReplace($part[2], "]", "")
For $Element In $Elements
If $i = $index -1 Then
Return $Element
EndIf
$i += 1
Next
EndFunc ;==>__IEGetByTagIndex
Func __IEGetByTagID($Elements, $stag)
$nTag = StringSplit($stag, "[")
$nID = StringReplace(StringReplace(StringReplace($nTag[2], "]", ""), "@id=", ""), "'", "")
$Element = $Elements.document.getElementById($nID)
Return $Element
EndFunc ;==>__IEGetByTagID
Func __IEGetByTagNAME($Elements, $stag)
$nTag = StringSplit($stag, "[")
$nID = StringReplace(StringReplace(StringReplace($nTag[2], "]", ""), "@name=", ""), "'", "")
$Element = $Elements.document.getElementByName($nID)
Return $Element
EndFunc ;==>__IEGetByTagNAME