Iexplorer connectar till servren, väntar på svar men inget händer. Skickar du ut exakt 111 byte efter "dubbelradbrytningen"? Om du skickar ut mindre så väntar den efter mer...Egen "IIS" server
Mitt program tar imot connection och skickar sidan, men iexplorer fortsätter att ladda även att programet har gjort sitt och jag har closat allt.
Sidan blir klar om jag stänger av programet. Vad är det som är fel?
Imports System.Net.Sockets
Imports System.Text
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Timer1.Enabled = False
Const portNumber As Integer = 8080
Dim tcpListener As New TcpListener(portNumber)
Static x As Integer
x += 1
tcpListener.Start()
Console.WriteLine("Waiting for a connection....")
Try
'Accept the pending client connection and return a TcpClient initialized for communication.
Dim tcpClient As TcpClient = tcpListener.AcceptTcpClient()
Console.WriteLine("Connection accepted.")
Dim networkStream As NetworkStream = tcpClient.GetStream()
Dim responseString As String = "HTTP/1.1 400 Bad Request" & _
"Content-Type: text/html" & _
"Content-Length: 111" & vbCrLf & vbCrLf & _
"<html><body>" & _
"<h2>No Host: header received</h2>" & _
"HTTP 1.1 requests must include the Host: header. Sändning NR " & x.ToString & _
"</body></html>"
Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(responseString)
networkStream.Write(sendBytes, 0, sendBytes.Length)
networkStream.Close()
Console.WriteLine(("Message Sent /> : " + responseString))
'Any communication with the remote client using the TcpClient can go here.
'
'//////
'Close TcpListener and TcpClient.
tcpClient.Close()
tcpListener.Stop()
Catch exp As Exception
Console.WriteLine(exp.ToString())
Finally
Me.Timer1.Enabled = True
End Try
End SubSv: Egen "IIS" server