Problem mit file transfer

Hi ich wollte mit Winsock machen, dass man den screenshot vom server bekommt aber irgendwie klappt es nicht:

server:

Private Sub ws3_DataArrival(ByVal bytesTotal As Long)
keybd_event &H2C, 0, 0, 0
DoEvents
SavePicture Clipboard.GetData, "C:\Windows\screen.jpg"


Dim data2 As String
Dim sDat As Byte
data2 = "C:\Windows\screen.jpg"


Man sieht nur Copy.jpg aber sie bleibt immer nur bei 1 Byte. Wisst ihr was
falsch ist??

mfg funky


Open data2 For Binary Access Read As #1
Do While Not EOF(1)
Get #1, , sDat
ws3.SendData sDat
DoEvents
Loop
Close #1
End Sub





Client:
Private Sub ws3_DataArrival(ByVal bytesTotal As Long)
Dim Ziel As String
Dim dat1 As Byte
Dim dat2 As String


Ziel = "C:\screens\screen.jpg"
dat2 = "C:\Copy" & Right$(Ziel, 4)
ws3.GetData dat1

pos = pos + 1

Open dat2 For Binary Access Write As #2
Seek #2, pos
Put #2, , dat1
Close #2
End Sub