[VB6] Schneller Login über Winsock "Problem"
Hi Leutz,
Thema hat sich erledigt!
ich wollt mich mal mit dem Login über Winsock beschäftigen und hab das ganze mal an eBay ausprobiert, weil ich grad den Account von meinem Dad zum testen parat hatte.
Ich hab auch alles so gemacht, wie es in einem Tutorial beschrieben ist. 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
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
Und dann noch aus dem Modul, wo es eigentlich zur Sache geht:
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?SignIn&_trksid=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
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
MfG
Procelsior