也发一个VB.net里面基于socket实现TCP/IP通许范例。

[wenluderen]

为啥是也发，因为：
https://bbs.csdn.net/topics/392456327

原帖说的不错，关键是第三步。

服务器代码：

Imports System
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports System.Threading
Imports Microsoft.VisualBasic
Public Class Form1
    Dim s As Socket = Nothing
    Dim t As Thread


    Public Sub WaitData()
        s = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) '使用TCP协议
        Dim localEndPoint As New IPEndPoint(IPAddress.Parse("192.168.1.12"), 1024) ' 指定IP和Port
        s.Bind(localEndPoint)  ' 绑定到该Socket
        s.Listen(100)  ' 侦听，考试#大提示最多接受100个连接
        While (True)
            Dim bytes(1024) As Byte ' 用来存储接收到的字节
            Dim ss As Socket = s.Accept()  '若接收到,则创建一个新的Socket与之连接
            ss.Receive(bytes)  ' 接收数据，若用ss.send(Byte()),则发送数据


            'Dim Send_bytes() As Byte = {"1", "3"} ' 用来存储接收到的字节
            'ss.Send(Send_bytes(0))

            Call ShowinListBox(Encoding.Unicode.GetString(bytes), ListBox1)
            '若使用Encoding.ASCII.GetString(bytes),则接收到的中文字符不能正常显示
        End While
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        t = New Thread(AddressOf WaitData) '建立新的线程
        t.Start()  '启动线程
        Button1.Enabled = False '按钮不可用，避免另启线程
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            s.Close()  '关闭Socket
            t.Abort()  '中止线程
        Catch
        Finally
            Button1.Enabled = True '启用BtnStart
        End Try
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        Try
            s.Close()  '关闭Socket
            t.Abort()  '中止线程
        Catch
        Finally
            Button1.Enabled = True '启用BtnStart
        End Try
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    
End Class

客户端代码

Imports System.Net.Sockets
Imports System.Net
Imports System.Text


Public Class Form1

    Private s = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button_Open_Click(sender As Object, e As EventArgs) Handles Button_Open.Click
        Try
            Dim localEndPoint As New IPEndPoint(IPAddress.Parse(Me.TextBox_Server_IP.Text), Me.TextBox_Server_Port.Text)

            s.Connect(localEndPoint)

 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim Gsz_bytes() As Byte

            ' Gsz_bytes = Encoding.Unicode.GetBytes(TextBox_Send.Text)
            ' Gsz_bytes = Encoding.UTF8.GetBytes(TextBox_Send.Text) '这是可以的
            Gsz_bytes = System.Text.Encoding.ASCII.GetBytes(TextBox_Send.Text)
            s.Send(Gsz_bytes)


        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

    End Sub

    Private Sub Button_Close_Click(sender As Object, e As EventArgs) Handles Button_Close.Click
        Try
            s.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

    End Sub
End Class

源程序，VS2012可以打开

没有办法上传附件，所以上传到资源区了
https://download.csdn.net/download/wenluderen/10699573

[wenluderen]

原因是：发送和接受的数据变换不一致 发送是： Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try Dim Gsz_bytes() As Byte ' Gsz_bytes = Encoding.Unicode.GetBytes(TextBox_Send.Text) ' Gsz_bytes = Encoding.UTF8.GetBytes(TextBox_Send.Text) '这是可以的 Gsz_bytes = System.Text.Encoding.ASCII.GetBytes(TextBox_Send.Text) s.Send(Gsz_bytes) Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub 接受是： While (True) Dim bytes(1024) As Byte ' 用来存储接收到的字节 Dim ss As Socket = s.Accept() '若接收到,则创建一个新的Socket与之连接 ss.Receive(bytes) ' 接收数据，若用ss.send(Byte()),则发送数据 'Dim Send_bytes() As Byte = {"1", "3"} ' 用来存储接收到的字节 'ss.Send(Send_bytes(0)) Call ShowinListBox(Encoding.Unicode.GetString(bytes), ListBox1) '若使用Encoding.ASCII.GetString(bytes),则接收到的中文字符不能正常显示 End While 将他们统一即可

[wenluderen]

如上图所示 即可

[wenluderen]

客户端的代码。 Encoding.Unicode.GetBytes(TextBox_Send.Text) Encoding.UTF8.GetBytes(TextBox_Send.Text) System.Text.Encoding.ASCII.GetBytes(TextBox_Send.Text） 我猜测是将发送的字符按照对应的编码方式 转化为 Bytes数组。然后发送到出去 ××××××××××××××××××××××××××××××××××××××××××××××××× 在服务器那端，执行逆运算。 Dim bytes(1024) As Byte ' 用来存储接收到的字节 Dim ss As Socket = s.Accept() '若接收到,则创建一个新的Socket与之连接 ss.Receive(bytes) ' 接收数据，若用ss.send(Byte()) Encoding.Unicode.GetString(bytes) 将字符数组 转化为字符串，然后显示出来 ××× 如果服务器 和客户端的转码方式不一样，就可能受到 乱码

[threenewbee]

感谢分享，给你推荐下，应该还会有C币给你。

[育培]

学习学习，长长知识

[baidu_14933765]

[weixin_42270174]

好极了，学习中。

[qq_25818421]

学习学习，好久没看了

[ly5222518000]

不错不错，其实.net推荐的是用TcpClient和TcpListener来代表客户端和服务端哦，而不是直接用socket(2, 1, 6)

[ly5222518000]

客户端和服务端的编码都一致就不会乱码了，约定好都用UTF8或者Unicode
Buffer缓冲区第一位留出来做自定义通信协议

[绝对刀锋]

好久不见
非常好

[chuiwei]

很好很强大

[gaoqd999]

拜读了，很好

[吹风的兔子]

这个不是应该发博文的么？ 怎么发到 论坛来了？

[hbhuo2008]

请教各位大神，如何将每次连接到的socket保存起来，下次发送的时候再用到？