Dim Kennung
Dim Passwort
Kennung="username@gmx.ch"
Passwort=InputBox("Passwort: ")
 
Dim MeinIE
Dim READYSTATE_COMPLETE
READYSTATE_COMPLETE = 4
 
Set MeinIE = CreateObject("InternetExplorer.Application")
 
Do While MeinIE.Busy
Loop
 
MeinIE.Visible = 1
MeinIE.Navigate "http://www.gmx.net"
Do While MeinIE.ReadyState <> 4
Loop
Set oDoc = MeinIE.Document
oDoc.all.id.value=Kennung
oDoc.all.p.value=Passwort
oDoc.all.login.Submit
 
Set oDoc = Nothing
Set oArea = Nothing
Set oRng = Nothing