Sv: Egen "IIS" server

Egen "IIS" server

Postades av 2005-12-26 11:14:49 - Krister Johansson, i forum visual studio.NET IDE, Tråden har 1 Kommentarer och lästs av 701 personer

Iexplorer connectar till servren, väntar på svar men inget händer.
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 Sub

Svara