Urgent Help Winsock failing to send 1 packet

---

Private Sub ws_Connect(Index As Integer)
On Error Resume Next
Dim agent As String, agent1 As String
Dim packket As String, packet1 As String, packet2 As String, packet3 As String, posst As String, login2 As String
For Index = 0 To Combo9.ListCount - 1 & Combo1.ListCount - 1
'For i = 0 To Combo1.ListCount - 1

packet = "GET /cgi-bin/ref.cgi HTTP/1.1" & vbCrLf
packet = packet & "Host: stardrifter.org" & vbCrLf
'agent = Combo9.List(i)
packet = packet & "User-Agent: " & Combo9.List(Index) & vbCrLf
packet = packet & "Referer: " & Combo1.List(Index) & vbCrLf <<<<<<<<<< not sending out

packet = packet & "Accept: */*" & vbCrLf
packet = packet & "Connection: keep -alive" & vbCrLf & vbCrLf
'packet = packet & "Keep-Alive: timeout=7,200,000, max=7,200,000" & vbCrLf
packet = packet & "Keep-Alive: 7,200,000" & vbCrLf
'packet = packet & "Cache -Control: Max -age = 0" & vbCrLf
packet = packet & "Accept-Language: en-US,en;q=0.5" & vbCrLf
packet = packet & "Accept -Encoding: gzip , deflate" & vbCrLf
packet = packet & "Content -Encoding: gzip" & vbCrLf
'packet = packet & "Vary: User -agent" & vbCrLf
packet = packet & "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & vbCrLf
packet = packet & "Accept-Language: en-us,en;q=0.5" & vbCrLf
packet = packet & "Connection: keep-alAccept-Language: en-US,en;q=0.5" & vbCrLf
packet = packet & "Accept -Encoding: gzip , deflate" & vbCrLf



packet = packet & "Accept: image/png,image/*;q=0.8,*/*;q=0.5" & vbCrLf
packet = packet & "Content-Type: application/x-www-form-urlencoded" & vbCrLf
packet = packet & "Content-Length: " & Len(packet) & vbCrLf & vbCrLf & packet

ws(Index).SendData packet
'Next i
'Next Index
Next Index
End Sub

---