[RESOLVED] Returning a web page

**samtheman** · May 1st, 2008, 04:23 PM

Hi,

A person called Atheist helped me return a static page upon request. However, I have two problems:

1) It works 3/4 times, I figure this is because a connection is not finished. However, it creates a new thread each time.
2) I now see a blank page but it has the <html> doctype specified.

Code:

Option Strict On
Imports System.Net.Sockets
Imports System.Net


Public Class webFilter
    Private listenThread As System.Threading.Thread
    Private listenSocket As System.Net.Sockets.Socket
    Private Const PORT_NUMBER As Integer = 80
    Private Const BACKLOG As Integer = 10

    Private Sub webFilter_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        listenSocket = New System.Net.Sockets.Socket(Net.Sockets.AddressFamily.InterNetwork, Net.Sockets.SocketType.Stream, Net.Sockets.ProtocolType.Tcp)
        listenSocket.Bind(New System.Net.IPEndPoint(System.Net.IPAddress.Parse("127.0.0.1"), PORT_NUMBER)) ' Bind the socket to 127.0.0.1:PORT_NUMBER
        listenSocket.Listen(BACKLOG) ' Start listening on the port
        listenThread = New System.Threading.Thread(AddressOf doListen) ' Create the thread that will be used for listening and responding
        listenThread.IsBackground = True ' Set IsBackground to true to make the thread terminate when the main thread terminates.
        listenThread.Start() ' Start the the thread
    End Sub
    Private Sub doListen()
        Dim client As System.Net.Sockets.Socket
        Dim clientThread As System.Threading.Thread
        Do
            client = listenSocket.Accept() ' When this method returns, "client" will hold the connection to the remote host.
            ' Start a new thread to respond to the client, this will let us
            ' continue listening for new connections while responding to other hosts.
            clientThread = New System.Threading.Thread(AddressOf RespondToHost)
            clientThread.IsBackground = True
            clientThread.Start(client)
        Loop
    End Sub

    Private Sub RespondToHost(ByVal obj As Object)
        Dim resp() As Byte
        Dim client As System.Net.Sockets.Socket = DirectCast(obj, System.Net.Sockets.Socket)
        resp = BuildResponse("url-deleted-for-security")
        client.Send(resp, resp.Length, Net.Sockets.SocketFlags.None)
        client.Close()
    End Sub

    Private Function BuildResponse(ByVal file As String) As Byte()
        Dim response As New System.Text.StringBuilder
        Dim sReader As System.IO.StreamReader
        Dim fileContents As String
        If System.IO.File.Exists(file) Then
            sReader = New System.IO.StreamReader(file)
            fileContents = sReader.ReadToEnd()
            response.AppendLine("HTTP/1.1 200 OK")
            response.AppendLine("Content-type: text/html")
            response.AppendLine(fileContents.Length.ToString())
            response.Append(Environment.NewLine)
            response.Append(fileContents)
            sReader.Close()
        Else
            response.AppendLine("HTTP/1.1 404")
            response.Append(Environment.NewLine)
        End If
        Return System.Text.Encoding.UTF8.GetBytes(response.ToString())
    End Function


    Private Sub webFilter_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
        Me.Visible = False
    End Sub
End Class

A question is, are the threads terminated after they Client.Close. I do not want say 50 threads stacking up.

Thanks

.NET 3.5 is returning a vs2k3 warning:

Warning 1 The element 'PropertyGroup' in namespace 'http://schemas.microsoft.com/developer/msbuild/2003' has invalid child element 'PublishUrlHistory' in namespace 'http://schemas.microsoft.com/developer/msbuild/2003'. List of possible elements expected: 'Property' in namespace 'http://schemas.microsoft.com/developer/msbuild/2003'. MyProjDir 3 6 Miscellaneous Files

Thread: [RESOLVED] Returning a web page

Thread Tools

Display

Threaded View

[RESOLVED] Returning a web page

Posting Permissions