Ok... I looked at their sample, and here is what I have:
' client
Option Strict On
Option Explicit On
Imports System.Text
Module Module1
Sub Main()
Dim outBuffer() As Byte = Encoding.ASCII.GetBytes("Hi, Server!")
Dim inBuffer(BUFFSIZE) As Byte
Dim bytesRead As Integer
'Call the CallNamedPipe function to do the transactions
CallNamedPipe(pipeName, outBuffer, outBuffer.Length, inBuffer, inBuffer.Length, bytesRead, 30000)
Console.WriteLine(Encoding.ASCII.GetString(inBuffer, 0, bytesRead))
End Sub
Private Const pipeName As String = "\\.\pipe\MyPipe"
Private Const BUFFSIZE As Integer = 10000
Private hpipe As IntPtr
Public ReadOnly INVALID_HANDLE_VALUE As IntPtr = New IntPtr(-1)
Public Declare Auto Function CallNamedPipe Lib "kernel32" ( _
ByVal lpNamedPipeName As String, _
ByVal lpInBuffer() As Byte, _
ByVal nInBufferSize As Integer, _
ByVal lpOutBuffer() As Byte, _
ByVal nOutBufferSize As Integer, _
ByRef lpBytesRead As Integer, _
ByVal nTimeOut As Integer) As Boolean
End Module
' server
Option Strict On
Option Explicit On
Imports System.Text
Module Module1
Private Const pipeName As String = "\\.\pipe\MyPipe"
Private Const BUFFSIZE As Short = 10000
Private hPipe As IntPtr
Sub Main()
Dim openMode As Integer
Dim pipeMode As Integer
'Create the named pipe
openMode = PIPE_ACCESS_DUPLEX Or FILE_FLAG_WRITE_THROUGH
pipeMode = PIPE_WAIT Or PIPE_TYPE_MESSAGE Or PIPE_READMODE_MESSAGE
hPipe = CreateNamedPipe(pipeName, openMode, pipeMode, 10, 10000, 2000, 10000, IntPtr.Zero)
If hPipe <> INVALID_HANDLE_VALUE Then
Console.WriteLine("Created the named pipe and waiting for the clients.")
Dim byteCount As Integer
Dim i As Integer
Dim cbnCount As Integer
Dim outBuffer() As Byte = Encoding.ASCII.GetBytes("Hello from the server")
Dim inputBuffer(BUFFSIZE) As Byte
'Wait for a connection, block until a client connects
Console.WriteLine("Waiting for client connections")
Do
ConnectNamedPipe(hPipe, IntPtr.Zero)
''Read the data sent by the client over the pipe
cbnCount = BUFFSIZE
ReadFile(hPipe, inputBuffer, inputBuffer.Length, cbnCount, IntPtr.Zero)
Console.WriteLine("Client Says {0}", Encoding.ASCII.GetString(inputBuffer, 0, cbnCount))
WriteFile(hPipe, outBuffer, outBuffer.Length, cbnCount, IntPtr.Zero)
'res = FlushFileBuffers(hPipe)
''Disconnect the named pipe.
DisconnectNamedPipe(hPipe)
'Loop until the client makes no more requests for data.
Loop Until byteCount = 0
Console.WriteLine("Read or Write completed")
'Close the pipe handle when the client makes no requests
CloseHandle(hPipe)
Console.WriteLine("Disconnected the named pipe")
Else
Console.WriteLine("Pipe creation failed")
End If
End Sub
Public Const FILE_ATTRIBUTE_NORMAL As Short = &H80S
Public Const FILE_FLAG_NO_BUFFERING As Integer = &H20000000
Public Const FILE_FLAG_WRITE_THROUGH As Integer = &H80000000
Public Const PIPE_ACCESS_DUPLEX As Short = &H3S
Public Const PIPE_READMODE_MESSAGE As Short = &H2S
Public Const PIPE_TYPE_MESSAGE As Short = &H4S
Public Const PIPE_WAIT As Short = &H0S
Public ReadOnly INVALID_HANDLE_VALUE As IntPtr = New IntPtr(-1)
Declare Auto Function CreateNamedPipe Lib "kernel32" ( _
ByVal lpName As String, _
ByVal dwOpenMode As Integer, _
ByVal dwPipeMode As Integer, _
ByVal nMaxInstances As Integer, _
ByVal nOutBufferSize As Integer, _
ByVal nInBufferSize As Integer, _
ByVal nDefaultTimeOut As Integer, _
ByVal lpSecurityAttributes As IntPtr _
) As IntPtr
Declare Function ConnectNamedPipe Lib "kernel32" ( _
ByVal hNamedPipe As IntPtr, _
ByVal lpOverlapped As IntPtr _
) As Boolean
Declare Function DisconnectNamedPipe Lib "kernel32" ( _
ByVal hNamedPipe As IntPtr _
) As Boolean
Declare Function WriteFile Lib "kernel32" ( _
ByVal hFile As IntPtr, _
ByVal lpBuffer() As Byte, _
ByVal nNumberOfBytesToWrite As Integer, _
ByRef lpNumberOfBytesWritten As Integer, _
ByVal lpOverlapped As IntPtr _
) As Integer
Declare Function ReadFile Lib "kernel32" ( _
ByVal hFile As IntPtr, _
ByVal lpBuffer() As Byte, _
ByVal nNumberOfBytesToRead As Integer, _
ByRef lpNumberOfBytesRead As Integer, _
ByVal lpOverlapped As IntPtr _
) As Integer
Declare Function FlushFileBuffers Lib "kernel32" _
(ByVal hFile As IntPtr) As Integer
Declare Function CloseHandle Lib "kernel32" _
(ByVal hObject As IntPtr) As Integer
End Module
They made a lot of strange choices for their declares
Anyway - hope this
helps.
