Private Sub HttpServer()
Dim hostName As String = Dns.GetHostName()
Dim serverIP As IPAddress = Dns.Resolve(hostName).AddressList(0)
' Web Server Port
Dim Port As String = txtPort.Text
Dim tcpListener As New TcpListener(serverIP, Int32.Parse(Port))
tcpListener.Start()
Console.WriteLine("Web server started at: " & serverIP.ToString() & ":" & Port)
Me.tcpListener = tcpListener
Dim serverThread As New Thread(New ParameterizedThreadStart(AddressOf ProcessThread))
serverThread.Start()
End Sub
Public Sub ProcessThread(ByVal clientsocket As System.Net.Sockets.Socket)
While (True)
Try
clientSocket = tcpListener.AcceptSocket()
' Socket Information
Dim clientInfo As IPEndPoint = CType(clientSocket.RemoteEndPoint, IPEndPoint)
' Set Thread for each Web Browser Connection
Dim clientThread As New Thread(New ParameterizedThreadStart(AddressOf ProcessRequest))
clientThread.Start()
Catch ex As Exception
Console.WriteLine(ex.StackTrace.ToString())
If clientSocket.Connected Then
clientSocket.Close()
End If
End Try
End While
End Sub
Protected Sub ProcessRequest(ByVal clientSocket As System.Net.Sockets.Socket)
Dim recvBytes(1024) As Byte
Dim htmlReq As String = Nothing
Dim bytes As Int32
Try
' Receive HTTP Request from Web Browser
bytes = clientSocket.Receive(recvBytes, 0, clientSocket.Available, SocketFlags.None)
htmlReq = Encoding.ASCII.GetString(recvBytes, 0, bytes)
' Set WWW Root Path
Dim rootPath As String = Directory.GetCurrentDirectory() & "/Monitor/" & "/" & grpInfo.Text & "/"
' Set default page
Dim defaultPage As String = grpInfo.Text & ".html"
Dim strArray() As String
Dim strRequest As String
strArray = htmlReq.Trim.Split(" ")
' Determine the HTTP method (GET only)
If strArray(0).Trim().ToUpper.Equals("GET") Then
strRequest = strArray(1).Trim
If (strRequest.StartsWith("/")) Then
strRequest = strRequest.Substring(1)
End If
If (strRequest.EndsWith("/") Or strRequest.Equals("")) Then
strRequest = strRequest & defaultPage
End If
strRequest = rootPath & strRequest
sendHTMLResponse(strRequest, clientSocket)
Else ' Not HTTP GET method
strRequest = rootPath & "Error\" & "400.html"
sendHTMLResponse(strRequest, clientSocket)
End If
Catch ex As Exception
If clientSocket.Connected Then
clientSocket.Close()
End If
End Try
End Sub
Private Sub sendHTMLResponse(ByVal httpRequest As String, ByVal clientSocket As System.Net.Sockets.Socket)
Try
' Get the file content of HTTP Request
Dim streamReader As StreamReader = New StreamReader(httpRequest)
Dim strBuff As String = streamReader.ReadToEnd()
streamReader.Close()
streamReader = Nothing
' The content Length of HTTP Request
Dim info As New IO.FileInfo(httpRequest)
Dim respByte() As Byte = My.Computer.FileSystem.ReadAllBytes(httpRequest)
' Set HTML Header
Dim htmlHeader As String = _
"HTTP/1.0 200 OK" & ControlChars.CrLf & _
"Server: WebServer 1.0" & ControlChars.CrLf & _
"Content-Length: " & info.Length & _
"Content-Type: " & getContentType(httpRequest) & _
ControlChars.CrLf & ControlChars.CrLf
' The content Length of HTML Header
Dim headerByte() As Byte = Encoding.ASCII.GetBytes(htmlHeader)
' Send HTML Header back to Web Browser
clientSocket.Send(headerByte, 0, headerByte.Length, SocketFlags.None)
' Send HTML Content back to Web Browser
Dim stream As IO.FileStream = info.OpenRead
Dim buffer(200000) As Byte
Dim read As Integer = -1
Do Until read = 0
read = stream.Read(buffer, 0, buffer.Length)
clientSocket.Send(buffer, 0, read, SocketFlags.None)
Loop
stream.Close()
' Close HTTP Socket connection
clientSocket.Shutdown(SocketShutdown.Both)
clientSocket.Close()
Catch ex As Exception
If clientSocket.Connected Then
clientSocket.Close()
End If
End Try
End Sub