Imports System.Threading
Imports System.Net.Sockets
Imports System.IO
Public Class MainClass
Shared Dim output As NetworkStream
Shared Dim writer As BinaryWriter
Shared Dim reader As BinaryReader
Shared Dim message As String = ""
Shared Dim readThread As Thread
Public Shared Sub Main()
readThread = New Thread(AddressOf RunClient)
readThread.Start()
Try
writer.Write("CLIENT>>> ")
Console.WriteLine("CLIENT>>> ")
Catch exception As SocketException
Console.WriteLine("Error writing object")
End Try
End Sub
Shared Public Sub RunClient()
Dim client As TcpClient
Try
Console.WriteLine("Attempting connection" )
client = New TcpClient()
client.Connect("localhost", 5000)
output = client.GetStream()
writer = New BinaryWriter(output)
reader = New BinaryReader(output)
Console.WriteLine("Got I/O streams")
Try
Do
message = reader.ReadString
Console.WriteLine(message)
Loop While message <> "SERVER>>> TERMINATE"
Catch inputOutputException As IOException
Console.WriteLine("Client application closing")
Finally
Console.WriteLine("Closing connection.")
writer.Close()
reader.Close()
output.Close()
client.Close()
End Try
Catch inputOutputException As Exception
Console.WriteLine("Client application closing")
End Try
End Sub
End Class
|