精华内容
下载资源
问答
  • VB开发的TCP通信示例,包括服务端和客户端
  • TCP Server - TCP Client - VB源码 Form1是TCP Server端,Form2是TCP Client端,测试可用,源码已生成EXE。
  • TCP通讯vb6示例.rar

    2019-07-05 10:22:53
    TCP通讯示vb6例,使用winsock控件,服务器端开启端口监听服务后,客户端申请TCP握手创建连接,服务器端可同时处理多个客户端的TCP的连接请求。
  • 最近想开发关于tcp相关程序,tcpserver运行在公网上,tcpclient运行在局域网NAT后(不做NAT映射),tcpclient连接到tcpserver上不断开的情况下,理论上tcpclient能正常发送数据包到tcpserver上(tcpserver也能正常...
  • VB6 TCP通讯示例.rar

    2021-02-19 11:22:43
    vb6使用Winsock控件开发Server、clien之间TCP协议收、发数据示例,Server端通过动态新增数组控件可同时响应多个TCP链接请求。
  • VB TCP SERVER + Client源码

    热门讨论 2011-01-04 14:07:06
    VB TCP SERVER + Client源码 ,绝对可用
  • 一个基于VB.net的异步Socket网络TCP通信
  • 本程序用来模拟TCP/IP 简单通信,实现了SERVER 一对多的通信,可以和我的ARDUINO WIFI配套使用
  • TCPServer-VB网络软件源码,VB构建的服务器,与SIM300模块连接测试
  • VB 写的 Tcp_Server客户应用程序.
  • VB.NET的TCP协议通信工具,包括服务端TCPServer和客户端TCPClient
  • 最近因项目需求要求实现基于vb.net的TCP/IP协议,在网上也没有找到特别好的实例,故在学习完成后写下如下文字,仅供大家学习,如有错误还请大家批评指正,感谢!本文主要由三部分组成,第一部分展示代码实现的功能;...

    最近因项目需求要求实现基于vb.net的TCP/IP协议,在网上也没有找到特别好的实例,故在学习完成后写下如下文字,仅供大家学习,如有错误还请大家批评指正,感谢!

    本文主要由三部分组成,第一部分展示代码实现的功能;第二部分解释部分与代码相关的基础知识;第三部分讲解服务器端与客户端的实现。

    本文代码参考自https://code.msdn.microsoft.com/windowsdesktop/Simple-Multi-User-TCPIP-43cc3b44推荐大家将代码下载下来再结合本文学习

    代码在参考代码上做了两个调整,1. 增加功能:服务器端可向客户端发送数据;2.删除功能:客户端A向服务器端发送的数据,客户端B也能收到

    若需要修改后的代码请移步https://download.csdn.net/download/xsz_94/10508618 (不免费)

    一. 代码执行效果

    把这一部分放在最开始是想让大家对功能有个直观的印象,也好看看本文所述与您的需求是否一致。

    服务器端开始监听,而后客户端开始发送连接请求,连接成功后,客户端喝服务器端可进行通信。

    二. 相关基础知识

    加入本章的初衷是,在学习代码的过程中,由于这部分知识的匮乏,增加了读懂代码的难度,我了解这些知识后,问题也变的迎刃而解。

    本部分简要说明三个方面知识,2.1 TCP/IP握手步骤,2.2 使用IAsyncResult进行Socket异步通信 2.3 线程(委托的使用)

    如您已对这三个方面的知识有所了解,则可移步第三部分。

    2.1 TCP/IP握手步骤

    Step1: 在创建连接之前,服务器进入监听(Listen)状态,即准备接收客户端的连接请求

    Step2: 客户端向服务器发送连接请求

    Step3: 服务器向客户端发送应答

    Step4: 客户端向服务器发送应答

    关于TCP报文各标志位的使用等详细内容,本文不再阐述,想了解更多关于TCP/IP协议内容可移步https://blog.csdn.net/u011318165/article/details/48102939

    2.2 使用IAsyncResult进行Socket异步通信

    关于这部分,我想您只需要记住一句话就好

    BeginXXXX/EndXXXXX方法重载可以传入一个Object类型的参数,这样可以把一些需要用到的对象传进去,在方法内部,通过IAsyncResult的AsyncState属性就可以把这个Object类型的参数取出来。

    更详细的内容可移步https://www.cnblogs.com/HopeGi/archive/2013/04/13/3018402.html

    2.3 线程(委托的使用)

    Step1:创建一个委托

    Delegate Sub DelegateType()
    Step2: 声明、实例化一个委托并绑定Sample方法

    Dim a as New DelegateType(AddressOf Sample)
    Step3: 通过调用委托,间接调用方法Sample
    a.Invoke()

    更多关于委托的内容可移步https://blog.csdn.net/leimengyuanlian/article/details/8488092

    三. 代码各功能模块讲解

    3.1 服务器端

    服务器端有两个类,ConnectionInfo用于对客户端进行读写操;MonitorInfo用于操作每个客户端与服务器端的connection

    MonitorInfo结构模块:


    ConnectionInfo结构模块:


    服务器模块结构:


    3.2 客户端

    与服务器端类似,可自行学习。

    如有讲解需要,可以留言让我知道。




    展开全文
  • VB.net,VB2005实现TCP协议编程

    千次阅读 2016-02-23 18:00:51
    协议是TCP/IP协议簇的传输层的一个协议,也是TCP/IP协议簇最为重要的协议之一。在TCP/IP协议簇,有一个协议和TCP协议非常类似,这就是UDP协议,网络上进行基于UDP协议的数据传送时,发送方只需知道接收方的IP...

    (原文http://www.webmastersky.cn/viewthread.php?tid=33296
    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:【客户端程序】项目中组件设定数值表
    9. 把Visual Studio .Net的当前窗口切换到Form1.vb的代码编辑窗口,并在Form1.vb文件的最前面添加下列代码,下列代码在Form1.vb中导入程序中要使用的类所在的命名空间:
    Imports System.Net.Sockets
    '使用到TcpListen类
    Imports System.IO
    '使用到StreamWriter类
    Imports System.Net
    '使用IPAddress类、IPHostEntry类等

    10. 在Form1.vb中创建各种可视组件的代码中添加下列代码,下列代码的作用是创建全局使用的实例和变量:

    Private swWriter As StreamWriter
    '用以向网络基础数据流传送数据
    Private nsStream As NetworkStream
    '创建发送数据的网络基础数据流
    Private tcpClient As TcpClient
    '通过它实现向远程主机提出TCP连接申请
    Private tcpConnect As Boolean = False
    '定义标识符,用以表示TCP连接是否建立
    11. 用下列代码替换Form1.vb中的Button1的Click事件对应的处理代码,下列代码功能是向远程主机的8000端口号提出TCP连接申请,并在连接建立后,初始化基础数据流:

    Private Sub Button1_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button1.Click
    Dim ipRemote As IPAddress
    Dim sHostName As String
    Dim tcpClient As TcpClient
    Try
    ipRemote = IPAddress.Parse ( TextBox1.Text )
    Catch
    MessageBox.Show ( "输入的IP地址不合法!" , "错误提示!" )
    Return
    '判断给定的IP地址的合法性
    End Try
    Try
    tcpClient = New TcpClient ( TextBox1.Text , 8000 )
    '对远程主机的8000端口提出TCP连接申请
    nsStream = tcpClient.GetStream ( )
    '通过申请,并获取传送数据的网络基础数据流
    swWriter = New StreamWriter ( nsStream )
    '使用获取的网络基础数据流来初始化StreamWriter实例
    Button1.Enabled = False
    Button2.Enabled = True
    tcpConnect = True
    StatusBar1.Text = "已经连接!"
    Catch
    MessageBox.Show ( "无法和远程主机8000端口建立连接!" , "错误提示!" )
    Return
    End Try
    End Sub

    12. 用下列代码替换Form1.vb中的Button2的Click事件对应的处理代码,下列代码功能是对基础数据流进行写操作,实现向远程主机传输文本数据:

    Private Sub Button2_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button2.Click
    If ( TextBox2.Text <> "" ) Then
    swWriter.WriteLine ( TextBox2.Text )
    '刷新当前数据流中的数据
    swWriter.Flush ( )
    TextBox2.Text = ""
    Else
    MessageBox.Show ( "发送信息不能为空!" , "错误提示!" )
    End If
    End Sub

    13. 用下列代码替换Form1.vb中的Dispose过程,下面代码的作用是重新定义Dispose过程,在过程中判断TCP连接是否仍然建立,如果建立则向远程主机传送控制码,断开连接,并手动清除使用的资源,回收垃圾:

    Protected Overloads Overrides Sub Dispose ( ByVal disposing As Boolean )
    If tcpConnect Then
    swWriter.WriteLine ( "STOP" )
    '发送控制码
    swWriter.Flush ( )
    '刷新当前数据流中的数据
    nsStream.Close ( )
    swWriter.Close ( )
    '清除资源 ( )
    End If
    If disposing Then
    If Not ( components Is Nothing ) Then
    components.Dispose ( )
    End If
    End If
    MyBase.Dispose ( disposing )
    End Sub

    14. 至此【客户端程序】就完成了。在正确编译项目后。就可以选择局域网中任二台计算机来测试了,一台运行客户端程序,一台运行服务器端程序。在服务器端程序运行后,单击【启动服务】按钮,启动服务后。在客户端程序的【服务器IP地址】文本框中输入网络中运行服务器端程序主机对应的IP地址后,单击【连接】按钮,就和启动服务的服务器端程序建立TCP连接,此时就可以在客户端程序的【信息】文本框中输入文本信息后,单击【发送】按钮就能够把文本信息传送到服务器端了。图03和图04分别是客户端程序和服务器端程序运行后进行通讯时的界面:
    五.总结:
    虽然本文用Visual Basic .Net实现一个简单的基于TCP协议的网络应用程序。但程序中使用的是NetworkStream作为载体,通过StreamWriter和 StreamReader通过操作这个载体从而实现数据传输和接收。这种实现TCP协议方法虽然比较简单,但却无法回避NetworkStream作为网络传输、接收数据载体的一个致命的缺陷,那就是NetworkStream只能传输基于文本类型的数据,如果要传输基于字节的数据,使用这种方法就勉为其难了。而套接字(Socket)就能够胜任这项工作,套接字不仅能够实现各种类型数据在网络上的传输和接收,也是实现网络中其他应用协议的关键。诸位若想真正成为网络编程的高手,必须掌握Socket的使用方法。最后希望本文能够开启您编写网络应用程序之门,对您掌握更深层次网络编程有所帮助。

    展开全文
  • TCP服务端vb.net支持多客户端连接

    千次阅读 2014-10-25 16:36:04
    Imports System.Threading Imports System.IO Imports System.Net Imports System.Net.Sockets Public Class Form1 Private thThreadRead As Thread Private tlTcpListen As TcpListener Private lstCl
    Imports System.Threading
    Imports System.IO
    Imports System.Net
    Imports System.Net.Sockets
    
    Public Class Form1
        Private thThreadRead As Thread
        Private tlTcpListen As TcpListener
        Private lstClient As List(Of TcpClient)
        Private blistener As Boolean = True
    
        Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
            If CheckBox1.Checked = True Then
                blistener = True
                thThreadRead = New Thread(New ThreadStart(AddressOf dowork))
                thThreadRead.IsBackground = True
                thThreadRead.Start()
            Else
                StatusBar1.Text = "正在停止监听..."
                blistener = False
                thThreadRead.Abort()
                For Each tclient In lstClient
                    tclient.Client.Close()
                Next
                tlTcpListen.Stop()
                lstClient.Clear()
                StatusBar1.Text = "监听已经停止"
            End If
        End Sub
    
        Private Sub dowork()
            Dim iPort As Integer = 8000
            Dim localAddr As IPAddress = IPAddress.Any
            iPort = CInt(numPort.Value)
            tlTcpListen = New TcpListener(localAddr, iPort)
            tlTcpListen.Start()
            StatusBar1.Text = "正在监听..."
            lstClient = New List(Of TcpClient)
            lstClient.Clear()
            Do While True
                Dim tcClient As TcpClient = tlTcpListen.AcceptTcpClient
                lstClient.Add(tcClient)
                Dim thd As New Thread(New ParameterizedThreadStart(AddressOf Listen))
                thd.IsBackground = True
                thd.Start(tcClient)
            Loop
        End Sub
    
        '错误1:每连接一个主机就会创建一个线程,但是主机断开连接时线程仍然没有关闭
        Private Sub Listen(ByVal tcClient As TcpClient)
            Try
                Dim nsStream As NetworkStream = tcClient.GetStream()
                StatusBar1.Text = "已经建立TCP连接!" + tcClient.Client.RemoteEndPoint.ToString()
                While blistener
                    Dim sMessage As String = ""
                    If nsStream.DataAvailable Then '是否有可用数据
                        Dim buf(8 * 1024) As Byte
                        Dim slen = nsStream.Read(buf, 0, buf.Length)
                        sMessage = System.Text.Encoding.UTF8.GetString(buf)
                        sMessage = sMessage.Substring(0, slen)
                    End If
                    If sMessage <> "" Then
                        Dim sTime As String = DateTime.Now.ToShortTimeString()
                        sMessage = sTime + " " + tcClient.Client.RemoteEndPoint.ToString() + " [" + sMessage + "]" + vbCrLf
                        Me.Invoke(New EventHandler(Sub() TextBox1.AppendText(sMessage)))
                    End If
                    'Threading.Thread.Sleep(1)
                End While
            Catch ex As System.Exception
                MessageBox.Show(ex.Message, "错误")
            End Try
        End Sub
    
        '错误2:每连接一个主机lstClient就添加一个对象。但是连接后在断开这个对象并没有删除
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            '向每一个主机发送信息
            For Each tclient In lstClient
                Dim sw As StreamWriter = New StreamWriter(tclient.GetStream())
                sw.Write(TextBox2.Text)
                sw.Flush()
            Next
    
        End Sub
    End Class

    上面是TCP服务端代码。窗体界面很简单就不贴了。供大家分享。

    目前还有2个缺陷。代码注释有说明,有大神路过请指正。

    展开全文
  • TCP_Socket_source_Server_VB

    2021-02-03 06:57:51
    由 VS2019开发工程源码,功能完善,代码完整,详细注释,可以作为需要使用串口上位机编程参考,方便二次开发,让开发调试更加简单方便。其包含以下功能及特点:VB server服务端 TCP SOCKET demo源码
  • VB.NET2010与C# 2010开发的OPC Server服务器软件的源代码,支持64位系统,内含软件使用说明、开发包使用说明,以及ModbusTCP、DTU透传模块RTU协议网络传输等多种通讯驱动的DLL文件,开发一个OPC并不难;
  • 关于vb中利用winsock控件,tcp协议实现多服务端连接的问题,网上的资料很多,  但是都是复制来复制去,来来去去就那一两个例子,而且大都无法运行,方法不够简洁,给初学者带来一定的难度。  我也是刚接触vb不久...
    关于vb中利用winsock控件,tcp协议实现多服务端连接的问题,网上的资料很多, 
    
    但是都是复制来复制去,来来去去就那一两个例子,而且大都无法运行,方法不够简洁,给初学者带来一定的难度。 
    我也是刚接触vb不久的初学者,结合msdn对多连接的介绍, 
    于是就有了下面的例子(目 前最短的最好理解的,不信可以去Google比较一下) 

    原创by:Login 欢迎到小站www.host900.com进行讨论。完成于2010-1-18

    客户端 (接受多个连接) 

    有不懂得可以加我QQ:672308444,我会详细解释。另外欢迎到小站www.mycrazy.ucoz.com进行讨论。

    只有两个winsock控件,一个名为listener作为监听;另一个为listen(index属性设为0)控件数组,用来就受新的连接 

    (当有服务端连接时,会显示为新连接分配的listen控件数组的下标,下标从零开始) 

    (当有服务端发送数据时,会在窗体上显示发送数据的服务端被分配的listen控件数组的下标,下标从零开始)

    客户端代码: 

    Dim upi As Integer '存放空闲listen控件的数组的下标,,[声明部分变量]

    Public Sub findfreeandloadsck() '查找空闲的listen数组中空闲的控件并加载 

    '现在当前数组范围内查找空闲的listen 

    Dim i As Integer 

    For i = 0 To listen.UBound 

    If listen(i).State <> 7 Then 

    upi = i 

    listen(i).Close 

    MsgBox upi 

    Exit Sub 

    End If 

    Next i 

    '如果上面的没有找到,然后增加数组的大小,使用新的空闲listen 

    upi = listen.UBound + 1 

    On Error Resume Next 

    Load listen(upi) 

    listen(i).Close 

    MsgBox upi 

    End Sub

    Private Sub Form_Load() 

    If listener.State <> 0 Then listener.Close 

    listener.LocalPort = 808 

    listener.listen 

    End Sub

    Private Sub listener_ConnectionRequest(ByVal requestID As Long) '使用listener作为listen的管理,为新的连接调用空闲的listen成员 

    Call findfreeandloadsck 

    On Error Resume Next 

    listen(upi).Accept requestID 

    End Sub

    Private Sub listen_DataArrival(Index As Integer, ByVal bytesTotal As Long) 

    Print Index 

    End Sub

    测试时可以打开多个服务端分别连接客户端,我在本人的电脑上测试无误. 

    有不懂得可以加我QQ:672308444,我会详细解释。另外欢迎到小站www.mycrazy.ucoz.com进行讨论。

    服务端

    有两个文本框(接收连接ip和端口号名分别为ip和por t),三个按钮(用来断开和连接和发送数据,名分别为stop,conn和send),一个label(名为state)和一个winsock控件名为wsk

    Private Sub Conn_Click() '连接按钮 

    If wsk.state <> 7 Then 

    wsk.Close 

    wsk.RemoteHost = ip.Text 

    wsk.RemotePort = port.Text 

    wsk.Connect 

    End If 

    End Sub

    Private Sub send_Click() '发送按钮 

    If wsk.state = 7 Then 

    wsk.SendData sendText.Text 

    sendText.Text = "" 

    End If 

    End Sub

    Private Sub stop_Click() '断开按钮 

    If wsk.state <> 0 Then wsk.Close 

    state.Caption = "连接状态:" & "[" & wsk.state & "]" & ":已断开" 

    End Sub

    Private Sub wsk_Connect() 

    state.Caption = "连接状态:" & "[" & wsk.state & "]" & ":已连接" 

    End Sub

    ****************** 

    测试时可以打开多个服务端分别连接客户端,我在本人的电脑上测试无误. 

    有不懂得可以加我QQ:672308444,我会详细解释。另外欢迎到小站www.mycrazy.ucoz.com进行讨论。 

    **************** ** 

    运行图: 。


    展开全文
  • Tcp服务端与客户端的JAVA实例源代码 2个目标文件 摘要:Java源码,文件操作,TCP,服务器 Tcp服务端与客户端的JAVA实例源代码,一个简单的Java TCP服务器端程序,别外还有一个客户端的程序,两者互相配合可以开发出超多...
  • 实现 tcp 的通信,包括 client 和 server
  • MODBUS TCP 控件

    2013-05-20 14:11:07
    一个标准的 MODBUS TCP CLIENT 通讯库,开发工具 VB.NET 2005 可以实现 与PLC编程口的网络通讯。 包含源代码
  • vbRichClient5_Tcp_ServerAndClient,EXCEL VBA 调用vbRichClient5实现服务端与客户端 双向通信
  • Asynchronous TCP/IP Server Socket Demo Code
  • vb.net串口和TCP通信源码

    热门讨论 2008-11-26 22:11:14
    使用vb.net2005编写的串口通信和TCPIP通信源码
  • 最近写一个TCP SERVER的程序,遇到一个问题,使用 BeginAcceptTcpClient 异步接受Client的连接,过程都是正常的,但我是一直允许新的客户端进行连接,所以在使用了EndAcceptTcpClient后,会再次使用BeginAcceptTcpClient...
  • TCP协议是TCP/IP协议簇的传输层的一个协议,也是TCP/IP协议簇最为重要的协议之一。在TCP/IP协议簇,有一个协议和TCP协议非常类似,这就是UDP协议,网络上进行基于UDP协议的数据传送时,发送方只需知道接收方的...
  • 下面我们用VB来实现TCP/IP网络编程。  TCP/IP协议是Internet最重要的协议。VB提供了WinSock控件,用于在TCP/IP的基础上进行网络通信。当两个应用程序使用Socket进行网络通信时,其中一个必须创建Socket服务器...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 8,859
精华内容 3,543
关键字:

vb中tcpserver