Global port, ip$,tcp,daten 
Dim pos(6) 

time = MilliSecs() 
tcp = OpenTCPStream (\"server adrese\",21);ftp server 

nachricht$ = ReadLine(tcp) 
Print nachricht 


;Anmeldung 
WriteLine tcp,\"USER \"+\"loginname\" ;ftp loginname 
nachricht$ = ReadLine(tcp) 
Print nachricht 

WriteLine tcp,\"PASS \"+\"passwort\" ;ftp passwort 
nachricht$ = ReadLine(tcp) 
Print nachricht 

WriteLine tcp,\"TYPE I\" ;binär Modus! 
nachricht$ = ReadLine(tcp) 
Print nachricht 

WriteLine tcp, \"PASV\" ;passiver Transfermodus 
nachricht$ = ReadLine(tcp) 
IP_PORT(nachricht$) ;2. ip aus nachricht holen 



daten = OpenTCPStream (ip$,port) 
file$ =\"Mike.exe\" ;zieldatei, die du runterladen willst 

WriteLine tcp,\"RETR \"+file$ 
nachricht$ = ReadLine(tcp) 
Print nachricht 


datei = WriteFile(\"C:/Programme/Mike/\"+ file$) 
bank=CreateBank(10000) 

Repeat 
anz=ReadBytes(bank,daten,0,10000) 
WriteBytes bank,datei,0,anz 
Until anz<>10000 

FreeBank bank 
CloseFile datei 


CloseTCPStream daten 

nachricht$ = ReadLine(tcp) 
Print nachricht 

Print \"Downloadzeit: \" + (MilliSecs()-time) +\" Millisekunden.\" 

WaitKey 
End 


;empfangene Ip für den Download umwandeln. 
Function IP_PORT(nachricht$) 
ip$ =\"\" 
port = 0 
punkt$ =\".\" 

pos(0) = (Instr(nachricht$,\"(\")+1) 

For i = 1 To 4 
pos(i) = Instr(nachricht$,\",\",pos(i-1)+1) 
If i > 1 Then t = 1 
stelle$ = Mid(nachricht,pos(i-1)+t,pos(i)-pos(i-1)-t) 
If i = 4 Then punkt$ =\"\" 
ip$ = ip$ + stelle$ + punkt$ 
Next 

pos(5) = Instr(nachricht$,\",\",pos(4)+1) 
zahl1 = Mid(nachricht,(pos(4)+1),pos(5)-(pos(4)+1)) 

pos(6) = Instr(nachricht$,\")\",pos(5)+1) 
zahl2 = Mid(nachricht,(pos(5)+1),pos(6)-(pos(5)+1)) 

port = zahl1*256 + zahl2 

Print \"IP: \" + ip$ 
Print \"PORT: \" +port 
End Function