用VB实现客户——服务器（TCP/IP）编程实例

最新推荐文章于 2024-08-07 10:22:34 发布

u014112224

最新推荐文章于 2024-08-07 10:22:34 发布

阅读量1.3w

点赞数 5

本文链接：https://blog.csdn.net/u014112224/article/details/21331855

版权

本文通过VB展示了如何实现TCP/IP的客户-服务器编程。利用WinSock控件，详细介绍了服务器端如何监听和接受连接，以及客户端如何连接到服务器并进行数据交换。通过创建两个窗体应用，一个作为服务器端，一个作为客户端，实现双方的通信功能。

摘要由CSDN通过智能技术生成

现在大多数语言都支持客户－服务器模式编程，其中VB给我们提供了很好的客户－服务器编程方式。下面我们用VB来实现TCP／IP网络编程。
　　TCP／IP协议是Internet最重要的协议。VB提供了WinSock控件,用于在TCP／IP的基础上进行网络通信。当两个应用程序使用Socket进行网络通信时，其中一个必须创建Socket服务器侦听，而另一个必须创建Socket客户去连接服务器。这样两个程序就可以进行通信了。
　　1．创建服务器，首先创建一个服务端口号。并开始侦听是否有客户请求连接。
　　建立一窗体，并向其增加一个Winsock控件(可在工程菜单中的部件项来添加此控件)
　　添加两文本框Text1,Text2,和一按钮Command1
　　Private Sub Form_Load()
　　SockServer.LocalPort = 2000 ′服务器端口号,最好大于1000
　　SockServer.Listen ′开始侦听
　　End Sub
　　Private Sub Form_Unload(Cancel As Integer)
　　SockServer.Close
　　End Sub
　　Private Sub SockServer_Close()
　　SockServer.Close
　　End Sub
　　Private Sub SockServer_ConnectionRequest(ByVal requestID As Long)
　　SockServer.Close
　　SockServer.Accept requestID ′表示客户请求连接的ID号
　　End Sub
　　′当客户向服务器发送数据到达后,产生DataArrival事件,在事件中接收数据,GetData方法接收数