vb.net如何使用TCP/IP协议向服务器发送字符串，要用到啥控件和函数？

Posted 2023-04-15

TCP协议是TCP/IP协议簇中的传输层中的一个协议，也是TCP/IP协议簇最为重要的协议之一。在TCP/IP协议簇中，有一个协议和TCP协议非常类似，这就是UDP协议，网络上进行基于UDP协议的数据传送时，发送方只需知道接收方的IP地址（或主机名）和端口号就可以发送UDP数据包。而接收方只需知道发送方发送数据对应的端口号，就能够接收UDP数据包了。传送数据的双方并不需要进行连接就能够实现数据通讯，这样就导致基于UDP协议的网络应用程序，在传送数据时无法保证可靠性、完整性和安全性。
　　　而TCP协议却与之相反，TCP协议是一种面向连接的，并提供可靠的、完整的、安全的数据传送的网络协议。它提供可靠字节服务的协议。在网络中通过TCP协议传送数据之前，发送方和接收方之间必须建立连接，这种连接就是所谓的"握手"。网络中TCP应用，如同日常生活中的打电话，在通话之前，首先要拨号、震铃（犹如发送方向接收方提出TCP连接申请，并等待TCP连接申请通过）。直到对方拿起电话时（发送方和接收方的TCP连接已经建立），就可以通话了（传送数据）。本文的主要内容就来介绍在Visual Basic .Net实现基于TCP协议网络数据传送的一种简单的方法。

　　一．简介本文在实现TCP协议网络应用时使用的类库：

　　.Net FrameWork SDK中提供了很多用以实现TCP协议或与之相关协议的类库，本文就选择五个比较典型，也是比较简单的类加以介绍，即：TcpListener类、TcpClient类、NetworkStream类、StreamReader类和StreamWriter类。TcpClient主要用以提出TCP连接申请。TcpListener主要用以侦听端口号，并接收远程主机的TCP连接申请。NetworkStream类是实现TCP数据传输的基础数据流，StreamReader类作用是通过操作NetworkStream，实现从网络接收数据。StreamWriter类作用是通过操作NetworkStream，实现向网络传输数据。

　　1. NetworkStream类：

　　NetworkStream类主要是提供用于网络访问的基础数据流。它主要是网络数据传输的载体，并提供同步、异步方式来访问网络数据流。虽然NetworkStream类有构造函数，但在实际情况中更多是通过TcpClient实例的GetStream方法来初始化NetworkStream实例。以下就是使用TcpClient实例的GetStream方法来初始化NetworkStream实例具体代码：

Dim tcpClient As TcpClient
Dim nsStream As NetworkStream
tcpClient = New TcpClient( "www.microsoft.com" , 8000)
''对远程主机的8000端口提出TCP连接申请
nsStream = tcpClient.GetStream ( )
''TCP连接建立后，获得网络数据传输的基础数据流
　　在下面介绍的程序示例中，就是利用NetworkStream作为传送和接收数据的载体。而操作这个载体的就是StreamWriter类和StreamReader类。表01和表02是NetworkStream类中一些常用的方法、属性及其说明。

方法 说明 BeginRead 开始异步读者基础数据流。 BeginWrite 开始异步写入基础数据流。 Close 关闭流并可选择关闭基础套接字。 EndRead 结束异步读取。 EndWrite 结束异步写入。 Flush 刷新流中的数据。 Read 从流中读取数据。 Seek 将流的当前位置设置为给定值。 SetLength 设置流的长度。 Write 将数据写入流。
表01：NetworkStream类中常用的方法及其说明

　　其中"BeginRead"、"EndRead"和"BeginWrite"、"EndWrite"是二对异步方法，起作用分别相当于"Read"和"Write"方法。

属性 说明 CanRead 获取当前流是否支持读取。 CanSeek 获取流是否支持查找。该属性总是返回 false。 CanWrite 获取当前流是否支持写入。 DataAvailable 获取是否可以在流上读取数据。 Length 流上可用数据的长度。 Position 获取或设置流中的当前位置。
表02：NetworkStream类中属性及其说明

