[Баг] Краш _NamedPipes_ConnectNamedPipe($hndlPipe,1)

_NamedPipes_ConnectNamedPipe($hndlPipe,1)

_NamedPipes_ConnectNamedPipe($hndlPipe)

#Include <Misc.au3>
#Include <NamedPipes.au3>

Local Const $vzbEZ_PIPE_NAME = "\\.\pipe\vzbEZPipe"
   ;*********************************************
    ; Only the Pipe Server gets to the code below.
    ;*********************************************
    Local $hndlPipe
    Local $aPipeData[4]
    ; Create the named pipe. Get data from the pipe until a "DIE" message is received.
    $hndlPipe = _NamedPipes_CreateNamedPipe($vzbEZ_PIPE_NAME)
   If $hndlPipe <> -1 Then
;        Do
            ; wait for a client process to connect to an instance of a named pipe
         If _NamedPipes_ConnectNamedPipe($hndlPipe,1) Then
                $aPipeData = _NamedPipes_PeekNamedPipe($hndlPipe)
                $ff=FileOpen("alex.ddd",1)
            FileWriteLine($ff,$aPipeData[0])
            FileClose($ff)
                If Not _NamedPipes_DisconnectNamedPipe($hndlPipe) Then
                    ConsoleWrite(@LF & "Pipe Server:: DisconnectNamedPipe() Failed." & @LF)
                Endif
            Else
                ConsoleWrite(@LF & "Pipe Server:: connectNamedPipe() failed. " & @LF)
                Exit
            Endif
 ;       Until $aPipeData[0] == "DIE"
    Else
        ConsoleWrite(@LF & "Pipe Server:: _CreateNamedPipe() failed. " & @LF)
    Endif

;  look for client connection
;--------------------
While 1
$ConnectedSocket = TCPAccept( $MainSocket)
If $ConnectedSocket >= 0 Then
	  while 1
	  $recv = TCPRecv($ConnectedSocket, 2048)
		If $recv <> "" Then ExitLoop
	WEnd
ExitLoop
EndIf
Wend