[RESOLVED] Need help sending data to webbrowser

[Jazz00006]

Well, title says it all, I'm having trouble sending data to the webbrowser with the .document function

I am trying to log into amazon.com automaticly and i have tried numerous methods

such as:

PostData = StrConv("[email protected]&password=Y", vbFromUnicode)
WebBrowser1.Navigate "https://www.amazon.com/gp/flex/sign-in/select.html/102-2175624-5181701?ie=UTF8&protocol=https", , , PostData

and

WebBrowser1.Navigate "https://www.amazon.com/gp/flex/sign-in/select.html/102-2175624-5181701?ie=UTF8&protocol=https", , , PostData
Do Until WebBrowser1.Busy = False
DoEvents
Loop

WebBrowser1.Document.Forms(0).Item("email").Text = "[email protected]"

can anyone shed any light on this,

(will this also word with https? or should i give up)

[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

[Jazz00006]

Ahh, so its Document.All, thanks alot ^.^

[lintz]

No probs

[longwolf]

Wow, this is nice, will it work on other email sites like Yahoo and Hotmail?

[lintz]

Yes, you just to need to find the field names within the form and you'll be able to login.

[ishtarsg]

Hi all
Just to check how you activate the "submit" button if the form itself does not have a name

[lintz]

Do you have an example URL we can look at?

[ishtarsg]

There ya go
http://www.ip-adress.com/

[lintz]

that was an easy one

WebBrowser1.Document.All("custom_ip_address").Value = "192.168.0.1"
WebBrowser1.Document.All("submit").Click

[ishtarsg]

Wow thankz a lot

[djwk]

Awesome bit of code, definetly saving that for future reference.

[lintz]

Glad to help

[totonho]

i can login in a window popup? like when login a ftp site?

[linguist2000]

Thanks problem solved