Imports System Imports System.IO Imports System.Net Imports System.Net.Sockets Imports System.Threading
Public Class HttpServer Public Shared Sub Main(ByVal args As String()) Dim server As TcpListener = New TcpListener(IPAddress.Any, 80) server.Start While True Try Dim client As TcpClient = server.AcceptTcpClient Dim rdr As StreamReader = New StreamReader(client.GetStream) Dim wrt As StreamWriter = New StreamWriter(client.GetStream) Dim request As String = rdr.ReadLine Dim path As String = request.Split(" ".ToCharArray)(1) Dim line As String line = rdr.ReadLine While line <> "" line = rdr.ReadLine End While wrt.WriteLine("HTTP/1.1 200 OK") wrt.WriteLine("Content-Type: text/plain") wrt.WriteLine wrt.WriteLine("Du bad om " + path) wrt.Flush rdr.Close wrt.Close client.Close Catch e As Exception Console.WriteLine(e) End Try End While server.Stop End Sub End Class
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.