　　2. StreamReader类：

　　StreamReader类能够实现对基础数据流的读操作，从而实现对经过基础数据流传送来的数据。表03是StreamReader类的常用的方法及其说明：

方法 说明 Close 关闭StreamReader并释放与阅读器关联的所有系统资源。 DiscardBufferedData 允许StreamReader丢弃其当前数据。 Peek 返回下一个可用的字符，但不使用它。 Read 读取输入流中的下一个字符或下一组字符。 ReadBlock 从当前流中读取最大数量的字符并从索引开始将该数据写入缓冲区。 ReadLine 从当前流中读取一行字符并将数据作为字符串返回。 ReadToEnd 从流的当前位置到末尾读取流。
表03：NetworkStream类中常用的方法及其说明

　　3. StreamWriter类：

　　StreamWriter类能够实现对基础数据流的写操作，从而实现提供基础数据流来传送数据。表04是StreamWriter类的常用方法及其说明：

方法 说明 Close 关闭当前的StreamWriter和基础流。 Flush 清理当前编写器的所有缓冲区，并使所有缓冲数据写入基础流。 Write 写入基础数据流。 WriteLine 写入重载参数指定的某些数据，后跟行结束符。
表04：StreamWriter类的常用方法及其说明

　　4.TcpClient 类：

　　TcpClient 类主要为TCP网络服务提供客户端连接。TcpClient是类基于Socket类构建，
它以更高的抽象程度提供TCP服务。TcpClient 提供了通过网络连接、发送和接收数据的简单方法。表05和表06分别是TcpClient类常用方法、属性及其说明。

方法 说明 Close 关闭 TCP 连接 Connect 使用指定的主机名和端口号将客户端连接到 TCP主机 GetStream 返回用于发送和接收数据的流
表05：TcpClient类常用的方法

属性 描述 LingerState 有关套接字逗留时间的信息 NoDelay 一个值，该值在发送或接收缓冲区未满时启用延迟 ReceiveBufferSize 接收缓冲区的大小 ReceiveTimeout TcpClient在启动后为接收数据而等待的时间长度 SendBufferSize 发送缓冲区的大小 SendTimeout 在您启动发送操作后TcpClient将为接收确认而等待的时间长度
表06：TcpClient类常用的属性

　　5.TcpListener 类：

　　TcpListener类的主要作用是从TCP网络客户端侦听连接，TcpListener类基于Socket 类
提供更高理念级别的TCP服务。可以使用TcpListener从TCP客户端侦听连接。像 FTP 和 HTTP 这样的应用层协议是在 TcpListener 类的基础上建立的。表7和表8分别是TcpListener类常用方法、属性及其说明：

方法 说明 AcceptSocket 接受挂起的连接请求 AcceptTcpClient 接受挂起的连接请求 Pending 确定是否有挂起的连接请求 Start 开始侦听网络请求 Stop 关闭侦听器表7：TcpListener 类常用的方法

属性 说明 LocalEndpoint 获取当前TcpListener的基础EndPoint Active 获取一个值，该值指示 TcpListener 是否正主动侦听客户端连接 Server 获取基础网络Socket
表8：TcpListener 类常用的属性

　　二．Visual Basic .Net实现基于TCP协议数据传送程序的体系结构：

　　在下面介绍的用Visual Basic .Net实现基于TCP协议的数据传送程序是由二个子程序组成的。也可以看成是服务器端程序和客户端程序，其中：服务器端程序的功能是侦听端口号，接收远程主要的TCP连接申请，并接收远程主机传送来的文字数据。另外一个子程序，也就是所谓的客户端程序，主要实现向网络的远程主机提出TCP连接申请，并在连接申请通过后，向远程主机传送文字数据。下面来详细介绍Visual Basic .Net实现TCP协议网络数据传送的服务器端程序和客户端程序的具体步骤。

　　三．服务器端程序的具体实现步骤：

