Imports System.Net
Imports System.Net.Sockets
Imports System.Threading
Public Class Form1
Dim Web_file As String = "c:\TestFile5.txt"
Dim TextLine As String
Dim data As String
Dim wait_responese As Boolean
Dim server As TcpListener
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
server = Nothing
Dim port As Int32 = 14000
Dim localAddr As IPAddress = IPAddress.Parse("192.168.0.171")
server = New TcpListener(localAddr, port)
server.Start()
Dim serverthread As Threading.Thread
serverthread = New Thread(New Threading.ThreadStart(AddressOf ServerThreadProc))
serverthread.Start()
End Sub
Public Sub ServerThreadProc()
Dim bytes(1024) As Byte
While True
Dim client As TcpClient = server.AcceptTcpClient()
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)
If System.IO.File.Exists(Web_file) = True Then
Dim objReader As New System.IO.StreamReader(Web_file, System.Text.Encoding.GetEncoding("big5"))
Do While objReader.Peek() <> -1
TextLine = TextLine & objReader.ReadLine() & ControlChars.CrLf
Loop
objReader.Close()
Else
MsgBox("File Does Not Exist")
End If
Dim msg As Byte() = System.Text.Encoding.ASCII.GetBytes(TextLine)
stream.Write(msg, 0, msg.Length)
TextLine = Nothing
client.Close()
End While
End Sub
End Class