仍然不行。我的程序的源码是这样的
Dim listening As Boolean = True
Dim CurSocket As Socket
Dim Buffer(100) As Byte
Dim Bytes As Integer
Dim Temp As String
CurSocket = listener.AcceptSocket
While listening = True
If CurSocket.Available > 0 Then
Bytes = CurSocket.Receive(Buffer, Buffer.Length, 0)
Dim CWord As String = System.Text.Encoding.Default.GetString(Buffer)
If CWord.Equals("a") = True Then
MessageBox.Show("正确")
Else
MessageBox.Show("错误")
End If
Exit While
End If
End While
用了楼上兄弟的,永远是报错,不知道我的程序错在哪了,请帮帮忙。