Visual Basic Forum

Jings · Poster Anmeldedatum: 02.05.2008 Beiträge: 123

Hi liebe Leutz,

ich wollt mich mal mit dem Tutorial von LoneyToons beschäftigen und hab das ganze mal an eBay ausprobiert, weil ich grad den Account von meinem Dad zum testen parat hatte.
Meiner Meinung nach, habe ich alles so gemacht wie im Tutorial. Doch ich bekomme, egal was ich mache immer per MsgBox ausgegeben, dass der Account nicht vorhanden ist.

Ich habe mich auch vergewissert, ob die "Response von Winsock" bei erfolgreichem und nicht erfolgreichem Login unterschiedlich ist und ja das ist sie. Also da kann der Fehler nicht liegen.

Dadurch, dass der Cookie von eBay so übertrieben lang ist und auch die letzte Zeile, in der der Username und das Passwort gesendet werden, musste ich die Zeilen aufsplitten, was ja mit "& _" absolut kein Problem ist.

So ich hab hier mal den Sourcecode:

1. Formular
Visual Basic: [code]
Private Sub cmdCheck_Click()
Winsock1.Close
Winsock1.Connect "www.ebay.de", "80"
End Sub

Private Sub Form_Unload(Cancel As Integer)
Winsock1.Close
End
End Sub

Private Sub Winsock1_Connect()
Login txtUser.Text, txtPW.Text, Winsock1
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim eingang As String * 15

Winsock1.GetData eingang

If eingang = "HTTP/1.x 200 OK" Then
MsgBox "Gültiger Account", vbInformation, "Treffer"
Exit Sub
Else
MsgBox "Ungültiger Account", vbCritical, "Fehler"
End If
Winsock1.Close
End Sub[/code]

Und dann noch aus dem Modul, wo es eigentlich zur Sache geht:
Visual Basic: [code]
Public Function Login(User As String, Pass As String, Winsock1 As Winsock)

Dim Daten As String, packetlenght As Long

paketlenght = 1975 + Len(User) + Len(Pass)

