|
Registrieren
Login
Autor
LuCkXx
Tutorial Leser
Anmeldedatum: 21.07.2008
Beiträge: 26
Winsock Login Problem
Verfasst am: 16.09.2008, 16:16
Als ich das Tut von LooneyTunes gelesen habe, dachte ich mir, ich probiere das auch mal.
Ich habe mich dann an RapidShare versucht, aber immer wenn ich auf den Button zum checken klicke passiert _nix_.
Woran liegt's?
Ich habe keinen Fehler bei mir gefunden :/
Hier mal die Source:
frm_RSch
Visual Basic 6: [code]
Private Sub cmd_check_Click()
Winsock.Close
Winsock.Connect "https://ssl.rapidshare.com", "80"
End Sub
Private Sub Winsock_Connect()
Login txt_user.Text, txt_pass.Text, Winsock
End Sub
Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
Dim Response As String * 22 'maximal 22 zeichen
Winsock.GetData Response
If Response = "HTTP/1.1 200 OK" Then
lbl_aus.Caption = "Acc0unt is valid"
Exit Sub
Else
lbl_aus.Caption = "Acc0unt is n0t valid"
End If
Winsock.Close
End Sub
Private Sub Form_Unload(Cancel As Integer)
Winsock.Close
End
End Sub
[/code]
RSch.bas
Visual Basic 6: [code]
Public Function Login(Username As String, Password As String, WSock As Winsock)
Dim Packet As String: Dim PacketLenght As Long
PacketLenght = 34 + Len(Username) + Len(Password)
Packet = "POST /cgi-bin/premiumzone.cgi HTTP/1.1" & vbCrLf
Packet = Packet + "Host: " & WSock.RemoteHost & vbCrLf
Packet = Packet + "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.0.1) Gecko/2008070208 Firefox/3.0.1" & vbCrLf
Packet = Packet + "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & vbCrLf
Packet = Packet + "Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3" & vbCrLf
Packet = Packet + "Accept-Encoding: gzip,deflate" & vbCrLf
Packet = Packet + "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & vbCrLf
Packet = Packet + "Keep-Alive: 300" & vbCrLf
Packet = Packet + "Connection: keep-alive" & vbCrLf
Packet = Packet + "Referer: https://ssl.rapidshare.com/premiumzone.html" & vbCrLf
Packet = Packet + "Content-Type: application/x-www-form-urlencoded" & vbCrLf
Packet = Packet + "Content-Length: " & PacketLenght & vbCrLf & vbCrLf
Packet = Packet + "uselandingpage=1&login=" & Username & "&password=" & Password
WSock.SendData Packet
End Function[/code]
kann mir jemand helfen?
_________________
Jings
Poster
Anmeldedatum: 02.05.2008
Beiträge: 123
Verfasst am: 16.09.2008, 16:29
So auf Anhieb und beim drüber schaun hab ich jetzt auch keinen Fehler gesehen.
Lass dir die Response von Winsock doch einfach mal in einer MsgBox oder in einem Textfeld zurückgeben.
Und wenn dort nichts ankommt, kann auch nicht geprüft werden 
^^kev####
Überflieger
Anmeldedatum: 01.05.2008
Beiträge: 476
Wohnort: Haan
Verfasst am: 16.09.2008, 16:32
Ich glaube es liegt ganz einfach dadran,
dass Rapidshare nicht so wie YouTube den Fehlercode HTTP/1.x 303 See Other zurückt gibt.
_________________
Jings
Poster
Anmeldedatum: 02.05.2008
Beiträge: 123
Verfasst am: 16.09.2008, 16:35
Eben aus diesem Grund, soll er sich ja mal beides ausgeben lassen.
Als ich versucht habe das ganze für eBay zu coden, hab ich sowohl bei richtigen Login-Daten als auch bei nicht richtigen Login-Daten die gleiche Response zurück bekommen. Und aus dem Grund kam bei immer die MsgBox, dass der Acc invalid ist.
Man muss seinen Code halt einfach mal durchexcerzieren, damit man den Fehler (der nicht zwingend auf der Seite des Entwicklers liegen muss) finden kann.
LuCkXx
Tutorial Leser
Anmeldedatum: 21.07.2008
Beiträge: 26
Verfasst am: 16.09.2008, 16:39
Und wenn dort nichts ankommt, kann auch nicht geprüft werden
hatte ich zuerst, hat auch nix gebracht
dass Rapidshare nicht so wie YouTube den Fehlercode HTTP/1.x 303 See Other zurückt gibt.
hab ich gemacht
bei mir ist es
"HTTP/1.1 200 OK"
bringt auch nix
ich habe auch schon "HTTP/1.x 200 OK" und "HTTP/1.1 303 See Other" probiert, keins von beiden geht ...
Poster
Anmeldedatum: 02.05.2008
Beiträge: 123
Verfasst am: 16.09.2008, 16:54 |
|
| Was wird dir denn in der Textbox zurückgegeben, wenn du gültige Login-Daten nimmst? Und was wird dir in der Textbox zurückgegeben, wenn du ungültige Login-Daten nimmst? Wenn dir bei beiden nichts angezeigt wird, dann denke ich mal, dass was an deinem Packet falsch ist, was du sendest. Wenn du bei beiden das gleiche in der Textbox ausgegeben bekommst, dann kannste das eh vergessen, weil eben kein unterschied vorhanden ist. MfG |
|
Tutorial Leser
Anmeldedatum: 21.07.2008
Beiträge: 26
Verfasst am: 16.09.2008, 16:59 |
|
| es wird gar nichts ausgegeben ... aber ich habe alles kopiert also dürfe ja nix falsch sein hier mal ein auszug aus'm Live HTTP Header, vllt findet ja jemand den fehler https://ssl.rapidshare.com/cgi-bin/premiumzone.cgi POST /cgi-bin/premiumzone.cgi HTTP/1.1 Host: ssl.rapidshare.com User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.0.1) Gecko/2008070208 Firefox/3.0.1 Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8 Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3 Accept-Encoding: gzip,deflate Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7 Keep-Alive: 300 Connection: keep-alive Referer: https://ssl.rapidshare.com/premiumzone.html Content-Type: application/x-www-form-urlencoded Content-Length: 50 uselandingpage=1&login=XXX&password=XXX HTTP/1.x 200 OK P3P: CP="ALL DSP COR CURa ADMa DEVa TAIa PSAa PSDa IVAa IVDa CONa TELa OUR STP UNI NAV STA PRE" Date: Tue, 16 Sep 2008 16:56:13 GMT Connection: close Accept-Ranges: bytes Content-Type: text/html; charset=ISO-8859-1 Cache-Control: no-cache Set-Cookie: user=XXX-%34%68%43%50%63%6A%43%6B%62%54; domain=.rapidshare.com; path=/; expires=XXX Content-Length: 44151 | |
