Beiträge von Sheik

Sheik

Hermes hat die Webseite geändert, sodass mein bisheriges Script zwar die Daten einträgt, die dann aber nicht übernommen, sondern gelöscht werden, wenn man zB die Boxen durchklickt.

Wie kriegt man das hin?

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,2)


;_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")
_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")






$oIE = 0
Exit

Alles anzeigen

Sheik

Hermes hat die Webseite geändert,

Mein Script funktioniert nicht mehr.

Daten werden in die Felder eingetragen, aber nicht übernommen.

Ich nehme an eine Fehlerkorrektur o.ä. schmeist die Daten wieder raus.

Vielleicht weiß jemand was.

Code

$a="Stadt|Vorname|Nachname|Zusatz|Strasse|Nr.|PLZ|Ort|Tel|VW|Email|Land|Beleg 1111|a[14]"
$a=StringSplit($a,"|",1)
;_ArrayDisplay($a)
$vo=$a[1]
$eVorname=$a[2]
$eNachname=$a[3]
$eADRESSZUSATZ=$a[4]
$eSTRASSE=$a[5]
$eHAUSNUMMER=$a[6]
$eLAND=$a[12]
$eORT=$a[8]
$eTELEFON=$a[9]
$eVORWAHL=$a[10]
$eEMAIL=$a[11]
$mark=$a[13]
ClipPut($a[14])

$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

Alles anzeigen

Sheik · Nein, ich hatte 3.3.8.1 Update auf 3.3.10.2 hilft leider auch nicht. Gruß Sheik

Nein, ich hatte 3.3.8.1
Update auf 3.3.10.2 hilft leider auch nicht.

Gruß
Sheik

Sheik

Ja, andere Banken funktionieren, zB

$Url = "https://banking.dkb.de/dkb/-"
oder
$Url = "https://banking.fidor.de/login"
funktioniert problemlos.

#Include <FF.au3>
_FFStart("https://banking.postbank.de/rai/login")
funktioniert auch problemlos

Postbank funktionierte früher auch, warum und wann genau nicht mehr und was geändert wurde, weiss ich aber nicht.
Als es das Erste mal passierte dachte ich noch "Server down". Erst einige Tage danach habe ich daran nicht mehr geglaubt.
Die Fehlermeldung im IE ist: Die Seite kann nicht angezeigt werden
Die Autoitfehlermeldung ist: --> IE.au3 V2.4-0 Error from function _IELoadWait, $_IEStatus_InvalidObjectType

Kann dann ja eigentlich nur am IE liegen

Vielen Dank für eure beharrliche Hilfe

PS:
Der Postbanklogin ging mit nur einem Send so:
$oForm = _IEFormGetCollection($oIE, 0)
$oDoc = _IEDocGetObj($oIE)
$oArray = $oDoc.getElementsByTagName("input")
for $element in $oArray
if $element.name="kennwort" Then $element.value="###"
if $element.name="nutzername" Then $element.value="###"
next
$oArray = $oDoc.getElementsByTagName("button")
for $element in $oArray
if $element.name="loginButton" Then
_IEAction($element, "focus")
Send("{ENTER}")
EndIf
next
_IELoadWait($oIE)

Das andere Login war übrigens von DKB, nicht von der Postbank
$Url = "https://banking.dkb.de/dkb/-"
$oIE = _IECreate($Url, 0, 1, 1, 1)
$oForm = _IEFormGetCollection($oIE, 0)
$oFirma = _IEGetObjByName($oForm, "j_username")
_IEFormElementSetValue($oFirma, "###")
$oFirma = _IEGetObjByName($oForm, "j_password")
_IEFormElementSetValue($oFirma, "###")
_IEFormSubmit($oForm)
_IELoadWait($oIE)

Sheik

das geht bei mir auch nicht.
Das Problem tritt ja bei _IECreate auf und das Makro hat früher funktioniert.

PS
Anstelle deines Send Send habe ich übrigens

