Hi,
I'm developing a webbrowser. I use the mozilla OCX instead of the Internet
Explorer OCX.
That's the code
Public Sub Login()
With Form1.bsrWeb ' bsrWeb is the name of the Mozillacontrol
.Visible = True
.Navigate ("http://www.hotmail.com";)
'load the initial page
Do Until .ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
'wait for the redirection to take place
Do Until .LocationURL Like "*uilogin*"
DoEvents
'Debug.Print .LocationURL
Loop
'wait for the redirected page to load
Do Until .ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
.Document.Form1.Login.Value = "[EMAIL PROTECTED]" 'emailadress
.Document.Form1.passwd.Value = "*****" 'password
.Document.Form1.submit
End With
End Sub
Private Sub Command1_Click()
Login
End Sub
Can anybody help me?
Thanx a lot!
Benjamin
_______________________________________________
mozilla-embedding mailing list
[EMAIL PROTECTED]
http://mail.mozilla.org/listinfo/mozilla-embedding
