habe folgenden Code gefunden und wollte diesen auf mein Formular abändern.
Bekomme es aber nicht hin.
Was muß ich ändern, damit die Felder korrekt ausgefüllt und der Login Button betätigt wird ?
Gruß
Erik
Sub anmelden_bei_eParts()
Dim IEApp As Object
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
IEApp.Navigate "http://unirent.info/epart/index.html"
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
With IEApp.Document
Do: Loop Until .ReadyState = "complete"
.getelementbyid("txtLogin").Value = "Benutzername"
.getelementbyid("txtPassword").Value = "Passwort"
.getelementbyid("frmLogin:_id21").Click
End With
Set IEApp = Nothing
End Sub