Public Sub StartServer()
 
Dim myNewHttpHandler AsNewHttpHandles
Dim address AsIPAddress = IPAddress.Parse(ini.ReadString("GENERAL", _
  "IPADDRESS"))
Dim EndPoint AsIPEndPoint = NewIPEndPoint(address, Int32.Parse(ini.ReadString( _
"GENERAL", "port")))
Dim ss AsSocket = NewSocket(AddressFamily.InterNetwork, SocketType.Stream, _
ProtocolType.Tcp)
 
        ss.ReceiveBufferSize = 16384
        ss.Bind(EndPoint)
        ss.Listen(20)
 
Dim WebRoot AsString = ini.ReadString("GENERAL", "WebServerPath", "d:\www\")
Dim DefaultPage AsString = ini.ReadString("GENERAL", "DefaultPage", _
  "index.html")
 
DoWhileNotWebserver.DoStop
 
Dim sock AsSocket = ss.Accept()
Dim ServerRun AsNewServer(sock, WebRoot, DefaultPage)
Dim t AsThread = NewThread(AddressOf ServerRun.HandleConnection)
            t.IsBackground = True
            t.Priority = ThreadPriority.Normal
           t.Start()
Loop
EndSub

Public Sub HandleConnection()
 
Dim iStartPos AsInteger = 0
Dim bReceive AsByte()
ReDim bReceive(16384)
Dim i AsInteger = mySocket.Receive(bReceive, bReceive.Length, 0)
Dim sbuffer AsString = Encoding.ASCII.GetString(bReceive)
 
...