主题：关于tcp/ip端口接收信息问题

参考

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=100826&skin=0

全局代码那里，看你发送的是什么编码，还有可能是 ascii

Dim str As String = Encoding.Default.GetString(packet)

改成

Dim str As String = Encoding.UTF8.GetString(packet)

你发送过来的内容是什么？要转换成什么？修改全局代码这段得到

    Private Sub ReceiveMsg()
        While True
            Dim packet As Byte() = New Byte(1024) {}
            nStream.Read(packet, 0, packet.Length)
            Dim str As String = Encoding.Default.GetString(packet)
            Dim txt = forms("窗口1").Controls("TextBox2")
            txt.Text &= iif(txt.text > "", vbcrlf, "") & str
        End While
    End Sub

你发送的过来的中文还是什么？你直接用测试工具接收到的数据是什么？

如果发送的是英文或者标点符号，不可能乱码。

如果发送中文，请询问清楚对中文的编码是什么。

你想直接显示值？

Private Sub ReceiveMsg()
While True
    Dim packet As Byte() = New Byte(1024) {}
    Dim n As Integer = nStream.Read(packet, 0, packet.Length)
    Dim str As String = ""
    For i As Integer = 0 To n-1
        str = str & packet(i) & " "
    Next
    Dim txt = forms("窗口1").Controls("TextBox2")
    txt.Text &= iif(txt.text > "", vbcrlf, "") & str
End While
End Sub

如果要转换成16进制，继续改

http://www.foxtable.com/webhelp/scr/1622.htm