1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78
| Imports System.Threading
Imports System.Net.Sockets
Imports System.IO
Public Class Form1
Shared output As NetworkStream
Shared writer As BinaryWriter
Shared reader As BinaryReader
Shared message As String = ""
Shared readThread As Thread
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = "Starting"
readThread = New Thread(AddressOf RunClient)
readThread.Start()
Try
'Label1.Text = "CLIENT>>> "
Catch exception As SocketException
Label1.Text = "Error writing object"
End Try
End Sub
Public Shared Sub RunClient()
Form1.Label1.Text = "Attempting connection"
Dim client As TcpClient
Try
client = New TcpClient()
client.Connect("localhost", 11000)
output = client.GetStream()
writer = New BinaryWriter(output)
reader = New BinaryReader(output)
Form1.Label1.Text = "Got I/O streams"
Try
Do
message = reader.ReadString
Console.WriteLine(message)
Loop While message <> "SERVER>>> TERMINATE"
Catch inputOutputException As IOException
Form1.Label1.Text = "Client application closing"
Finally
Form1.Label1.Text = "Closing connection."
writer.Close()
reader.Close()
output.Close()
client.Close()
End Try
Catch inputOutputException As Exception
Form1.Label1.Text = "Client application closing"
End Try
End Sub
Private Sub Label1_ParentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.ParentChanged
End Sub
End Class |
Partager