Download("www.google.de","/intl/de_de/images/logo.gif","C:\image.gif")
Download("www.tw-tools.com","/static/images/logo.png","C:\image.png")

Function Download(host$, url$, name$)
 file = WriteFile(name$)
 tcp = OpenTCPStream(host$,80)
 If tcp=0 Then Print "Verbindung fehlgeschlagen...":WaitKey:End

 WriteLine tcp, "GET "+url$+" HTTP/1.0"
 WriteLine tcp, "Host: " + host$
 WriteLine tcp, "Useragent: Browser"
 WriteLine tcp, Chr$(10)

 Repeat Delay 500 Until ReadAvail(tcp)>0
 Print "ReadAvail="+ReadAvail(tcp):WaitKey
 Repeat Until ReadLine$(tcp)=""

 Repeat
  WriteByte file, ReadByte(tcp)
 Until Eof(tcp)=1

 Print "Fertig"
 WaitKey

 CloseTCPStream tcp
 CloseFile file
End Function

[21:53:23] GET / HTTP/1.1
[21:53:23] Host: localhost
[21:53:23] User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.8.1.6) Gecko/20070725 Firefox/2.0.0.6
[21:53:23] Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
[21:53:23] Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3
[21:53:23] Accept-Encoding: gzip,deflate
[21:53:23] Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
[21:53:23] Keep-Alive: 300
[21:53:24] Connection: keep-alive

Repeat Delay 500 Until ReadAvail(tcp)>0

//Download
inline bool Download(String url, String toFile = "", int timeout = 15000, short port = 80)
{
   if(url.StartsWith("http://"))
   {
      url.EraseLeft(7);
   }
   
   String host = url.Until('/');
   String path = url.From('/');
   
   TCPStream stream = CreateTCPStream();
   stream->SetTimeouts(timeout, timeout);
   stream->SetRemoteIP(host);
   stream->SetRemotePort(port);
   
   EngineLog3("Trying to connect to " << stream->GetRemoteIP() << "...");
   if(!stream->Connect())
   {
      EngineLogError("Can't connect to " << stream->GetRemoteIP());
      return false;
   }
   EngineLog3("Connected.");
   
   EngineLog3("Sending HTTP query...");
   stream->WriteLine("GET " + path + " HTTP/1.0");   //TODO: HTTP/1.1
   stream->WriteLine("Host: " + host);
   stream->WriteLine("Connection: close");
   stream->WriteLine("");
   stream->SendAll();
   EngineLog3("Sent.");
   
   EngineLog3("Waiting for messages...");
   int startWaiting = MilliSecs();
   int avail;
   while((avail = stream->GetAvail()) == 0)
   {
      Delay(1);
      if(MilliSecs() - startWaiting > timeout)
      {
         EngineLogError("Timeout");
         return false;
      }
   }
   EngineLog3("Done. " << avail << " bytes available in the first package.");
   
   EngineLog3("Receiving...");
   stream->RecvAll();
   EngineLog3("Received.");
   
   String line = "-";
   if(toFile.IsEmpty() && (toFile = StripDir(url)).IsEmpty())
   {
      EngineLog3("Reading HTTP response...");
      while(!stream->Eof() && line != "")
      {
         stream->ReadLine(line);
         if(line.StartsWith("Content-Type:"))
         {
            toFile = "index." + line.Mid(14).From('/', 1);
         }
         EngineLog3(line);
      }
      EngineLog3("Done.");
      
      if(toFile.IsEmpty())
         toFile = "index.html";
   }
   else
   {
      EngineLog3("Ignoring HTTP response...");
      while(!stream->Eof() && line != "")
      {
         stream->ReadLine(line);
         EngineLog3(line);
      }
      EngineLog3("Done.");
   }
   
   EngineLog3("Writing content to file " << toFile << "...");
   FileWriteStream fileStream = CreateFileWriteStream(toFile);
   fileStream->WriteStreamContent(stream);
   EngineLog3("Written.");
   
   return true;
}

HTTP/1.0 200 OK
Connection: close
Content-Type: image/png
Accept-Ranges: bytes
ETag: "-4136930544340843751"
Last-Modified: Sat, 24 Mar 2007 15:05:48 GMT
Content-Length: 72590
Date: Sat, 11 Aug 2007 07:08:38 GMT
Server: lighttpd/1.4.15