Sheik Posted November 6, 2019 Share Posted November 6, 2019 Below code worked before but not anymore. I think, this is not working anymore: $oEvt.initEvent("change", True, False) The data is written in boxes and displayed, but disappears f.e. when clicked with mouse expandcollapse popup;below variables are filled by code before ;it contains personal data, so I post code from here $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,2) ;_IELinkClickByText($oForm,"+") 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") _IEFormElementSetValue($oFirma, $aNACHNAME) $oFirma = _IEGetObjById($oForm, "senderAddressFirstname") _IEFormElementSetValue($oFirma, $aVORNAME) $oFirma = _IEGetObjById($oForm, "senderAddressAddition") _IEFormElementSetValue($oFirma, $aADRESSZUSATZ) $oFirma = _IEGetObjById($oForm, "senderAddressStreet") _IEFormElementSetValue($oFirma, $aSTRASSE) $oFirma = _IEGetObjById($oForm, "senderAddressHouseNumber") _IEFormElementSetValue($oFirma, $aHAUSNUMMER) $oFirma = _IEGetObjById($oForm, "senderAddressZipCode") _IEFormElementSetValue($oFirma, $aPLZ) $oFirma = _IEGetObjById($oForm, "senderAddressCity") _IEFormElementSetValue($oFirma, $aORT) $oFirma = _IEGetObjById($oForm, "senderAreaCode") _IEFormElementSetValue($oFirma, $aVORWAHL) $oFirma = _IEGetObjById($oForm, "senderPhone") _IEFormElementSetValue($oFirma, $aTELEFON) $oFirma = _IEGetObjById($oForm, "senderEmail") _IEFormElementSetValue($oFirma, $aEMAIL) $oFirma = _IEGetObjById($oForm, "receiverAddressLastname") _IEFormElementSetValue($oFirma, $eNACHNAME) $oFirma = _IEGetObjById($oForm, "receiverAddressFirstname") _IEFormElementSetValue($oFirma, $eVORNAME) $oFirma = _IEGetObjById($oForm, "receiverAddressAddition") _IEFormElementSetValue($oFirma, $eADRESSZUSATZ) $oFirma = _IEGetObjById($oForm, "receiverAddressStreet") _IEFormElementSetValue($oFirma, $eSTRASSE) $oFirma = _IEGetObjById($oForm, "receiverAddressHouseNumber") _IEFormElementSetValue($oFirma, $eHAUSNUMMER) $oFirma = _IEGetObjById($oForm, "receiverAddressZipCode") _IEFormElementSetValue($oFirma, $ePLZ) $oFirma = _IEGetObjById($oForm, "receiverAddressCity") _IEFormElementSetValue($oFirma, $eORT) $oFirma = _IEGetObjById($oForm, "receiverAreaCode") _IEFormElementSetValue($oFirma, $eVORWAHL) $oFirma = _IEGetObjById($oForm, "receiverPhone") _IEFormElementSetValue($oFirma, $eTELEFON) $oFirma = _IEGetObjById($oForm, "receiverEmail") _IEFormElementSetValue($oFirma, $eEMAIL) $oFirma = _IEGetObjById($oForm, "senderEbayAuctionNumber") _IEFormElementSetValue($oFirma, stringmid($mark,6,14)) $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") ;$oExcel = 0 $oIE = 0 Exit Thank you for helping. Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now