eBay Login Help ***RESOLVED**

[rnm89]

I am using this code to login into eBay. text1.text is being loaded correctly but not the password.

Thanks for any help:


Private Sub Command1_Click()

Dim userid As String
userid = Text1.Text

Dim password As String
password = Text2.Text


Dim strData() As Byte
Dim strURL As String
Dim strHeaders As String

strURL = "http://cgi3.ebay.com/aw-cgi/eBayISAPI.dll"
strData = "MfcISAPICommand=SignInWelcome&" & _
"siteid=0&" & _
"co_partnerId=2&" & _
"UsingSSL=0&" & _
"ru=http%3A%2F%2Fcgi1.ebay.com%2Faw-cgi%2FeBayISAPI.dll%3FMyEbayLogin%26pass%3D%7B_pass_%7D%26userid%3D&" & _
"pa1=&" & _
"pa2=&" & _
"pa3=&" & _
"pp=pass&" & _
"i1=0&" & _
"pageType=174&" & _
"userid=&" & userid & _
"pass=&" & password & _
"keepMeSignInOption=1"


strHeaders = "Content-Type: application/x-www-form-urlencoded" & vbCr
strData = StrConv(strData, vbFromUnicode)

Call Me.WebBrowser1.Navigate2(strURL, 0, "", strData, strHeaders)

End Sub

[dzzie]

the first thing that pops out at me is this

"userid=&" & userid & _
"pass=&" & password & _
keepMeSignInOption=1"

the & signifies the beginning of a new field
it should be

"userid=" & userid & _ 
"&pass=" & password & _ 
"&keepMeSignInOption=1"

if the userid or password contain any spaces or other
special chars, make sure you url escape them as well.

http://sandsprite.com/Sleuth/papers/...ed_Strings.txt

[rnm89]

Thanks dzzie, That worked GREAT!!