www = OpenTCPStream("vertex.art-fx.org", 80)
If Not www Then
   Notify "Konnte nicht verbinden!"
   End
EndIf

WriteLine www, "GET http://vertex.art-fx.org/3D/wireframe2.png HTTP/1.0"
WriteLine www, ""

For I = 1 To 10
   Print ReadLine(www)
Next

stream = CreateFile("temp.png")
While Not Eof(www)
   WriteByte stream, ReadByte(www)
Wend

CloseFile stream
CloseTCPStream www

Graphics 323, 253, 0, 0
image = LoadImage("temp.png")
DrawImage image, 0, 0
Flip
WaitKey
End

         Case NETLIB_TCP_CLIENT
            If iSocket = INVALID_SOCKET Then Return 0

            s_FD_ZERO(TNetwork.tFDSRead)
            s_FD_SET(iSocket, TNetwork.tFDSRead)
           
            If s_select(0, TNetwork.tFDSRead, Null, Null, tReadTimeout) = SOCKET_ERROR Then Return 0

            iResult = s_recv(iSocket, pBuffer, iCount, 0)
            If iResult = SOCKET_ERROR Then
               Close()
               iEOF = -1
               Return 0
            ElseIf iResult = 0 Then
               Close()
               Return 0
            Else
               iEOF = 0
               Return iResult
            EndIf

Print StreamSize(TCP)
File = WriteFile(OutFile)

Local time = MilliSecs()

While Not Eof(TCP)
   CopyBytes(TCP,File,1024)
   Size:+1024
   Print Size+" Bytes loaded"
Wend

Print "Zeit: "+(millisecs()-time)
CloseFile(OutFile)

   If Not Eof(tcp)
      Local cmd:Byte = 0
      Try
         cmd = ReadByte(tcp)
      Catch ex:Object
         Notify "Fehler"
      End Try

      Select cmd
         Case 1
            Print "Bla"
         Case 255
            ex = True
            Notify "Kicked by server"
         Default
      End Select
   EndIf   

Graphics 640,480,0

main ()
End

Function main()
   Local svrGame
   Local strStream
   
   
   svrGame = CreateTCPServer(6000)
   
   While Not KeyHit(1)
      strStream = AcceptTCPStream(svrGame)
      
      If strStream Then
         WriteString(strStream,"Im busy. Come back later" )
         CloseTCPStream(strStream)
      End If

      Delay 500
   Wend
   
End Function

Strict

Type THTTPClient
   Global List : TList
   
   Field Stream : TTCPClient
End Type

Global Server     : TTCPServer
Global Client     : TTCPClient
Global HTTPClient : THTTPClient

THTTPClient.List = CreateList()

Server = CreateTCPServer(80)
If Server = Null Then RuntimeError "Konnte Server nicht erstellen!"

TCPTimeouts(0, 1000)

Repeat
   Client = AcceptTCPStream(Server)
   If Client <> Null Then
      HTTPClient = New THTTPClient
      HTTPClient.Stream = Client
      THTTPClient.List.AddLast(HTTPClient)
      Print "New client!: "+DottedIP(TCPStreamIP(Client))
   EndIf
   
   For HTTPClient = EachIn THTTPClient.List
      If Eof(HTTPClient.Stream) = -1 Then
         Print "Client disconnected!: "+DottedIP(TCPStreamIP(HTTPClient.Stream))
         THTTPClient.List.Remove(HTTPClient)
         Continue
      EndIf
     
     
      While Not HTTPClient.Stream.Eof()
         Print DottedIP(TCPStreamIP(HTTPClient.Stream))+" "+..
               ReadLine(HTTPClient.Stream)
      Wend
   Next
   Print "..."
Forever

Strict

Framework Pub.BNet

Import Brl.retro
Import Brl.StandardIO
Import Brl.FileSystem
'Import Brl.Max2D


Const GX:Int = 800
Const GY:Int = 600

'Graphics GX, GY, 0

Const Port:Int = 6667
Const Server:String = "irc.quakenet.org"

Global Name:String = Input("Wie ist dein Nickename? ")
Global Channel:String = Input ("Welechen Channel soll ich Joinen? (Ohne #) ")
Global Email:String

Global TCP:Int, RecvLine:String

TCP = OpenTCPStream(Server, Port)
If TCP = 0 Then
   RuntimeError "Konnte keine Verbindung aufbauen"
EndIf

While Not Eof(TCP)
   
   RecvLine = ReadLine(TCP)
   Print RecvLine
   
   
   If Left(RecvLine, 4) = "PING" Then
      Senden "PONG" + Replace(RecvLine, "PING", "")
   End If
   
   If Instr(RecvLine, "376") Then
      Senden "JOIN #"+Channel
   End If
   
   If Instr(RecvLine, "Checking Ident") Then
   
      ' Sende Benutzer Daten
      
      Senden "USER "+ Lower(Name) +" tolmoon tolsun :Gehhilfe BBMax Bot"
      Senden "NICK "+ Name
      
   EndIf
   
Wend

CloseTCPStream TCP
FlushMem

End

Function Senden (str:String)
   WriteLine TCP, str
   Print "["+ Name +"]"+str
End Function