'  Microsoft Internet Controls
'  Microsoft HTML Object Library
Dim HTMLDoc As HTMLDocument
Dim oBrowser As InternetExplorer
 
Sub ICProxy_Login_Website()
Dim oHTML_Element As IHTMLElement
Dim sURL As String
Dim myProxy As String
 
'On Error GoTo Err_Clear
        myPro = "123456789"
        sURL = "https://" & myPro & ".adresse.de"
 
Set oBrowser = New InternetExplorer
oBrowser.Silent = True
oBrowser.timeout = 60  '1. Fehler Objekt unterstützt diese Eigenschaft nicht
oBrowser.navigate sURL
oBrowser.Visible = True '2. Fehler Das aufgerufene Objekt wurde von den Clients 
' getrennt
 
 
' solange warten bis die Seite geladen ist!!!!!!!!!!
Do
    Loop Until oBrowser.readyState = READYSTATE_COMPLETE '3. Fehler Das 
 
 
Set HTMLDoc = oBrowser.document
'##### Benutzername übermitteln #####
HTMLDoc.all.UserName.Value = "MeinLogin"
 
'##### Benutzerpasswort übermitteln #####
HTMLDoc.all.passwort.Value = "meinPW"
 
 
'##### Suche den Anmelde Button und klicke auf diesen #####
    For Each oHTML_Element In HTMLDoc.getElementsByTagName("input")
        If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For
    Next
'Err_Clear:
End Sub