$oForm = _IEFormGetCollection($oIE, 0)
$oFirma = _IEGetObjByName($oForm, "j_username")
_IEFormElementSetValue($oFirma, "####")
$oFirma = _IEGetObjByName($oForm, "j_password")
_IEFormElementSetValue($oFirma, "####")
_IEFormSubmit($oForm)

So kommt einem eine versehentliche Tastaturbetätigung oder ein Fensterwechsel nicht in die Quere.

Sheik

Deaktivieren von Avast Webschutz und Windowsfirewall haben auch nicht geholfen

Sheik

Danke.
Die Liste vertrauenswürdiger Seiten habe ich ergänzt, geht immer noch nicht.
Welche Firewall-Einstellungen braucht man?

Sheik

Danke für den Test.
Dann kanns ja nur am Browser liegen.
Vielleicht liegt es an meiner Version: 11.0.9600.16663

Sheik

#include <IE.au3>
$Url = "https://banking.postbank.de/rai/login"
$oIE = _IECreate($Url, 0, 1, 1, 1 )
_IELoadWait($oIE)
Exit

funktioniert nicht.
Es wird angezeigt:
"Die Seite kann nicht angezeigt werden"
Aktualisieren im Browser zeigt die Seite dann an.

Sheik

Danke, das hat geholfen.
Ich hatte doch tatsächlich https://autoit.de/www.myhermes.de zu den vertrauenswürdigen Sites hinzugefügt.
Warum weiss ich nicht mehr genau, ich glaube ich wollte irgendeine Abfrage vermeiden.

Jedenfalls läuft alles wieder, nachdem ich die Site entfernt habe.

Sheik

Habe jetzt autoit neuinstalliert und immer noch dasselbe.

IE update machen??

Sheik

Funktioniert es bei Dir?
Probier es mal aus bitte.

Wenn ich
$oIE = _IECreate($Url)
verwende, dann:
C:\Program Files\AutoIt3\Include\IE.au3 (560) : ==> The requested action with this object has failed.:
WEnd
WEnd^ ERROR

Wenn ich

$oIE = _IECreate($Url, 0, 1, 0, 1)
sleep(5000)

verwende, dann:
--> IE.au3 V2.4-0 Error from function _IEGetObById, $_IEStatus_InvalidObjectType
--> IE.au3 V2.4-0 Error from function _IEAction, $_IEStatus_InvalidDataType
--> IE.au3 V2.4-0 Error from function _IEGetObById, $_IEStatus_InvalidObjectType
--> IE.au3 V2.4-0 Error from function _IEAction, $_IEStatus_InvalidDataType
--> IE.au3 V2.4-0 Error from function _IEGetObById, $_IEStatus_InvalidObjectType
--> IE.au3 V2.4-0 Error from function _IEAction, $_IEStatus_InvalidDataType

obwohl im Quelltext
<input id="send_business" name="packageLabelDTO.commercialUser" name="send_option" type="radio" value="true"/>

vorhanden ist.

Keine Änderungen bei mir, möglicherweise aber IE-Update, soweit ich weiss.
Vorher wurden die Checkboxen angeklickt.

AutoIt 3.3.8.1 auf Win 7 32bit und IE 8.0.7601.17514

Vielen Dank für jeden Kommentar

Sheik

Warum funktionierrt folgender Code, der früher funktioniert hat, nicht mehr?

Code

#include <IE.au3>
$Url = "https://www.myhermes.de/wps/portal/paket/Home/privatkunden/versenden/paket"
$oIE = _IECreate($Url)
$ob = _IEGetObjById($oIE,"send_business")
_IEAction ($ob, "click")
$ob = _IEGetObjById($oIE,"accept_data")
_IEAction ($ob, "click")
$ob = _IEGetObjById($oIE,"toc_check")
_IEAction ($ob, "click")

Sheik

Vielen Dank.
ich habe immer mit
$oCB = _IEGetObjById($oForm, "accept_data")
_IEFormElementSetValue($oCB, "1")
ohne Erfolg herum probiert.

