Public
Sub
loggen()
Set
IEApp = CreateObject(
"InternetExplorer.Application"
)
IEApp.Visible =
True
Do
:
Loop
Until
IEApp.Busy =
False
Do
:
Loop
Until
IEApp.Busy =
False
Set
IEDocument = IEApp.document
Do
:
Loop
Until
IEDocument.ReadyState <> 4
IEDocument.getElementByID(
"Nachname"
).Value =
"Mustermann"
IEDocument.getElementByID(
"Passwort"
).Value =
"12345"
IEDocument.getElementByID(
"OK"
).Click
Do
:
Loop
Until
IEApp.Busy =
False
Do
:
Loop
Until
IEApp.Busy =
False
Set
IEDocument = IEApp.document
Do
:
Loop
Until
IEDocument.ReadyState <> 4
End
Sub