WriteLine tcp, "POST "+script$+" HTTP/1.1"
WriteLine tcp, "User-Agent: BlitzBasic"
WriteLine tcp, "Host: "+host$
WriteLine tcp, "Accept: */*"
WriteLine tcp, "Content-length: "+length
WriteLine tcp, "Content-Type:  multipart/form-Data; boundary=----------"
WriteLine tcp, ""
WriteLine tcp,  "------------"
WriteLine tcp, "Content-Disposition: form-data; name="+Chr$(34)+POSTvariable$+Chr$(34)

WriteLine tcp, "POST "+script$+" HTTP/1.1"

<input type="file" name="name" ...>

DownloadFile("http://www.blitzprog.com/scripts/ip.php")

;Datei-Download
Function DownloadFile(url$,dest$="",port=80)

   If Lower$(Left$(url$,6))="ftp://"
      count=Len(url$)-7
      url$=Right$(url$,count)
   EndIf

   If Lower$(Left$(url$,7))="http://"
      count=Len(url$)-7
      url$=Right$(url$,count)
   EndIf

   pos=Instr(url$,"/")-1
   web$=Left$(url$,pos)
   file$=Right$(url$,Len(url$)-pos)

   If dest$=""
      dest$=url$
      While Instr(dest$,"/")
         dest$=Right$(dest$,Len(dest$)-Instr(dest$,"/"))
      Wend
   EndIf

   stream = OpenTCPStream(web$,port)

   If stream=0 Then Return 0
   
   WriteLine stream,"GET "+file$+" HTTP/1.0"
   WriteLine stream,"Host: "+web$
   WriteLine stream,""
   
   Delay 1
   
   returns$=ReadLine$(stream)
   stream_lenth=0
   While (returns$<>"") And (Not KeyDown(1))
      If Upper$(Left$(returns$,16))="CONTENT-LENGTH: "
      stream_length=Mid(returns$,17,Len(returns$)-16)
      EndIf
      returns$=ReadLine$(stream)
   Wend
   
    destfile = WriteFile(dest$)
   
   returnb=ReadByte(stream)
    wait=MilliSecs()+1000
   If destfile Then WriteByte destfile,returnb
   byte=0
   all=1

   While (ReadAvail(stream) Or MilliSecs()<wait) And (Not KeyDown(1))
      If MilliSecs()>chktime
         checked=byte
         all=all+byte
         byte=0
         kbps#=checked/1024.
         If stream_length>0 And kbps#>0
            remaining=((stream_length-all)/(kbps#*1000))
            hr=remaining/3600 - (remaining/3600 Mod 1)
            mi=remaining/60 - (remaining/60 Mod 1)
            se=remaining Mod 60
            hour$=hr
            minute$=mi
            seconds$=se
            If hr<10 Then hour$="0"+hr
            If mi<10 Then minute$="0"+mi
            If se<10 Then seconds$="0"+se
            remain$=hour$+":"+minute$+":"+seconds$
            If all=stream_length Then remain$="R:E:A:D:Y"
         Else
            remain$="??:??:??"
            If all=stream_length And all>1 Then remain$="R:E:A:D:Y"
         EndIf
         ;Cls
         ;Text 1,1,kbps#
         ;Text 1,20,all
         ;Text 1,40,stream_length
         ;Text 1,60,remain
         lastcheck=MilliSecs()
         chktime=MilliSecs()+1000
      EndIf
      If ReadAvail(stream)
         returnb=ReadByte(stream)
         If destfile Then WriteByte destfile,returnb
             wait=MilliSecs()+2000
         byte=byte+1
      EndIf
   Wend
   
   If KeyDown(1) Then
       CloseFile destfile
       DeleteFile destfile
       CloseTCPStream stream
       Return 0
    EndIf
   
   CloseTCPStream stream
   If destfile Then CloseFile destfile
   
   Return 1
   
End Function