Imports System.Net
Imports System.Net.Sockets
Imports System.Threading
Module monkeyServer
Private Const HttpVersion As String = "HTTP/1.1"
Private Const WebTitle As String = "<head><title>Monkey Server</title></head>"
Private ReadOnly ReasonPhrase4() As String = {"Bad Request", "Unauthorized", "", "Forbidden", "Not Found", " Method Not Allowed", "Not Acceptable"}
Private ReadOnly HeadTail() As Byte = {13, 10}
Private Function responseGet(ByVal localURI As String) As String
Return "<html>" & WebTitle & "<body>response for GET method:" & localURI & "</body></html>"
End Function
Private Sub MonkeyClient(ByVal client As Socket)
Dim clientBytes(4096) As Byte
Dim headBytes() As Byte
Dim responseBytes() As Byte
Dim requestHeads() As String
Dim requestLine() As String
Dim clientLen As Integer = 0
Dim headLength As Integer = 0
Dim statusCode As Integer = 0
Dim reasonPhr