Socket 接收大量数据的问题,应该如何修改呢

lucifercxw 2019-12-27 12:24:55

少量数据接受没有问题,但是要发送的数据再几万字符,应该如何修改呢.

For Each mo As System.Management.ManagementObject In moc2

            If mo("IPEnabled") Then

                netid = mo("MACAddress")

                ip = mo("IpAddress")(0)

                Exit For

            End If

        Next

        Try

            s = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) '使用TCP协议

            Dim localEndPoint As New IPEndPoint(IPAddress.Parse(ip), 8000) ' 指定IP和Port

            s.Bind(localEndPoint)  ' 绑定到该Socket

            s.Listen(200)  ' 侦听，考试#大提示最多接受100个连接

            While (True)



                Dim bytes(1024) As Byte ' 用来存储接收到的字节

                Dim ss As Socket = s.Accept()  '若接收到,则创建一个新的Socket与之连接

                ss.Receive(bytes)  ' 接收数据，若用ss.send(Byte()),则发送数据

                Dim sMessage As String = Encoding.Unicode.GetString(bytes)

                '若使用Encoding.ASCII.GetString(bytes),则接收到的中文字符不能正常显示

                Dim sTime As String = DateTime.Now.ToShortTimeString()