　　服务器端程序的实现关键在于侦听端口号，接收远程主机的TCP连接申请，获得网络数据传输的基础数据流，并通过基础数据流接收数据。接收数据使用的是StreamReader中ReadLine方法，由于ReadLine方法是一个阻塞式的方法，所以在下面具体的实现步骤中，是接收数据是在创建的线程中完成的，具体可参阅下面实现步骤中的第十一和十二步。以下是Visual Basic .Net实现TCP协议客户端程序实现的具体步骤：

　　1. 启动Visual Studio .Net。

　　2. 选择菜单【文件】|【新建】|【项目】后，弹出【新建项目】对话框。

　　3. 将【项目类型】设置为【Visual Basic项目】。

　　4. 将【模板】设置为【Windows应用程序】。

　　5. 在【名称】文本框中输入【服务器端程序】。

　　6. 在【位置】的文本框中输入【E:\VS.NET项目】，然后单击【确定】按钮，这样在"E:\VS.NET项目"目录中就产生了名称为"服务器端程序"的文件夹，并在里面创建了名称为"服务器端程序"的项目文件。

　　7. 把Visual Studio .Net的当前窗口切换到【Form1.vb（设计）】窗口，并从【工具箱】中的【Windows窗体组件】选项卡中往Form1窗体中拖入下列组件，并执行相应的操作：

　　一个Label组件。
　　一个StatusBar组件。
　　一个ListBox组件。
　　一个Button组件，并在这个Button组件拖入Form1的设计窗体后，双击它，则系统会在Form1.vb文件分别产生这个组件的Click事件对应的处理代码。

　　8. 按照表05所示调整窗体中各组件属性的数值：

组件类型 组件名称 属性 设置结果 Form Form1 Text 服务器端程序 Form1 MaximizeBox False Form1 FormBorderStyle FixedSingle Button Button1 Text 启动服务 Button1 FlatStyle Flat Label Label1 Text 服务尚未启动 StatusBar StatusBar1 Text 无连接！表05：【服务器端程序】项目中组件设定数值表
　9. 把Visual Studio .Net的当前窗口切换到Form1.vb的代码编辑窗口，并在Form1.vb文件的最前面添加下列代码，下列代码在Form1.vb中导入程序中要使用的类所在的命名空间：

Imports System.Net.Sockets
''使用到TcpListen类
Imports System.Threading
''使用到线程
Imports System.IO
''使用到StreamReader类
　　10. 在Form1.vb中创建各种可视组件的代码中添加下列代码，下列代码的作用是创建全局使用的实例和变量：

Private iPort As Integer = 8000
''定义侦听端口号
Private thThreadRead As Thread
''创建线程，用以侦听端口号，接收信息
Private tlTcpListen As TcpListener
''侦听端口号
Private blistener As Boolean = True
''设定标示位，判断侦听状态
Private nsStream As NetworkStream
''创建接收的基本数据流
Private srRead As StreamReader
''从网络基础数据流中读取数据
Private tcClient As TcpClient
　　11. 在Form1.vb中的InitializeComponent过程之后添加下列代码，下列代码的作用是定义Listen过程，此过程的作用是侦听本地机的8000端口号，接受网络主机的TCP连接申请，并接收从建立申请的远程主机发送来的文本数据：

