Visual Basic Forum

Evonix · Newbie Anmeldedatum: 19.07.2008 Beiträge: 3

Habe zu diesem Tutorial eine Frage:
http://www.visual-basic-forum.de/viewtopic.php/schnell...insock-773.html

Ich habe das geändert:

Visual Basic: [code]Public Function Login(Username As String, Password As String, WSock As Winsock)

Dim Packet As String: Dim PacketLenght As Long

PacketLenght = 549 + Len(Username) + Len(Password)

Packet = "POST /gp/flex/sign-in/select.html HTTP/1.1" & vbCrLf
Packet = Packet + "Host: www.amazon.de" & 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://www.amazon.de/gp/sign-in.html?ie=UT...yourstore" & vbCrLf
Packet = Packet + "Cookie: session-id-time=1221429600l; session-id=302-7735937-7838444; ubid-acbde=302-7403452-2682059; session-token=cGyXapEej14fw3CjKAFS6/Hz+htIdfGVWxCejWncgKM8/01zqQ5SReApbAqYO0tI8K17mcFzyJtU1eOumaUUMIp0j1Nvnjv5saZc/CmfgM3tFIxk4k+QXYjSaNj8O92EOb9EIJ2Y1gCEPaAkCJMTzaD7fHQ6HdC96d+H7Ng78fsNyZcjL/sn/iWN2Gk8cLhdagUk/xEqpRHxTi8vePldFA==" & vbCrLf
Packet = Packet + "Content-Type: application/x-www-form-urlencoded" & vbCrLf
Packet = Packet + "Content-Length: " & PacketLenght & vbCrLf & vbCrLf
Packet = Packet + "__mk_de_DE=%C5M%C5Z%D5%D1&path=%2Fgp%2Fyourstore&useRedirectOnSuccess=1&query=signIn%3D1%26ref_%3Dpd_irl_gw&mode=&redirectProtocol=&pageAction=%2Fgp%2Fyourstore&disableCorpSignUp=&protocol=https&sessionId=302-7735937-7838444&referer=flex&email=" & Username & "&action=sign-in&password=" & Password & "&x=176&y=8&metadata1=Firefox+3.0.1+Windows&metadataf1=&metadata2=Mozilla+Default+Plug-in+Shockwave+Flash+90124Microsoft%AE+DRM+Windows+Media+Player+Plug-in+Dynamic+Link+Library+%7C%7C1280-1024-994-32-*-*-*&metadata3=timezone%3A+-1+execution+time%3A+1"

WSock.SendData Packet

End Function[/code]

Visual Basic: [code]Private Sub cmd_login_Click()
Winsock.Close
Winsock.Connect "www.amazon.de", "80"
End Sub

Private Sub Form_Unload(Cancel As Integer)
Winsock.Close
End
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

Winsock.GetData Response

If Response = "HTTP/1.1 303 See Other" Then
MsgBox "This account is correct!", vbInformation, "CORRECT"
Exit Sub
Else
MsgBox "This account is incorrect!", vbCritical, "INCORRECT"
End If
Winsock.Close

End Sub[/code]

Vielleicht kann mir jemand sagen warum das nicht funktioniert.

MfG