網頁文章 javax.portlet.title.56

Imports System.IO

Imports System.Net

Imports System.Net.Sockets

Imports System.Text

Imports Microsoft.VisualBasic

 

Module Module1

 

Sub Main()

 

Dim Web_file1 As String = "c:\20141229.htm"

Dim Web_file2 As String = "c:\a.jpg"

Dim Web_file3 As String = "c:\b.jpg"

Dim Web_file4 As String = "c:\c.jpg"

Dim Web_file5 As String = "c:\d.jpg"

Dim Web_file6 As String = "c:\e.jpg"

Dim Web_file7 As String = "c:\f.jpg"

Dim msg(401002400) As Byte

Dim server As TcpListener

server = Nothing

Try

 

Dim port As Int32 = 13000

Dim localAddr As IPAddress = IPAddress.Parse("192.168.0.121")

Dim bytes(1024) As Byte

Dim data As String = Nothing

server = New TcpListener(localAddr, port)

server.Start()

While True

Console.Write("Waiting for a connection... ")

Dim client As TcpClient = server.AcceptTcpClient()

Console.WriteLine("Connected!" & ControlChars.CrLf)

Dim clientInfo As IPEndPoint = CType(client.Client.RemoteEndPoint, IPEndPoint)

Console.WriteLine("Client: " + clientInfo.Address.ToString() + ":" + clientInfo.Port.ToString())

Dim stream As NetworkStream = client.GetStream()

Dim i As Integer

i = stream.Read(bytes, 0, bytes.Length)

data = System.Text.Encoding.ASCII.GetString(bytes, 0, i)

Console.WriteLine("Received: {0}", data)

 

 

 

If ((data.IndexOf("GET / ")) >= 0) Then

 

Dim htmlHeader As String = _
"HTTP/1.1 200 OK" & ControlChars.CrLf & _
"Server: DahanbServer 1.0" & ControlChars.CrLf & _
"Content-Length: " & data.Length & ControlChars.CrLf & _
"Content-Type: " & "text/html" & ControlChars.CrLf & _
"<html>" & ControlChars.CrLf & _
"<table border=1>" & ControlChars.CrLf & _
"<caption>20150105</caption>" & ControlChars.CrLf & _
"<tbody>" & ControlChars.CrLf & _
"<tr>" & ControlChars.CrLf & _
"<td><img src=a.jpg></td>" & ControlChars.CrLf & _
"<td><img src=b.jpg></td>" & ControlChars.CrLf & _
"</tr>" & ControlChars.CrLf & _
"<tr>" & ControlChars.CrLf & _
"<td><img src=c.jpg></td>" & ControlChars.CrLf & _
"<td><img src=d.jpg></td>" & ControlChars.CrLf & _
"</tr>" & ControlChars.CrLf & _
"<tr>" & ControlChars.CrLf & _
"<td><img src=e.jpg></td>" & ControlChars.CrLf & _
"<td><img src=f.jpg></td>" & ControlChars.CrLf & _
"</tr>" & ControlChars.CrLf & _
"</tbody>" & ControlChars.CrLf & _
"</table>" & ControlChars.CrLf & _
"</html>" & _
ControlChars.CrLf & ControlChars.CrLf
msg = Encoding.ASCII.GetBytes(htmlHeader)
stream.Write(msg, 0, msg.Length)
client.Close()

End If

 

 

 

If ((data.IndexOf("GET /a.jpg")) >= 0) Then

Dim htmlHeader As String = _
"HTTP/1.1 200 OK" & ControlChars.CrLf & _
"Server: DahanbServer 1.0" & ControlChars.CrLf & _
"Content-Length: " & data.Length & ControlChars.CrLf & _
"Content-Type: " & "text/html" & _
ControlChars.CrLf & ControlChars.CrLf

 

If System.IO.File.Exists(Web_file2) = True Then
msg = My.Computer.FileSystem.ReadAllBytes(Web_file2)

End If

stream.Write(msg, 0, msg.Length)
client.Close()

End If

 

 

 

If ((data.IndexOf("GET /b.jpg")) >= 0) Then
Dim htmlHeader As String = _
"HTTP/1.1 200 OK" & ControlChars.CrLf & _
"Server: DahanbServer 1.0" & ControlChars.CrLf & _
"Content-Length: " & data.Length & ControlChars.CrLf & _
"Content-Type: " & "text/html" & _
ControlChars.CrLf & ControlChars.CrLf

 

If System.IO.File.Exists(Web_file3) = True Then
msg = My.Computer.FileSystem.ReadAllBytes(Web_file3)

End If

stream.Write(msg, 0, msg.Length)
client.Close()

End If

 

 

If ((data.IndexOf("GET /c.jpg")) >= 0) Then

Dim htmlHeader As String = _
"HTTP/1.1 200 OK" & ControlChars.CrLf & _
"Server: DahanbServer 1.0" & ControlChars.CrLf & _
"Content-Length: " & data.Length & ControlChars.CrLf & _
"Content-Type: " & "text/html" & _
ControlChars.CrLf & ControlChars.CrLf

 

If System.IO.File.Exists(Web_file4) = True Then

msg = My.Computer.FileSystem.ReadAllBytes(Web_file4)

End If

stream.Write(msg, 0, msg.Length)
client.Close()

End If

 

 

If ((data.IndexOf("GET /d.jpg")) >= 0) Then

Dim htmlHeader As String = _
"HTTP/1.1 200 OK" & ControlChars.CrLf & _
"Server: DahanbServer 1.0" & ControlChars.CrLf & _
"Content-Length: " & data.Length & ControlChars.CrLf & _
"Content-Type: " & "text/html" & _
ControlChars.CrLf & ControlChars.CrLf

 

If System.IO.File.Exists(Web_file5) = True Then

msg = My.Computer.FileSystem.ReadAllBytes(Web_file5)

End If

stream.Write(msg, 0, msg.Length)
client.Close()

End If

 

If ((data.IndexOf("GET /e.jpg")) >= 0) Then

Dim htmlHeader As String = _
"HTTP/1.1 200 OK" & ControlChars.CrLf & _
"Server: DahanbServer 1.0" & ControlChars.CrLf & _
"Content-Length: " & data.Length & ControlChars.CrLf & _
"Content-Type: " & "text/html" & _
ControlChars.CrLf & ControlChars.CrLf

 

If System.IO.File.Exists(Web_file6) = True Then

msg = My.Computer.FileSystem.ReadAllBytes(Web_file6)

End If

stream.Write(msg, 0, msg.Length)

client.Close()

End If

 

If ((data.IndexOf("GET /f.jpg")) >= 0) Then

Dim htmlHeader As String = _
"HTTP/1.1 200 OK" & ControlChars.CrLf & _
"Server: DahanbServer 1.0" & ControlChars.CrLf & _
"Content-Length: " & data.Length & ControlChars.CrLf & _
"Content-Type: " & "text/html" & _
ControlChars.CrLf & ControlChars.CrLf

 

If System.IO.File.Exists(Web_file7) = True Then

msg = My.Computer.FileSystem.ReadAllBytes(Web_file7)

End If

stream.Write(msg, 0, msg.Length)
client.Close()

End If

 

 

End While

Catch e As SocketException

Console.WriteLine("SocketException: {0}", e)

Finally

server.Stop()

End Try

Console.WriteLine(ControlChars.Cr + "Hit enter to continue....")

 

End Sub

 

End Module