На СЕРВЕРЕ
Piperes = CreateNamedPipeA("\\.\pipe\vbpgpipeSave", PIPE_ACCESS_DUPLEX Or WRITE_DAC, PIPE_TYPE_BYTE, 10, 10, 10, 0, Nothing)
If Piperes = -1 Then MsgBox("ERROR")
На КЛИЕНТЕ
PiperesSave = CreateFileA("\\KKM\pipe\vbpgpipeSave", GENERIC_WRITE, FILE_SHARE_WRITE Or FILE_SHARE_READ, qwe, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