Private Sub Listen ( )
Try
　tlTcpListen = New TcpListener ( iPort )
　''以8000端口号来初始化TcpListener实例
　tlTcpListen.Start ( )
　''开始监听
　StatusBar1.Text = "正在监听..."
　tcClient = tlTcpListen.AcceptTcpClient ( )
　''通过TCP连接请求
　nsStream = tcClient.GetStream ( )
　''获取用以发送、接收数据的网络基础数据流
　srRead = New StreamReader ( nsStream )
　''以得到的网络基础数据流来初始化StreamReader实例
　StatusBar1.Text = "已经建立TCP连接！"
　''循环侦听
　While blistener
　　Dim sMessage As String = srRead.ReadLine ( )
　　''从网络基础数据流中读取一行数据
　　If ( sMessage = "STOP" ) Then
　　　tlTcpListen.Stop ( )
　　　''关闭侦听
　　　nsStream.Close ( )
　　　srRead.Close ( )
　　　''释放资源
　　　StatusBar1.Text = "无连接！"
　　　thThreadRead.Abort ( )
　　　''中止线程
　　　Return
　　Else
　　　''判断是否为断开TCP连接控制码
　　　Dim sTime As String = DateTime.Now.ToShortTimeString ( )
　　　''获取接收数据时的时间
　　　ListBox1.Items.Add ( sTime + " " + sMessage )
　　End If
　End While
Catch ex As System.Security.SecurityException
　MessageBox.Show ( "侦听失败！" , "错误" )
End Try
End Sub

　　12. 用下列代码替换Form1.vb中的Button1的Click事件对应的处理代码，下列代码功能是用上面定义的Listen过程来初始化并启动线程，接收建立TCP连接的远程主机发送来的文本数据：

Private Sub Button1_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button1.Click
　thThreadRead = New Thread ( New ThreadStart ( AddressOf Listen ) )
　''以Listen过程来初始化线程实例
　thThreadRead.Start ( )
　''启动线程
　Button1.Enabled = False
　Label1.Text = "服务已经启动！"
　Label1.ForeColor = Color.Red
End Sub
　　13. 用下列代码替换Form1.vb中的Dispose过程，下面代码的作用是重新定义Dispose过程，在Dispose过程手动清除使用的资源，回收垃圾：

Protected Overloads Overrides Sub Dispose ( ByVal disposing As Boolean )
　Try
　　thThreadRead.Abort ( ) ''中止线程
　　tlTcpListen.Stop ( ) ''关闭侦听
　　tcClient.Close ( )
　　nsStream.Close ( )
　　srRead.Close ( ) ''释放资源
　Catch
　End Try
　If disposing Then
　　If Not ( components Is Nothing ) Then
　　　components.Dispose ( )
　　End If
　End If
　MyBase.Dispose ( disposing )
End Sub
　　14. 至此在上述步骤都正确执行后，【服务器端程序】项目的全部工作就完成了。编译、生成可执行文件后，接着介绍客户端程序的实现步骤。

　　四．客户端端程序的具体实现步骤：

　　客户端端序的实现关键在于向网络中的远程主机提出TCP连接申请，并在申请通过后，得到传输数据的基础数据流，并通过对基础数据流进行写操作向远程主机传送文本数据。由于在客户端程序中没有使用阻塞式的方法，所以程序中没有使用到线程。对远程主机提出TCP连接申请的具体实现方法请参阅以下第步；对基础数据流进行写操作，从而实现向远程主机传送文本数据的方法请参阅以下第步。下面客户端程序的具体实现步骤：

　　1. 启动Visual Studio .Net。

　　2. 选择菜单【文件】|【新建】|【项目】后，弹出【新建项目】对话框。

　　3. 将【项目类型】设置为【Visual Basic项目】。

　　4. 将【模板】设置为【Windows应用程序】。

　　5. 在【名称】文本框中输入【客户端程序】。

　　6. 在【位置】的文本框中输入【E:\VS.NET项目】，然后单击【确定】按钮，这样在"E:\VS.NET项目"目录中就产生了名称为"客户端程序"的文件夹，并在里面创建了名称为"客户端程序"的项目文件。

　　7. 把Visual Studio .Net的当前窗口切换到【Form1.vb（设计）】窗口，并从【工具箱】中的【Windows窗体组件】选项卡中往Form1窗体中拖入下列组件，并执行相应的操作：

　　二个Label组件。
　　二个TextBox组件。
　　一个StatusBar组件。
　　二个Button组件，并在这二个Button组件拖入Form1的设计窗体后，双击它们，则系统会在Form1.vb文件分别产生这二个组件的Click事件对应的处理代码。

