Visual Basic

<br />
    Function Send(ByVal message As String) As String<br />
        Dim stream As NetworkStream = Nothing<br />
        Dim responseData As String = ""<br />
        Dim localEP As New IPEndPoint(IPAddress.Parse("127.0.0.1"), 11000)<br />
<br />
        Try<br />
<br />
            ' Instantiate a TcpClient with the target server and port number<br />
            Dim client As New TcpClient(localEP)<br />
<br />
            ' Convert the data to send into a byte array<br />
            Dim data As Byte() = System.Text.Encoding.ASCII.GetBytes(message)<br />
<br />
            ' Get the NetworkStream for the TcpClient for sending and receiving<br />
            stream = client.GetStream()<br />
<br />
            ' Send the message to the server. <br />
            stream.Write(data, 0, data.Length)<br />
<br />
            ' Buffer to hold data returned from the server.<br />
            data = New [Byte](256) {}<br />
<br />
            ' Read the response from the server up to the size of the buffer.<br />
            Dim bytes As Integer = stream.Read(data, 0, data.Length)<br />
<br />
            ' Convert the received bytes into a string<br />
            responseData = System.Text.Encoding.ASCII.GetString(data, 0, bytes)<br />
<br />
        Catch ex As SocketException<br />
            MsgBox(ex.Message)<br />
        Catch ex As IOException<br />
            MsgBox(ex.Message)<br />
        Finally<br />
<br />
            ' Make sure that the NetworkStream is closed.<br />
            If stream IsNot Nothing Then<br />
                stream.Close()<br />
            End If<br />
<br />
        End Try<br />
<br />
        Return responseData<br />
    End Function<br />
<br />

<StructLayout(LayoutKind.Sequential)> _<br />
Public Structure KEYBOARDINFO       <br />
    Public KeyboardID As Int32<br />
    Public KbdName(0 To 255) As Byte<br />
    Public pKeyboard As Int32<br />
End Structure