Public WsockSpeicher as String
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strTemp As String
Winsock1.GetData strTemp
WsockSpeicher = WsockSpeicher & strTemp
End Sub
 
Private Sub Winsock1_Close()
On Error Resume Next
Kill App.Path & "\tmpImg.jpg"
Open App.Path & "\tmpImg.jpg" For Binary As #1
Put #1, , Mid(WsockSpeicher, 5) 'Daten erst ab 5. Stelle auslesen, wenn vorher 
' ein 4 Byte langer Header kommt
Close #1
WsockSpeicher = ""
End Sub