Code
#include <IE.au3>
$Url = "https://www.myhermes.de/wps/portal/paket/Home/privatkunden/versenden/paket"
$oIE = _IECreate($Url, 0, 1, 1, 1)
;WinWait("Paketschein erstellen - Internet Explorer",5)
Sleep(500)
WinSetState("Paketschein erstellen", "", @SW_MAXIMIZE)
$oForm = _IEFormGetCollection($oIE, 0) ;****** WERT GEÄNDERT ********
;_IELinkClickByText($oForm,"+")
$eLand = "Deutschland"
If $eLand <> "Deutschland" Then
$oSelect = _IEGetObjById($oForm, "parcelclass-cc")
_IEFormElementOptionSelect($oSelect, $eLand, 1, "byText", 1)
$oEvt = $oIE.document.createEvent("HTMLEvents")
$oEvt.initEvent("change", True, False)
$oSelect.dispatchEvent($oEvt)
Sleep(1000)
$oForm = _IEFormGetCollection($oIE, 1)
For $formid In $oForm
ConsoleWrite($formid.id & @CRLF) ;
Next
$oFirma = _IEGetObjById($oForm, "parcelclass-HP")
_IEAction($oFirma, "click")
EndIf
$oFirma = _IEGetObjById($oForm, "senderAddressLastname")
ClipPut('$aNACHNAME')
_IEAction($oFirma, 'focus')
_IEAction($oFirma, 'paste')
$oFirma = _IEGetObjById($oForm, "senderAddressFirstname")
ClipPut('$aVORNAME')
_IEAction($oFirma, 'focus')
_IEAction($oFirma, 'paste')
; ********** UND SO WEITER **************
$oFirma = _IEGetObjById($oForm, "parcelclass-HP")
_IEAction($oFirma, "click")
;$oFirma = _IEGetObjById($oIE,"send_business")
;_IEAction ($oFirma, "click")
;$oFirma = _IEGetObjById($oIE,"liabilityAccepted")
;_IEAction ($oFirma, "click")
;$oFirma = _IEGetObjById($oIE,"tocAccepted")
;_IEAction ($oFirma, "click")
;$button=_IEGetObjById($oForm,"increase0Amount")
;_IEAction($button,"click")
$oIE = 0
Exit
Alles anzeigen