![]() Imports System.Net Imports Imports System.Text Imports System.Threading Module Module1 Sub Main() Dim cts As CancellationTokenSource = New CancellationTokenSource() Dim listener As TcpListener = New TcpListener(IPAddress.Any, 28000) listener.Start() Console.WriteLine("Listener is waiting for client connections.") Dim task As Task = AwaitClientConnectionAsync(listener, cts.Token) While Not Console.ReadKey().Key.Equals(ConsoleKey.Q) End While cts.Cancel() While (TaskStatus.Running) End While Console.WriteLine() Console.WriteLine("Finished cancelling all tasks. ![]() From a previous EE_PAQ here is an extremely rudimentary client/server example.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |