问TCPIP流可以读取

EN

If serverStream.CanRead Then

                    Dim myReadBuffer As Byte() = New Byte(1024) {}

                    Dim myCompleteMessage As StringBuilder = New StringBuilder()

                    Dim numberOfBytesRead As Integer = 0



                    Do

                        numberOfBytesRead = serverStream.Read(myReadBuffer, 0, myReadBuffer.Length)

                        If My.Settings.initCompassLive Then

                            myCompleteMessage.AppendFormat("{0}", Encoding.ASCII.GetString(myReadBuffer, 0, numberOfBytesRead))

                        Else

                            myCompleteMessage.AppendFormat("{0}", Encoding.ASCII.GetString(myReadBuffer, 2, numberOfBytesRead))

                        End If

                    Loop While serverStream.DataAvailable

                     ' MsgBox("You received the following message : " + myCompleteMessage.ToString)

                    returndata = myCompleteMessage.ToString

                Else

                    MsgBox("Aauth Request Failed: " & returndata)

                    Exit Sub

                End If