Private Sub Command1_Click()
    Command1.Enabled = False
    Me.MousePointer = vbHourglass
    WebBrowser1.Tag = "loading"
    [color=green]'um die frames zu umgehen statt www.ogame.de
    WebBrowser1.Navigate "http://ofame.de/portal/?lang=de"
    Do
        DoEvents
    Loop Until WebBrowser1.Tag = "ready"
    [color=green]'5. Universum wählen -> ACHTUNG es gibt kein 6. Universum 
    ' -> Index 6 = 7. Universum
    WebBrowser1.Document.Forms(0).Uni.selectedIndex = 5
    WebBrowser1.Document.Forms(0).login.Value = "benutzer"
    WebBrowser1.Document.Forms(0).pass.Value = "passwort"
    WebBrowser1.Document.Forms(0).submit
    Command1.Enabled = True
    Me.MousePointer = vbDefault
End Sub
 
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    If URL <> "about:blank" And WebBrowser1.Tag <> "ready" Then
        WebBrowser1.Tag = "ready"
    End If
End Sub

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...