　　8. 按照表01所示调整窗体中各组件属性的数值：

组件类型 组件名称 属性 设置结果 Form Form1 Text 客户端程序 Form1 MaximizeBox False Form1 FormBorderStyle FixedSingle Button Button1 Text 连接 Button1 FlatStyle Flat Button2 Text 发送 Button2 FlatStyle Flat Label Label1 Text 服务器IP地址： Label2 Text 信息： StatusBar StatusBar1 Text 无连接！ TextBox TextBox1 Text "" TextBox1 BorderStyle FixedSingle TextBox2 Text "" TextBox2 BorderStyle FixedSingle
表06：【客户端程序】项目中组件设定数值表

有任何疑问请追问，满意请采纳，谢谢。

参考资料：http://chenshengdennis.blog.163.com/blog/static/11285045200701102523401/

参考技术A http://zhidao.baidu.com/question/44040206.html本回答被提问者采纳

实际应用中，TCP/IP协议栈是如何工作的？

斜体部分为读者提问

TCP/IP协议栈中各个协议的作用及其结构，题主已经学懂了。但是对于实际应用中，各个协议如何协同工作的，还是有些不理解，希望大佬们能赐教：

1、以浏览器请求一张大图片为例，说下按我的理解吧：先三次TCP握手（NO1 NO2 NO3），然后发出一个http请求（NO4），服务端向客户端确认收到了请求（NO5）,服务端开始发送图片，实际上是一个http响应，但是因为该响应消息很大（图片很大），所以该http响应消息被TCP分段（由TCP协议栈进程进行分段，浏览器不作处理）然后再发送（NO6~NO81，其中有服务端发送的分段，也有客户端的确认），客户端收到所有分段后，重组为一个http响应报文，交付给浏览器，浏览器确认并断开连接（NO83 NO84），以上理解是否有误？

2、关于wireshark的疑惑：网上好多文章说wireshark是针对网卡，抓取传输层的包，这种说法是否正确？

我在使用wireshark的时候发现，对于ping，没有传输层流量，只有网络层icmp分组消息，也可以被wireshark捕捉并显示为icmp包的啊，并不支持这种说法；对于比较小的http消息，其在软件中显示就是一条，但可以对应查看到TCP头部、IP头部，支持这种说法；对于较大的http消息，被切割成了多个tcp分段，所以会显示成多个tcp条目，只有最后一条因为包含http头部，所以显示为http（NO82），也是支持这种说法的。

为了方便阅览，去掉了一些时间源目IP列，高端口是本地浏览器，80是目标服务器。

该环境使用了openvpn，监听的是openvpn的虚拟网卡，所以包内容看起来有些不一样。。。特此说明下。

问题一：对TCP的理解基本上是对的，但是有一个地方是不准确的。

TCP不会对接收到的segments，拼接成一个文件再让应用程序取走，这是不对的！

第一：如果这么做，一个大文件很容易就将接收方的接收缓存耗尽，压根没有办法再接收后续数据。

第二：TCP根本不理解segment里是什么内容，在这个问题里，它们只是1397字节的segment，至于谁是第一个segment、谁是第二个，TCP是知道的，TCP可以将segment按序排队放入接收缓存，等待应用程序取走（异步操作），这是TCP唯一能做的！

TCP不会做拼接http报文的工作(因为压根不懂)，TCP只保证将接收到字节流按序提交给浏览器就可以了。

这里的客户端应用程序为浏览器，浏览器读取了segment 1、2、3....，浏览器通过第一个segment就明白接下来传输的是一个多少字节长的文件。浏览器根据文件的长度，从文件的起点一直拼接到长度指示的终点。当文件完整得到了，浏览器就在页面上呈现给用户。

问题二：wireshark内部如何实现，除了核心开发人员，没有人可以知道细节。

抓包软件大同小异，如果把抓包软件比作捞鱼的渔网，这个渔网能捞多少鱼，完全取决于是在TCP/IP协议栈捞鱼，还是在网卡上捞鱼。为了更好说明这个问题，做一个实验：

