Beiträge von ZitterAal

#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