Formularfelder auf Webseite ansprechen
06.09.2018 14:46:47
UweVBA
auf der DHL Seite kann ich die Felder zwar ausfüllen, beim Betätigen des Warenkorbbutton werden sie aber gelöscht.
"die Änderung der Felder mit change vorzugaukeln" (Zitat aus einer Antwort) funktioniert nicht.
Namen und Adresse im Code rein zufällig!
Spontan fällt mir eine Name ein: Anton
Public Declare
Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub DHLOnlineFrankierung()
Dim IEApp As Object
Dim IEDocument As Object
Dim strURL As String
Dim StrasseMitHausnr As String
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
IEApp.FullScreen = True
IEApp.navigate "https://www.dhl.de/popweb/gw2/web/ProductOrder.action?insert=true&checkOnInit= _
_
_
_
_
_
false"
Do: Loop Until IEApp.Busy = False
Set IEDocument = IEApp.Document
Do
Loop Until IEDocument.readyState 4
IEApp.Document.readyState = "complete"
IEDocument.getElementById("address.sender.name2").Value = "Musterfirma"
IEDocument.getElementById("address.sender.street").Value = "Dachsweg"
IEDocument.getElementById("address.sender.streetNumber").Value = "9"
IEDocument.getElementById("address.sender.plz").Value = "13351"
IEDocument.getElementById("address.sender.city").Value = "Berlin-Wedding"
IEDocument.getElementById("address.sender.email").Value = "muster.mustermann@freenet.de"
'Empfänger
IEDocument.getElementById("address.receiver.name2").Value = "Mustermann"
IEDocument.getElementById("address.receiver.street").Value = "Musterstr."
IEDocument.getElementById("address.receiver.streetNumber").Value = "11"
IEDocument.getElementById("address.receiver.plz").Value = "13351"
IEDocument.getElementById("address.receiver.city").Value = "Berlin-Wedding"
End Sub
Gruss
UweVBA
Anzeige