Function HTTPGet(Server$,download_file$,File_s$)
bank = CreateBank(2048)
www=OpenTCPStream( "Server$",80 )
If Not www
Print "Error!"
Delay(5000)
End
EndIf
SENDHEADER$ = "GET /" + download_file$ + " HTTP/1.0" + Chr$(13)+Chr$(10)
SENDHEADER$ = SENDHEADER$ + "Accept: *.*, */*" + Chr$(13)+Chr$(10)
SENDHEADER$ = SENDHEADER$ + "Connection: close" + Chr$(13)+Chr$(10)
SENDHEADER$ = SENDHEADER$ + "Range: bytes=0-" + Chr$(13)+Chr$(10)
SENDHEADER$ = SENDHEADER$ + "Host: www.next-dimension.org" + Chr$(13)+Chr$(10)
SENDHEADER$ = SENDHEADER$ + "Referer: www.next-dimension.org/" + download_file$ Chr$(13)+Chr$(10)
SENDHEADER$ = SENDHEADER$ + "User-Agent: BlitzBasic" + Chr$(13)+Chr$(10)
SENDHEADER$ = SENDHEADER$ + Chr$(13) + Chr$(10)

WriteLine www, SENDHEADER$

Repeat
temphead$ = ReadLine(www)
If Lower(Left(temphead$,Len("content-range: "))) = "content-range: " Then
temphead$ = Replace(temphead$," ","")
temphead$ = Replace(temphead$," ","")
tempstr$ = Right(temphead$,Len(temphead$)-Instr(temphead$,":"))
bytesToRead# = Right(tempstr$,Len(tempstr$)-Instr(tempstr$,"/"))
EndIf
If Lower(Left(temphead$,Len("content-length: "))) = "content-length: " Then
bytesToRead# = Right(temphead$,Len(temphead$)-Len("content-length: "))
EndIf
Until temphead$ = "" Or (Eof(www))

file = WriteFile(File_s$)
Repeat
If i# Mod (2048) = 0 Then
ReadBytes(bank,www,0,2048)
WriteBytes(bank,file,0,2048)
EndIf
i# = i# + 1
Until Eof(www)
CloseTCPStream www
End Function

HTTPGet("clonk-point.de","images/logo.gif","logo.gif")