[RESOLVED] Need help sending data to webbrowser

[lintz]

This works for me.

Dim PageComplete As Boolean
 
Private Sub cmdLogin_Click()
'wb1 = webbrowser control
wb1.Document.All("email").Value = "[email protected]" 'email address
wb1.Document.All("password").Value = "YourPassword" 'password
wb1.Document.Forms("sign-in").submit 'login
End Sub
 
Private Sub Form_Load()
'wb1 = webbrowser control
wb1.Navigate ("https://www.amazon.com/gp/flex/sign-in/select.html/102-2175624-5181701?ie=UTF8&protocol=https")
 
Do Until PageComplete = True
    DoEvents
Loop
 
End Sub
 
Private Sub wb1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
 
    If pDisp = wb1 Then
    PageComplete = True
    End If
    
End Sub