http post request mit winsock

  • VB6

    http post request mit winsock

    hey leute

    ich hab mir zum testen ein kleiner programm geschrieben um einen http post request an google.de zu schicken. der request wird anscheinend abgeschickt aber ich bekomme keine antwort vom server zurück. ich hab mal den traffic mitgeschnitten und gesehen, dass ein 400er bad request zurück kommt. wieso zeigt mir mein prog das nicht an? dataarrival wird nicht aufgerufen aber waurm?

    edit: in dem code steht jetzt GET, probiert habe ich beides!

    quellcode

    Visual Basic-Quellcode

    1. Private conn As Boolean
    3. Private Sub Command1_Click()
    4. sock.RemoteHost = "www.google.de"
    5. sock.RemotePort = 80
    6. sock.Protocol = sckTCPProtocol
    7. sock.Connect
    8. Do While conn = False
    9. DoEvents
    10. Loop
    12. header = "GET / HTTP/1.1" & vbCrLf & _
    13. "Host: google.de" & vbCrLf & _
    14. "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.0.14) Gecko/2009082707 Firefox/3.0.14 (.NET CLR 3.5.30729)" & vbCrLf & _
    15. "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & vbCrLf & _
    16. "Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3" & vbCrLf & _
    17. "Accept-Encoding: gzip,deflate" & vbCrLf & _
    18. "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & vbCrLf & _
    19. "Keep-Alive: 300" & vbCrLf & _
    20. "Connection: keep-alive"
    22. 'MsgBox header
    23. sock.SendData header
    24. End Sub
    26. Private Sub Form_Load()
    27. conn = False
    28. End Sub
    30. Private Sub sock_Connect()
    31. conn = True
    32. End Sub
    34. Private Sub sock_DataArrival(ByVal bytesTotal As Long)
    35. Dim data
    36. sock.GetData data
    37. MsgBox data
    38. End Sub
    40. Private Sub sock_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    41. MsgBox Description
    42. End Sub

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „distX“ ()

Facebook
Telefonspende