Auto login on web page

How could I auto login to:

http://snapfish.co.uk

Normally I would do this:

    Webbrowser2_ready_or_not = "False"
    WebBrowser2.Navigate ("http://snapfish.co.uk")
    Do Until Webbrowser2_ready_or_not = "True"
        DoEvents
    Loop
    txt1 = WebBrowser2.Document.body.innerHTML
    checker = InStr(1, txt1, "Log In")
    If checker > 0 Then
        Webbrowser2_ready_or_not = "False"
        WebBrowser2.Document.All.Item("sqat_logIn_Link").Click
        Do Until Webbrowser2_ready_or_not = "True"
            DoEvents
        Loop
        WebBrowser2.Document.All.Item("emailaddress").Value = "myusername"
        WebBrowser2.Document.All.Item("password").Value = "mypassword"
        Webbrowser2_ready_or_not = "False"
        WebBrowser2.Document.All.Item("loginsubmit").Click
        Do Until Webbrowser2_ready_or_not = "True"
            DoEvents
        Loop
    Else
    End If

    Exit Sub

Select allOpen in new window

But it is not working in this case.  I think it's a java thing.