WebBrowser1.Navigate ("http://rapidshare.com/cgi-bin/premium.cgi?logout=1")
Do
DoEvents
Loop Until WebBrowser1.Busy = False

WebBrowser1.Navigate ("https://ssl.rapidshare.com/cgi-bin/premiumzone.cgi")

Do
DoEvents
Loop Until WebBrowser1.Busy = False

With WebBrowser1
.Document.Forms(0).login.Value = Text1.Text
.Document.Forms(0).password.Value = Text2.Text
End With

WebBrowser1.Document.Forms(0).submit
nun bist du eingeloggt!

Dann checkst du noch den Source nach nen Begriff was nur vorkommt wenn man eingeloggt ist und fragst das mit ner if ab und feddisch