Daten = "POST /ws/eBayISAPI.dll?co_partnerid=2&siteid=77&UsingSSL=1 HTTP/1.1" & vbCrLf
Daten = Daten + "Host: signin.ebay.de" & vbCrLf
Daten = Daten + "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.0.1) Gecko/2008070208 Firefox/3.0.1" & vbCrLf
Daten = Daten + "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & vbCrLf
Daten = Daten + "Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3" & vbCrLf
Daten = Daten + "Accept-Encoding: gzip,deflate" & vbCrLf
Daten = Daten + "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & vbCrLf
Daten = Daten + "Keep-Alive: 300" & vbCrLf
Daten = Daten + "Connection: keep-alive" & vbCrLf
Daten = Daten + "Referer: https://signin.ebay.de/ws/eBayISAPI.dll?Sig...rksid=m38" & vbCrLf
Daten = Daten + "Cookie: dp1=ba1p/048af4066^pbf/%231440002044a8f2266^fm/2.1.248d3c957^tzo/-784c6f1700^spref/774c7055e6^etfc/0492495e6^vrvi/0%7C0%7C48bb1de6^reg/%5EflagReg%3D1%5Ebibo%3DB4%2308%2F09%2F2008%232%23S0%23%233%23B4%23S0%230%5E52140300^pcid/21439851834a8f2266^u1p/QEBfX0BAX19AQA**4a8f2266^hps/500000018348b576d8^; nonsession=BAQAAARvYQsJ9AAaAADUABEqPImZiaWJvADMACUqPImY1MDM4OSxERVUACAAdSNV75jEyMTkyNzMxNDZ4MjIwMjY5MjAxNDk0eDc3eDJOAMsAAUit9e43AMoAIFIT8GY0MmIyNTUxNzExYjBhMGFjNjRiMzg2YzNmZmZkMDRiNwFNABZKjyJmNDhhZGVlZTYuNzcuMS4xMS4yMS4wLgCdAAhKjyJmMDAwMDAwMDABTAAWSo8iZjQ4YWRlZWU2Ljc3LjEuMTAuMTcuMC4A8gAKSK5j8DEuOTkxNDgyNDfPw5fmQXpuhKdmHKZ/ilPhUeJHcg**; npii=btguid/42b2551711b0a0ac64b386c3fffd04b74a64f6a9^; lucky9=8814799; cid=PSaTrz8wC8UaVHWF%232143985183; ns1=BAQAAARvYQsJ9AAaAANgATkqPImZmMDAwYzcwfDU2M14xMjE4MzczNjA1MDE4XmFIVnRjRzkwXjFeM3wyfDUwfDV8NHwxMXw3XjFeMl40XjJeMTJeMTJeMl4xXjFeMF4xXjAApwAJSo8iZjk5MTQ4MjQ3OwClAA9KjyJmOTkxNDgyNDcvMTQxMDA7QT3RjIvMHXH69" & _
"v7f8NWCI9vYhEQ*; shs=BAQAAARvYQsJ9AAaAAVUADUi3KUAyOTY5NjA2ODAwNywxnjqcsbQhjh15uQNjSLcFfePTkKQ*; ebay=%5Ejs%3D1%5Esbf%3D%23100000%5EsfLMD%3D1218011615%5Ecv%3D15555%5Ecos%3D3%5Edv%3D48adeee8%5E; s=BAQAAARvYQsJ9AAWAABIACkivQGZ0ZXN0Q29va2llAPgAIEivQGZlNzZjNDYxYjExYjBhMGI1ODcwNzMxNDdmZmNiYTVmYgFFAAhKjyJmNDQ2MmZkNTkAPQAGSK9AZmh1bXBvdAFKABVIr0BmNDhhZGVlZTYuNzcuMS45LjE3LjguQkhh3FKpFGmFkijXPTYcF4hk9Fw*; ds1=ats/-1; secure_ticket=n; secses=BAQAAARvYQsJ9AAaAAUsAFUqPImY0OGFkZWVlNi43Ny4xLjcuMTUuOC6nyQHfSMPfm3yTo6KqRF/ytIpZ7A**; secure_ticket_l2=n" & vbCrLf
Daten = Daten + "Content-Type: application/x-www-form-urlencoded" & vbCrLf
Daten = Daten + "Content-Length:" & packetlenght & vbCrLf & vbCrLf
Daten = Daten + "MfcISAPICommand=SignInWelcome&bhid=&lse=true&lsv=9.0.124&mid=AQAAARtxQ5J%2FAAUxMWI2YWUzYmNlZC5hMGI0NjIzLjY3ZWE2LmZmZjkxNGU3LDI5Njk2MDY4MDA3LDEwLDk5MTQ4MjQ3gVfIZP5ZL%2FPmW2zuuQUi6q8u40k*&hmid=AQAAARvYQsJ9AAU2YWUzNzIxZjExYjBhMGI0NjIxMjkwMjJmZmQ1OWRiOSwwLC0xHwuUvqR2guYNrRFfZMPKn9WNNRc*&siteid=77&co_partnerId=2&UsingSSL=1&ru=&pp=&pa1=&pa2=&pa3=&i1=-1&pageType=-1&rtmData=A01%3DgOoD7d22CAAAAAAAgCBEA8RAmQeQwAjZCkAQQSsIEEbAAA4JAAggBAAk6NAA3gIAwZEAAk24DAnMJVRAgQxUwAAGK8SXhB9IxHAjUBAEfkgA9FDIgxgTFwEAAPEAAAzfBQDE7AgA6RBMgAAAEMAAwABAAMgAAAEkKUABvJFEAsFNCgBFQAebHIA4CEEEAYRABAQEQAwDBEA4QAmGCIwAABBEAIhACAIEgAwBEEAQQABACIgAQABYAQQAFNEEwcwAE0HcQB%2BAKkQOgACECQQAEAGEQ3AAB0NIgB%3BM01%3DwYS6Jg3hillDAAAAAAAAAAAAAAAAAAAAAAAAHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABBAAAAFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _
"AAAAAAAAAAAAAAAAAAAAJtAQYCAAw7AA32J8DiAXB8EuUEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAU4JJrAAgAAAAAAAIAeEZxDvgEOcA8Jrj%2FoP2AT4EDBiPgeKcgBU4hDgaA8MEAY8JEAT4iFAAAD%3BTC01%3DwO8IMtd%2BGBAAA6wenttAAAAAAAAoQAjZAwHBQ6Nh8gAC4dYgxMBKWWOBggkCAAAAAAAAAAAAAAAAAAAAAAAAnFhgYBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQQAAAAQFAAAeAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAACCAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAQqAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA3AAcDAAAAAAAAAAAAAAAAAAAiAAnBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAQaAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAw4DAnAAAAAAAAAAAAAATSVEAJFEKmCKAEeAADFIAAAvv0VYwAA3WPS8BcCPjUBAEfkgADi9FDIAwZM4UBFwT4SRwEAAPAAAAAAAAAAAAAAAAAAAAABAAwAAAAAAAAAAAAAAAAA%2FFANQhnksG7AgAAoHFwAAIBAAIAAYAAgBAgAAAGAAEAAgAAgUhCIIAeeTKIARCbRjAFP8iBFQAg82OQAhDBXgggBwPAwiAIrBAQEw4HA8QAjeAgDBM2mGCIAwMAQQAhHAIhAEDBCAIEg4FAOggA6pAACCI8AABEAYEACIAQGAEEQ4FNEEQ4zBDQAAq9BHUQA8M4DoQCBAGfCROgACAMhAEEQ4EAGEgY7GAIAguBBMAAAD%3BPS%3DT.0&userid=" & User & "&pass=" & Pass

