03实验三 WinSock实现网络通信必开Word文档下载推荐.docx

03实验三 WinSock实现网络通信必开Word文档下载推荐.docx

《03实验三 WinSock实现网络通信必开Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《03实验三 WinSock实现网络通信必开Word文档下载推荐.docx（9页珍藏版）》请在冰豆网上搜索。

为了完成连接，可调用ConnectionRequest事件内的Accept方法。

建立连接后，任何一方计算机都可以收发数据。

为了发送数据，可调用SendData方法。

当接收数据时会发生DataArrival事件。

调用DataArrival事件内的GetData方法就可获取数据。

2．UDP（用户数据文报协议）基础

用户数据文报协议（UDP）是一个无连接协议。

跟TCP的操作不同，计算机并不建立连接。

另外UDP应用程序可以是客户机，也可以是服务器。

为了传输数据，首先要设置客户计算机的LocalPort属性。

然后，服务器计算机只需将RemoteHost设置为客户计算机的Internet地址，并将RemotePort属性设置为跟客户计算机的LocalPort属性相同的端口，并调用SendData方法来着手发送信息。

于是，客户计算机使用DataArrival事件内的GetData方法来获取已发送的信息。

3．选择通讯协议

在使用WinSock控件时，首先需要考虑使用什么协议。

可以使用的协议包括TCP和UDP。

两种协议之间的重要区别在于它们的连接状态：

TCP协议是有连接的协议，可以将它同电话系统相比。

在开始数据传输之前，用户必须先建立连接。

UDP协议是一种无连接协议，两台计算机之间的传输类似于传递邮件：

消息从一台计算机发送到另一台计算机，但是两者之间没有明确的连接。

另外，单次传输的最大数据量取决于具体的网络。

到底选择哪一种协议通常是由需要创建的应用程序决定的。

下面的几个问题将有助于选择适宜的协议：

（1）在收发数据的时候，应用程序是否需要得到客户端或者服务器的确认信息？

如果需要，使用TCP协议，在收发数据之前先建立明确的连接。

（2）数据量是否特别大（例如图像与声音文件）？

在连接建立之后，TCP协议将维护连接并确保数据的完整性。

不过，这种连接需要更多的计算资源，因而是比较“昂贵”的。

（3）数据发送是间歇的，还是在一个会话内？

例如，如果应用程序在某个任务完成的时候需要通知某个计算机，UDP协议是更适宜的。

UDP协议适合发送少量的数据。

通讯协议的选择是通过设置WinSock的Protocol属性来实现的。

Winsock控件是VB5.0的新增功能,它解决了以往应用VB编程时网络中应用程序之间无法实现点对点通信的难题。

Winsock使用的TCP协议和UDP协议允许建立并保持一个到远程计算机上的连接,且可以在连接结束之前实时地进行数据交换。

用户仅通过设置属性并借助事件处理就能够轻而易举地连接到一个远程的计算机上,而且只用两个命令就可以实现数据交换。

使用TCP协议时,如果需要创建一个客户应用程序,就必须识别服务器的名称或IP地址。

应用程序的通信端口随时都将仔细监测对方发出的消息,这是系统进行可靠连接的保证。

一旦连接发生,任何一方都可以通过SendData发送和接收数据,并借助GetData把自己的数据分离出来。

传送数据时,需要先设定客户机的LocalPort属性,服务器则只需要把RemoteHost属性设定为客户机以太网的地址,并设定与客户机LocalPort属性相同的端口地址,借助SendData方法开始发送消息。

客户机则在GetData事件中通过DataArrival事件分离出发送的信息。

一个Winsock控件可以让本地计算机连接到远程的计算机上,同时使用UDP或TCP协议,两个协议都能创建客户机和服务器应用。

使用Winsock控件时,通信的双方需要选定相同的协议。

TCP协议适用于传送大容量、需要安全性保证的数据文件;

而UDP协议适用于需要分别与很多下属通信,或者建立的连接比较多且为时变的情况,特别是在数据量很小的时候。

设定时可以使用Winsock1.Protocol=sckTCPProtocol方法,首先要找到你的计算机的名称,并把它添入Winsock的LocalHost属性中。

创建一个应用程序时,首先要确定你建立的是客户方应用还是服务器服务,只有建立的服务器应用开始工作,并进入监听状态时,客户应用程序才开始建立连接,进入正常的通信状态。

使用UDP协议建立对等通信和通过TCP建立客户/服务器通信的方法略有不同,它不需要建立客户和服务器,而是建立对等通信。

UDP和TCP协议在使用中各有特点,如果灵活使用,可以得到很好的效果。

令人欣慰的是,VB5.0中Winsock给我们提供了一种简便的数据传送方法,使我们得以轻松地实现网络点对点通信！

四、实验步骤

（1）选择网络通信协议

选择TCP通讯协议来编写网上聊天程序。

（2）确定计算机的名字和IP地址

确定计算机的名字：

1）在计算机的桌面上，右键单击“网上邻居”。

2）选择“属性”。

3）单击“标识”选项卡。

4）在“计算机名称”框中可以找到计算机的名称。

确定计算机的IP地址：

1）单击“任务条”上的“启动”。

2）选择“运行”。

3）若服务器端操作系统为win95则在“打开”中填入“winipcfg”，若服务器端操作系统为winnt则在“打开”中填入“ipconfig”。

4）按下“确定”键。

上面找到的计算机名称或IP地址可以作为WinSock的RemoteHost属性的值。

（3）用VisualBasic6.0建立通信界面

需要实现：

输入所连接的计算机（或服务器）的IP地址，如202.117.206.221，并在发送窗口添加待发送的内容，点击发送，完成数据的发送。