实验：Ping 127.0.0.1

之所以做这个实验，是想证明一点，主机与自己通信，直接在TCP/IP协议栈里完成，而无需数据链路层的参与。以下是整个实验过程：

分别使用windows 自带的ping ，以及第三方的nping，分别ping 127.0.0.1，这个127.0.0.1就是windows主机自己的loopback IP，只用于主机内部进程间通信。

 

抓包显示，数据链路层是空的，所以可以推测，主机内部进程之间通信，并不需要经过物理网卡。

为了证明Ping报文没有经过物理网卡，在物理网卡上抓包，结果没有抓到这些Ping包。

有同学会说，127.0.0.1是一个软件环回接口，没有硬件MAC，所以Ping报文才不会有硬件网卡的参与。

 

本机的网卡绑定的IP = 10.1.4.2，Ping 10.1.4.2 一探究竟。

同样，也没有以太网协议头，自然就没有 Source / Destination MAC。

为了证明Ping报文没有经过物理网卡，在物理网卡上抓包，结果也没有抓到这些Ping包。

通过这个实验，可以得到这样的结论：

操作系统的协议栈，当发现IP报文的Destination IP ==主机任何接口IP时，不管是127.0.0.1，还是这里的10.1.4.2，一律环回(loopback) 处理。

将需要做loopback的报文，直接从IP协议栈的发送缓冲区copy到接收缓冲区，造成的结果就是，这些IP报文仿佛是从硬件网卡接收到的一样。

由于IP报文在IP协议栈(三层)已经掉头向上走，而不会向下走，所在在硬件网卡上是捕获不到的。

抓到127.0.0.1的ping包，是因为wireshark捕获接口是软件环回接口适配器，工作在TCP/IP协议栈(三层及以上)内，所以能够把TCP/IP协议栈内流动的流量复制下来，自然wireshark能够捕获到。

而当wireshark捕获接口是硬件网卡适配器，工作在硬件网卡(二层)内，而ping1227.0.0.1的流量不会下放到基层(二层)，网卡自然看不到这些流量，所以wireshark不会捕获到。

Wireshark工作层面

或工作在二层，或工作在三层，这完全取决于wireshark用户选择捕获什么样的网络适配器，这些上文已经说了很多。

Wiresharke工作原理

让网卡或协议栈对于进出(Incoming / Outgoing)的流量做一个复制，wireshark把复制好的数据，按照时间先后次序和协议格式，显示成用户友好的界面，供用户做协议分析。

Wireshark可靠性

这个问题另外一个说法是，wireshark是100%可靠的吗？

答案是否定的，Wireshark的可靠性依赖于硬件网卡或IP协议栈，而这些底层实现并不能完全100%可靠，所以wireshark并不能100%保证一个不漏的捕获所有的报文。

对于wireshark捕获到的报文，那意味着网络上确实产生过那个报文。

但在极端情况下，wireshark是有可能漏掉一些报文的，尽管概率是极低的。

通俗地说，有证明确实是有，没有并不能证明是没有！

对于一切网络工具，需要借助它们强大的功能，但是不要100%迷信它们。在网络排错时，要用怀疑的眼光审视一切，才能找出隐藏很深的root  cause。

留给读者一个问题，只要长期阅读作者文章的朋友肯定可以回答得出。

问题：Wireshark可以捕获到CRC Error的以太网报文吗？

如果读者知道答案，可以在评论区一起讨论，谢谢！

有一次经过上海人民广场公园，见识了赫赫有名的相亲角，看到很多头发花白的家长手拿一张纸牌，上面有自己成年孩子的概况，有的还附有生活照，或高大帅气、或甜美可人。很多男生、女生很优秀，可能限于接触范围，一直藏于深闺无人识。。。

如果读者朋友们喜欢这位姑娘，请多几次红娘，转发给您身边的朋友阅读，让更多的读者发现这位羞答答的姑娘。

赠人玫瑰，手留余香。。。