This commit is contained in:
2019-12-10 15:13:07 +01:00
parent e64ce6543b
commit b6c696ca46
6 changed files with 61 additions and 8 deletions

View File

@@ -25,7 +25,6 @@ Public Class ManagedPipeServer : Inherits ManagedPipe
Dim strm = New NamedPipeServerStream(pipeName, PipeDirection.InOut, maxNumbersOfServerInstances, PipeTransmissionMode.Byte, PipeOptions.Asynchronous)
numberOfStartedServerInstances += 1
strm.BeginWaitForConnection(AddressOf EndAccept, strm)
Console.WriteLine("Start Waiting for new Connection ...")
End If
End Sub
@@ -46,8 +45,6 @@ Public Class ManagedPipeServer : Inherits ManagedPipe
.AddTo(_Clients)
End With
Console.WriteLine("Client accepted!")
CreateWaitingStream()
End Sub