TCP POST Packet Problem

[autoit]

Global $content = "k=" & $f_c & "&s=" & $k_c
Global $packet = 'POST /upload.php HTTP/1.1' & @CRLF & _
'Host: xxx' @CRLF & _
'User-Agent: Mozilla/5.0' & @CRLF & _
'Accept: text/html' & @CRLF & _
'Accept-Language: de-de' & @CRLF & _
'Content-Type: application/x-www-form-urlencoded' & @CRLF & _
'Content-Length: ' & StringLen($content) & @CRLF & _
$content & @CRLF & @CRLF

[/autoit]

Wenn ich es so abschick kommt keine Antwort. Was ist daran falsch??

Ich glaub der Fehler liegt woanders.

[autoit]

TCPStartup()
Global $host = "xx"
Global $packet = 'POST /upload.php HTTP/1.1' & @CRLF & _
'Host: ' & $host & @CRLF & _
'User-Agent: Mozilla/5.0' & @CRLF & _
'Accept: text/html' & @CRLF & _
'Accept-Language: de-de' & @CRLF & _
'Content-Type: application/x-www-form-urlencoded' & @CRLF & _
'Content-Length: ' & StringLen($content) & @CRLF & _
$content & @CRLF & @CRLF

[/autoit][autoit][/autoit][autoit]

Global $socket = TCPConnect(TCPNameToIp("xx"), 80)
if @error Then
MsgBox(16, "Fehler", "Verbinungsfehler")
Exit
EndIf
TCPSend($socket, $packet)
Global $recv, $r = false
Global $timer = TimerInit()
Do
$recv = TCPRecv($socket, 1000)
Until TimerDiff($timer)>1500

[/autoit][autoit][/autoit][autoit]

MsgBox(0, "", $recv)

[/autoit]

packet = english, paket = deutsch....

Edit:
Autsch, voll übersehen
$recv &= TCPRecv($socket, 1000) statt $recv = TCPRecv($socket, 1000)
Trotzdem danke