主题：[求助] tcp通信示例

老师，以前tcp通信示例可以监听其它IP，如172.16.10.2 现在好像不行了，只能监听127.0.0.1 了，

同一个端口如 52177 用server = New MyServer("127.0.0.1", 52177)   可以监听，但是

如果server = New MyServer("172.16.10.2", 52177) 就提示端口被占用，换成其它端口都是提示端口被占用。

换成其它IP，只要不是127.0.0.1就提示端口被占用。谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:tcp通信实例.zip

老师，下面代码中注释掉的代码（蓝色）是起什么作用的？谢谢！

Public server As MyServer

Public Class MyServer
    Private server As String
    Private port As Integer
    Private Const maxPacket As Integer = 64 * 1024
    Public tcpl As System.Net.Sockets.TcpListener = Nothing
    Public user_tb As New System.Collections.Hashtable()   '客户端列表
    Public msg As String   '客户端登录信息

    Public Sub New(ByVal ip As String, ByVal p As Integer)
        server = ip
        port = p
        Dim clientThread As New System.Threading.Thread(New System.Threading.ParameterizedThreadStart(AddressOf newThread))
' clientThread.IsBackground = True
        clientThread.Start(Nothing)
    End Sub

    Public Sub newThread(ByVal obj As Object)
        Dim ip As System.Net.IPAddress = System.Net.IPAddress.Parse(server)    '转换成IP
        tcpl = New System.Net.Sockets.TcpListener(ip, port)
        Try
            tcpl.Start()   '开始监听
        Catch ex As Exception
            MsgBox("端口" & port & "被占用,请改用其它端口")
            Return
        End Try

        '开始侦听传入的连接请求.
    try
        msg &= "服务器已启动,正在监听..." & vbCrLf
        msg &= String.Format("服务器IP:{0}" & vbTab & "端口号:{1}" & vbCrLf, ip, port)
        While True
            Dim packetBuff As Byte() = New Byte(maxPacket) {}
            Dim newClient As System.Net.Sockets.Socket = tcpl.AcceptSocket()  '接受客户端请求
            Dim rlen As Integer = newClient.Receive(packetBuff)

            Dim data As String = Encoding.Unicode.GetString(packetBuff, 0, rlen)  '将接受的远程SOCKET,将数据存入接受缓冲区
            user_tb.Add(data, newClient)    '将客户端标识添加进hash表

            Dim svrlog As String = String.Format("[系统消息]新用户 {0} 在 {1} 已连接... 当前在线人数: {2}" & vbCrLf, data, DateTime.Now, user_tb.Count)
            msg &= svrlog

            Dim clientThread As New System.Threading.Thread(New System.Threading.ParameterizedThreadStart(AddressOf ThreadFunc))
            clientThread.Start(data)
' clientThread.IsBackground = True
            newClient.Send(Encoding.Unicode.GetBytes("OK"))
        End While
    catch ex As exception
        'msgbox("监听关闭成功")
    End try
    End Sub

    Private Sub ThreadFunc(ByVal obj As Object)
        Dim clientSkt As System.Net.Sockets.Socket = user_tb(obj)
        While True
            Try
                Dim cmdBuff(128) As Byte
                Dim rlen As Integer = clientSkt.Receive(cmdBuff)   '静候客户端关闭
            Catch ex As  exception
msgbox("有一个客户端被关闭了")
                user_tb.Remove(obj)
                msg &= String.Format("[系统消息]用户 {0} 的客户端在 {1} 关闭!当前在线人数:{2}" & vbCrLf, obj, DateTime.Now, user_tb.Count)
                 System.Threading.Thread.CurrentThread.Abort()
            End Try
        End While
    End Sub

    Public Sub RemoveClient(ByVal obj As Object)
        Dim clientSkt As System.Net.Sockets.Socket = user_tb(obj)
        clientSkt.Send(New Byte() {1, 1})   '让客户正常关闭
    End Sub
End Class

老师，上面的代码可不可以优化，仪器总是提示监听服务器响应超时。并且接收数据总要掉三行。谢谢！