Código:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim buffer() As Byte
Dim packet() As Byte
Dim header As String 'aqui se guardarán los headers (información sobre el archivo asi como tamaño, etc)
Winsock1.GetData buffer
For i = 0 To bytesTotal
header = header & Chr(buffer(i))
n = InStr(1, header, vbCrLf & vbCrLf, vbTextCompare) ' si encuentra dos veces salto de línea significa que empieza los datos binarios del archivo.
If n >= 1 Then
Exit For
End If
Next i
End Sub
He probado algo así como:
packet = buffer(Len(header) To bytesTotal)
y sin exito ninguno xDD
PD: He probado en hacer
Código:
For i = Len(header) to bytesTotal
packet(i-Len(header) = buffer(i)
next i
Pero despues al poner eso en un archivo final no lo hace bien
Código:
Open "C:/archivo.rar" For Binary As #1
Put #1, , packet
Close #1