Weisst du oder ein anderer vielleicht noch wie:
Die Paketauswahl und -anzahl zB für S-Paket 4,30 Euro oder für das Päckchen einstellt
funktioniert?

Sheik

Hallo,
ich kriege zwar Textfelder ausgefüllt, aber ich kann folgendes nicht ausfüllen:

Die Paketauswahl und -anzahl zB für S-Paket 4,30 Euro oder für das Packchen

und die Checkboxen
- Ich versende als Unternehmer
- Mir ist bekannt
- Ich akzeptiere die
obwohl ich viel probiert habe.

Danke für jede Hilfe

Code

#include <IE.au3>
$Url = "https://www.myhermes.de/wps/portal/paket/Home/privatkunden/versenden/paket"
$oIE = _IECreate($Url, 0, 1, 1, 1)

Sheik

Ok, habe jetzt Win7 32bit und Office 2007 installiert.

Office 2007 deshalb, weil sowohl 2010 32bit als auch 2010 64bit ungefähr eine Minute zum Einfügen einer Zeile gebraucht hatten, was bei 207 nur eine Sekunde dauert. Da meine Skripte viele Zeilen einfügen, ging das gar nicht.

Funktioniert aber jetzt alles wie vorher.
Danke für die Meinungen

Sheik

Hallo,

ich habe eine große Excel-Datei auf XP Pro, die mit VBA gesteuert wird und die durch VBA- und AutoIt-Aufrufe auch Outlook 2007, Word 2007, FF 11 und IE 8 steuert.
Da das XP mittlerweile schlecht läuft habe ich mir gedacht, es wäre Zeit umzustellen auf Win 7 und Office 2010.
Also flugs installiert und dann habe ich leider gemerkt, dass die VBA Scripte nicht laufen und auch viele AutoIt-Skripte nicht mehr.

Die Gründe sollen sein: 64bit Office ist nicht steuerbar, weil die 64bit Bibliotheken noch? nicht vorhanden seien?
und AutoIt 64bit wäre nicht ganz fertig?

Soll ich die Win7-Installation wieder plattmachen, oder hat jemand eine Ahnung, wann das alles funktionieren könnte?

Sheik

Ich versuche vergeblich den Link

Baumarkt & Garten zu klicken

Code

#include <IE.au3>
$url="http://www.importstation.de/hood.html"
$oIE = _IECreate($Url, 0, 1, 1, 1)
$ACINPUTS= _IETagNameGetCollection($oIE, "option")
FOR $ACINPUT IN $ACINPUTS
$INN= _IEPropertyGet($ACINPUT, "innertext")
msgbox(1,"I",$INN,1)
IF STRINGINSTR("Baumarkt & Garten",$INN)THEN $ACINPUT.click
Next

Danke für eine Hilfe

Sheik

Habe den Fehler gefunden:
$oForm = _IEFormGetCollection($oIE, 0)

falsche Form gewählt, es war die zweite_
$oForm = _IEFormGetCollection($oIE, 1)

Sheik

siehe
_IEFormElementGetValue.au3

Beiträge von Sheik

Hermes Paketschein ausfüllen (Thema erneut, da Webseite geändert wurde)

Hermes Paketschein ausfüllen

Postbank Seite kann nicht aufgerufen werden

Postbank Seite kann nicht aufgerufen werden

Postbank Seite kann nicht aufgerufen werden

Postbank Seite kann nicht aufgerufen werden

Postbank Seite kann nicht aufgerufen werden

Postbank Seite kann nicht aufgerufen werden

Postbank Seite kann nicht aufgerufen werden

Hermes Paketschein

Hermes Paketschein

Hermes Paketschein

Hermes Paketschein

Hermes Paketschein

Hermes Paketschein

Win7 64bit Office 2010 64bit IE 64bit und FF 64bit

Win7 64bit Office 2010 64bit IE 64bit und FF 64bit

Ie Option Link klicken

RadioButton und Checkbox

frage wegen browser