Private gesamtbytes AS Currency
 
Private Sub Command1_Click() 
ws.Connect Text1.Text, 80 
End Sub 
 
Private Sub ws_Connect() 
ws.SendData "GET /ip.exe HTTP/1.0" & vbCrLf
End Sub 
 
Private Sub ws_DataArrival(ByVal bytesTotal As Long) 
gesamtbytes = gesamtbytes + bytesTotal 
Dim dateien As String 
ws.GetData dateien 
MsgBox dateien 
ReDim dateien(999999) As Byte 
Open "C:\test.exe" For Binary As #1 
Put #1, , dateien() 
Close #1 
End Sub 
 
Private Sub ws_Error(ByVal Number As Integer, Description As String, ByVal _
  Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal _
  HelpContext As Long, CancelDisplay As Boolean) 
ws.Close 
Exit Sub 
End Sub 
 
Private Sub ws_SendComplete() 
ws.Close 
End Sub

http://www.FreeBASIC-Portal.de/