当对方发来数据时，在接受窗口自动显示。

最重要的一点是，需要在界面上添加WinSock控件，winsock控件的State属性如下：

state属性的设置值是：

常数

值描述

sckclosed0缺省的。

关闭

sckopen1打开

scklistening2侦听

sckconnectionpending3连接挂起

sckresolvinghost4识别主机

sckhostresolved5已识别主机

sckconnecting6正在连接

sckconnected7已连接

sckclosing8同级人员正在关闭连接

sckerror9错误

下面主要要用到sckClosed和sckConnected两个State属性的值。

（4）编制程序实现网络通信

以下程序仅供参考：

客户端的程序

1）在客户端创建一个新的工程将其命名为“ClientPrj”

2）将缺省窗体命名为frmClient。

3）将窗体的标题改为“Client”。

4）在窗体中添加一个WinSock控件，并将其命名为tcpClient。

5）在frmClient中添加一个ListBox控件。

将其命名为lstReceive。

6）在frmClient中添加一个TextBox控件。

将其命名为txtSend。

7）在窗体上放两个CommandButton控件，并将其命名为cmdConnect和cmdSent。

8）将cmdConnect控件的标题改为Connect,将cmdSent控件的标题改为Sent。

9）在窗体中添加如下的代码。

PrivateSubcmdConnect_Click（）

OnErrorGoToErrorPro

sckClient.Connect

ExitSub

ErrorPro:

MsgBox"

服务器未开或网络出错！

"

End

EndSub

PrivateSubcmdSent_Click（）

sckClient.SendDatatxtSent.Text

PrivateSubForm_Load（）

'

RemoteComputerName为服务器端的计算机名或IP地址。

sckClient.RemoteHost="

RemoteComputerName"

sckClient.RemotePort=1000

PrivateSubsckClient_Close（）

服务器通道已关闭！

PrivateSubsckClient_Connect（）

连接成功！

cmdConnect.Enabled=False

PrivateSubsckClient_DataArrival（ByValbytesTotalAsLong）

DimsAsString

sckClient.GetDatas

lstReceive.AddItems

PrivateSubsckClient_Error（ByValNumberAsInteger,DescriptionAsString,ByValScodeAsLong,_ByValSourceAsString,ByValHelpFileAsString,ByValHelpContextAsLong,CancelDisplayAsBoolean）

sckClient.Close

cmdConnect.Enabled=True

服务器端的程序

1）在服务器端创建一个新的工程将其命名为“ServerPrj”。

2）将缺省窗体命名为“frmServer”。

3）在窗体中添加一个ListBox控件，将其命名为“lstReceive”。

4）在窗体中添加三个WinSock控件，将其分别命名为“sckListen”，sckBusy和“sckServer”并将“sckServer”的“Index”属性设置为0。

5）在窗体中添加如下代码。

最大通道数

PrivateMaxChanAsInteger

DimiAsInteger

MaxChan=10

Fori=1ToMaxChan-1

LoadsckServer（i）

Nexti

sckListen.LocalPort=1000

sckListen.Listen

PrivateSubsckBusy_Close（）

sckBusy.Close

PrivateSubsckBusy_DataArrival（ByValbytesTotalAsLong）

sckBusy.SendData"

服务器忙，请稍后再连接！

DoEvents

PrivateSubsckListen_ConnectionRequest（ByValrequestIDAsLong）

决定由哪一Winsock接受请求

Fori=0ToMaxChan-1

IfsckServer（i）.State=0Then

ExitFor

EndIf

sckServer（i）.AcceptrequestID

如果所有Winsock都用完则由专门的“忙”Winsock接受请求，以免用户要求得不到响应

sckBusy.AcceptrequestID

PrivateSubsckListen_Error（ByValNumberAsInteger,DescriptionAsString,ByValScodeAsLong,_ByValSourceAsString,ByValHelpFileAsString,ByValHelpContextAsLong,CancelDisplayAsBoolean）

sckListen.Close

PrivateSubsckServer_Close（IndexAsInteger）

sckServer（Index）.Close

PrivateSubsckServer_DataArrival（IndexAsInteger,ByValbytesTotalAsLong）

sckServer（Index）.GetDatas

IfUCase（Left（Trim（s）,2））="

PT"

Then'

判断是否为悄悄话，点对点方式

IfIsNumeric（Mid（Trim（s）,3,1））Then

i=Mid（Trim（s）,3,1）

sckServer（i）.SendData"

Channel"

&

Index&

"

Right（Trim（s）,Len（Trim（s））-3）

Else'

广播方式

利用winsock的State属性给所有连接在服务器上的客户发消息

IfsckServer（i）.State=7Then

Trim（s）

lstReceive.AddItem"

PrivateSubsckServer_Error（IndexAsInteger,ByValNumberAsInteger,DescriptionAsString,_

ByValScodeAsLong,ByValSourceAsString,ByValHelpFileAsString,ByValHelpContextAs_

Long,CancelDisplayAsBoolean）

从程序中可以看到：

第一，程序中限制了通道数（10路）。

第二，通过判断WinSock控件的State属性是否为0（关闭状态），来重新使用已关闭的WinSock控件。

第三，通过给WinSock控件传递的信息加上包头，来对信息进行不同的处理（程序中若信息前加上了“PT"

（PrivateTalk）+"

通道数”的包头，由此就知道客户想要同拥有此“通道数”的另一客户进行点对点通信，否则就以广播方式将信息发给所有客户）。

五、实验报告要求

按照实验步骤，记录编制程序实现网络通信的整个过程。