Como hago el autologin web???

[seba123neo]

Hola,es asi:

Código:

Private Sub Command1_Click()
 With WebBrowser1
        .Visible = True
        .Navigate "http://login.live.com/login.srf?id=2&vv=550&lc=3082"
        Do While .Busy = True: DoEvents: Loop
        .Document.f1.login.Value = "tudireccion"
        .Document.f1.passwd.Value = "tupassword"
        .Document.f1.SI.Click
    End With
End Sub

saludos.