frmMain.Winsock1.SendData Daten

End Function[/code]

Wieso will das ganze nicht so funktionieren, wie ich das will?
Liegt es an der SSL Verschlüsselung von eBay (obwohl ich das bezweifle, weil der Login bei ICQ und bei studivz auch nicht geklappt hat) oder liegt es an einem Fehler von meiner Seite aus?

Danke schonmal im Voraus für eure Hilfe Smile

MfG
Jings

Habs selber rausbekommen!
Die Response ist halt bei den Seiten, die ich ausprobiert habe nicht unterschiedlich. In Live HTTP Headers ist sie unterschiedlich dargestellt aber nicht, wenn ich meinen Source durchbugge!
_________________

LooneyToons · Poster Anmeldedatum: 01.05.2008 Beiträge: 125

hier , hab vergessen , dass man bei der response öfters , mehrere responses bekommt =) mach dann einfach noch ne If-Clause

Visual Basic: [code]
Private Sub cmdCheck_Click()
Winsock1.Close
Winsock1.Connect "www.ebay.de", "80"
End Sub

Private Sub Form_Unload(Cancel As Integer)
Winsock1.Close
End
End Sub

Private Sub Winsock1_Connect()
Login txtUser.Text, txtPW.Text, Winsock1
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim eingang As String * 15

Winsock1.GetData eingang

If eingang <> vbNullstring Then
If eingang = "HTTP/1.x 200 OK" Then
MsgBox "Gültiger Account", vbInformation, "Treffer"
Exit Sub
Else
MsgBox "Ungültiger Account", vbCritical, "Fehler"
End If
End If
Winsock1.Close
End Sub[/code]

//Edit: ausserdem ändert sich glaubsch noch das HTTP/1.x 200 OK in sowas wie HTTP/1.1 200 OK hab leider kein ebay account und kann das somit nicht testen ^^