VB环境下用Winsock实现网络通信.docxVIP

2004年12月连云港师范高等专科学校学报December，2004第4期Journal of Lianyungang Teachers CollegeNo．4文章编号：1009—7740(2004)04—0079—03VB环境下用Winsock实现网络通信周正国(连云港师范高等专科学校计算机系，江苏连云港222006)摘要：网络编程已成为现代程序设计的重要组成部分，由于其涉及到许多的网络专业技术，使不少编程爱好者望而却步，文章通过对VB中Winsock控件使用的分析，让读者对于网络编程的思想有一个比较清晰的认识。关键词：VB；Winsock；网络通信；TCP；UDP中图分类号：TP393．09文献标识码：A如今，随着计算机和通讯技术的发展，计算机的 套接字等候连接传人。connect和accept函数用于完 网络化已渗透到各个应用领域，尤其是以rI℃P／口协 成一个面向连接的通信的建立。其中connect()用于 议为基础的异机种网络和异网互联发展迅猛。计算 客户端向服务器发出连接请求，而accept()用于使服 机应用系统的开发也由传统方式转向网络环境。对 务器接受来自某客户进程的实际连接请求。send函 于许多的VB编程者而言，由于网络编程涉及到许多 数用于在面向连接的通信中，在已经建立连接的套接 rI℃P，口、UDP等之类的专业术语，没有极深厚的专业 字上发送数据。基础不敢涉足，使网络编程成为一个无法探究的领 Winsock控件可以使用两种协议：TCP协议和 域。 UDP协议。TCP协议即数据传输协议，它在两个主机Visual Basic为广大程序员提供了基于Windows 之间建立连接，提供双向、有序且无重复的数据流服 Sockets网络编程接口的Winsock控件，它封装了所有 务，以及流量控制、差错检测和纠错等服务，保证数据 烦琐的技术细节，并提供了访问TCP和UDP网络服 的可靠传输。利用TCP协议通讯必须分别建立客户 务的方便途径。只需通过设置控件的属性并调用其 应用程序和服务器应用程序。UDP协议也称为用户 方法就可轻易连接到一台远程计算机中，并且还可以 数据报文协议，是一种双向的无连接服务。它把数据 双向交换数据，而这一切都不需了解TCP的细节或 发送出去但并不进行差错控制和检查，所以不能保证 调用低级的Winsock APIs，使得开发1℃P，口应用变得 数据的可靠性，因而一般只用于少量数据的传输。但 简单轻松。VB为编程者提供了三个非常简便的IIl— 用它进行连接时，不必象TCP协议那样需要服务器 temet控件。其中，Winsock控件主要是用来编制TCP／ 端侦听，客户机端请求连接，服务器端建立连接后双 口或UDP协议的通话应用程序。IntemetTransfer控件 方才能通信。UDP应用程序可以是客户机，也可以是 主要用来传输文件，执行FTP命令及登录服务器等。 服务器程序，而不必向TCP应用程序那样必须分别 WebBmwser则用于创建可加入自己的应用程序的浏 建立客户机程序和服务器程序。览器。本文以Winsock控件为例，分析如何进行网络1用TCP协议进行通信通信。 采用TCP协议进行通信要分别设立服务器端和 Winsock中常用的API函数有：bind()、connect()、 客户端。accept()、listen()、send()等。Bind函数可将指定的套 服务器端： 接字同本地的网络(包括端口)绑定，因为一旦创建了 ’设定服务器监听端口 套接字，就必须将套接字绑定到本地接口的网络地址 PrivateSub Form-Load()和端口上。listen函数用于在面向连接的通信服务器 w1．Local．Port=2000’本地机器的通信端口 端，在bind调用之后，将套接字置入监听模式，指示 w】．1,isten万方数据收稿日期；2004—02—23EndSub程序结束，则关闭连接PrivateSub Form-Unload(Cancel As Integer)w1．CloseEnd Sub’信息的发送Private Sub SendText—KeyPress(Key Ascii As Integer)If KeyAscii=10 Thenw1．ScndData SendText．TextEndⅡEnd Sub’如果服务器关闭，则关闭连接PrivateSub wl—Close()w1．CloseEnd Sub’接受客户端的请求PrivateSub wl-ConnectionRequest(ByValrequestlDAs Long)w1．Closew1．AcceptrequestlDEnd Sub接受数据PrivateSub wl—DataArrival(ByⅧbytesT