03实验三 WinSock实现网络通信必开.docx

1、03实验三 WinSock实现网络通信必开实验三 WinSock实现网络通信一、实验目的掌握利用WinSock控件实现网络通信的方法。二、实验任务与要求1. 使用Visual Basic建立通信界面。2. 利用WinSock控件编程实现点对点(点对多点)通信。三、实验背景Sockets是在Unix系统上提出来的，一开始主要是用于本地通讯，但很快就应用到C/S体系上。MicroSoft公司在此基础上创建了WinSock控件，专门用于Windows接口，与Sockets完全兼容。Winsock控件对用户来说是不可见的，它提供了访问 TCP 和 UDP 网络服务的方便途径。Microsoft Acc

2、ess、Visual Basic、Visual C+ 或 Visual FoxPro 的开发人员都可使用它。为编写客户或服务器应用程序，不必了解 TCP 的细节或调用低级的Winsock APIs。通过设置控件的属性并调用其方法就可轻易连接到一台远程机器上去，并且还可双向交换数据。先来看网络通信协议的基础和选择：1 TCP（数据传输协议）基础数据传输协议允许创建和维护与远程计算机的连接。连接两台计算机就可彼此进行数据传输。如果创建客户应用程序，就必须知道服务器计算机名或者 IP 地址（RemoteHost 属性），还要知道进行“侦听”的端口（RemotePort 属性），然后调用 Connec

3、t 方法。如果创建服务器应用程序，就应设置一个收听端口（LocalPort 属性）并调用 Listen 方法。当客户计算机需要连接时就会发生 ConnectionRequest 事件。为了完成连接，可调用 ConnectionRequest 事件内的 Accept 方法。建立连接后，任何一方计算机都可以收发数据。为了发送数据，可调用 SendData 方法。当接收数据时会发生 DataArrival 事件。调用 DataArrival 事件内的 GetData 方法就可获取数据。2 UDP（用户数据文报协议）基础用户数据文报协议 (UDP) 是一个无连接协议。跟 TCP 的操作不同，计算机并不

4、建立连接。另外 UDP 应用程序可以是客户机，也可以是服务器。为了传输数据，首先要设置客户计算机的 LocalPort 属性。然后，服务器计算机只需将 RemoteHost 设置为客户计算机的 Internet 地址，并将 RemotePort 属性设置为跟客户计算机的 LocalPort 属性相同的端口，并调用 SendData 方法来着手发送信息。于是，客户计算机使用 DataArrival 事件内的 GetData 方法来获取已发送的信息。3 选择通讯协议在使用 WinSock 控件时，首先需要考虑使用什么协议。可以使用的协议包括 TCP 和 UDP。两种协议之间的重要区别在于它们的连接

5、状态：TCP 协议是有连接的协议，可以将它同电话系统相比。在开始数据传输之前，用户必须先建立连接。UDP 协议是一种无连接协议，两台计算机之间的传输类似于传递邮件：消息从一台计算机发送到另一台计算机，但是两者之间没有明确的连接。另外，单次传输的最大数据量取决于具体的网络。到底选择哪一种协议通常是由需要创建的应用程序决定的。下面的几个问题将有助于选择适宜的协议：（1） 在收发数据的时候，应用程序是否需要得到客户端或者服务器的确认信息？如果需要，使用 TCP 协议，在收发数据之前先建立明确的连接。（2） 数据量是否特别大（例如图像与声音文件）？在连接建立之后，TCP 协议将维护连接并确保数据的完整

6、性。不过，这种连接需要更多的计算资源，因而是比较“昂贵”的。（3） 数据发送是间歇的，还是在一个会话内？例如，如果应用程序在某个任务完成的时候需要通知某个计算机，UDP 协议是更适宜的。UDP 协议适合发送少量的数据。通讯协议的选择是通过设置WinSock的Protocol属性来实现的。Winsock控件是VB5.0的新增功能,它解决了以往应用VB编程时网络中应用程序之间无法实现点对点通信的难题。Winsock使用的TCP协议和UDP协议允许建立并保持一个到远程计算机上的连接,且可以在连接结束之前实时地进行数据交换。用户仅通过设置属性并借助事件处理就能够轻而易举地连接到一个远程的计算机上,而且

7、只用两个命令就可以实现数据交换。使用TCP协议时,如果需要创建一个客户应用程序,就必须识别服务器的名称或IP地址。应用程序的通信端口随时都将仔细监测对方发出的消息,这是系统进行可靠连接的保证。一旦连接发生,任何一方都可以通过SendData发送和接收数据,并借助GetData把自己的数据分离出来。传送数据时,需要先设定客户机的LocalPort属性,服务器则只需要把RemoteHost属性设定为客户机以太网的地址,并设定与客户机LocalPort属性相同的端口地址,借助SendData方法开始发送消息。客户机则在GetData事件中通过DataArrival事件分离出发送的信息。一个Winso

8、ck控件可以让本地计算机连接到远程的计算机上,同时使用UDP或TCP协议,两个协议都能创建客户机和服务器应用。使用Winsock控件时,通信的双方需要选定相同的协议。TCP协议适用于传送大容量、需要安全性保证的数据文件;而UDP协议适用于需要分别与很多下属通信,或者建立的连接比较多且为时变的情况,特别是在数据量很小的时候。设定时可以使用Winsock1.Protocol = sckTCPProtocol方法,首先要找到你的计算机的名称,并把它添入Winsock的LocalHost属性中。创建一个应用程序时,首先要确定你建立的是客户方应用还是服务器服务,只有建立的服务器应用开始工作,并进入监听状

9、态时,客户应用程序才开始建立连接,进入正常的通信状态。使用UDP协议建立对等通信和通过TCP建立客户/服务器通信的方法略有不同,它不需要建立客户和服务器,而是建立对等通信。UDP和TCP协议在使用中各有特点,如果灵活使用,可以得到很好的效果。令人欣慰的是,VB5.0中Winsock给我们提供了一种简便的数据传送方法,使我们得以轻松地实现网络点对点通信！四、实验步骤（1）选择网络通信协议选择TCP通讯协议来编写网上聊天程序。（2）确定计算机的名字和IP地址 确定计算机的名字：1）在计算机的桌面上，右键单击“网上邻居”。 2）选择“属性”。3）单击“标识”选项卡。4）在“计算机名称”框中可以找到计

10、算机的名称。确定计算机的 IP地址：1）单击“任务条”上的“启动”。2）选择“运行”。3）若服务器端操作系统为win95则在“打开”中填入“winipcfg”，若服务器端操作系统为winnt则在“打开”中填入“ipconfig”。4）按下“确定”键。上面找到的计算机名称或IP地址可以作为WinSock的RemoteHost 属性的值。（3）用Visual Basic 6.0建立通信界面需要实现：输入所连接的计算机（或服务器）的IP地址，如202.117.206.221，并在发送窗口添加待发送的内容，点击发送，完成数据的发送。当对方发来数据时，在接受窗口自动显示。最重要的一点是，需要在界面上添加

11、WinSock控件，winsock控件的State属性如下：state 属性的设置值是： 常 数值 描 述 sckclosed 0 缺省的。关闭 sckopen 1 打开scklistening 2 侦听sckconnectionpending 3 连接挂起sckresolvinghost 4 识别主机 sckhostresolved 5 已识别主机sckconnecting 6 正在连接 sckconnected 7 已连接 sckclosing 8 同级人员正在关闭连接sckerror 9 错误下面主要要用到sckClosed和sckConnected两个State属性的值。（4）编制程序

12、实现网络通信以下程序仅供参考：客户端的程序1） 在客户端创建一个新的工程将其命名为“ClientPrj” 2） 将缺省窗体命名为 frmClient。 3） 将窗体的标题改为“Client”。 4） 在窗体中添加一个 WinSock 控件，并将其命名为 tcpClient。 5） 在 frmClient 中添加一个ListBox 控件。将其命名为lstReceive。 6） 在 frmClient 中添加一个 TextBox 控件。将其命名为 txtSend。 7） 在窗体上放两个 CommandButton 控件，并将其命名为 cmdConnect和cmdSent。 8） 将cmdConne

13、ct控件的标题改为 Connect, 将cmdSent控件的标题改为 Sent。 9） 在窗体中添加如下的代码。Private Sub cmdConnect_Click() On Error GoTo ErrorPro sckClient.Connect Exit Sub ErrorPro: MsgBox 服务器未开或网络出错！ End End Sub Private Sub cmdSent_Click() sckClient.SendData txtSent.Text End Sub Private Sub Form_Load() RemoteComputerName为服务器端的计算机名或I

14、P地址。 sckClient.RemoteHost = RemoteComputerName sckClient.RemotePort = 1000 End Sub Private Sub sckClient_Close() MsgBox 服务器通道已关闭！ End End Sub Private Sub sckClient_Connect() MsgBox 连接成功！ cmdConnect.Enabled = False End Sub Private Sub sckClient_DataArrival(ByVal bytesTotal As Long) Dim s As String sc

15、kClient.GetData s lstReceive.AddItem s End Sub Private Sub sckClient_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, _ ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean) sckClient.Close cmdConnect.Enabled = True End Sub 服

16、务器端的程序1） 在服务器端创建一个新的工程将其命名为“ServerPrj”。 2） 将缺省窗体命名为“frmServer”。 3） 在窗体中添加一个ListBox控件，将其命名为“lstReceive”。 4） 在窗体中添加三个WinSock控件，将其分别命名为“sckListen”，sckBusy和“sckServer”并将“sckServer”的“Index”属性设置为0。 5） 在窗体中添加如下代码。最大通道数 Private MaxChan As Integer Private Sub Form_Load() Dim i As Integer MaxChan = 10 For i =

17、 1 To MaxChan - 1 Load sckServer(i) Next i sckListen.LocalPort = 1000 sckListen.Listen End Sub Private Sub sckBusy_Close() sckBusy.Close End Sub Private Sub sckBusy_DataArrival(ByVal bytesTotal As Long) sckBusy.SendData 服务器忙，请稍后再连接！ DoEvents End Sub Private Sub sckListen_ConnectionRequest(ByVal requ

18、estID As Long) Dim i As Integer 决定由哪一Winsock接受请求 For i = 0 To MaxChan - 1 If sckServer(i).State = 0 Then Exit For End If Next i If sckServer(i).State = 0 Then sckServer(i).Accept requestID Exit Sub End If 如果所有Winsock都用完则由专门的“忙”Winsock接受请求，以免用户要求得不到响应 sckBusy.Close sckBusy.Accept requestID End Sub Pr

19、ivate Sub sckListen_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, _ ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean) sckListen.Close sckListen.LocalPort = 1000 sckListen.Listen End Sub Private Sub sckServer_Close(Inde

20、x As Integer) sckServer(Index).Close End Sub Private Sub sckServer_DataArrival(Index As Integer, ByVal bytesTotal As Long) Dim s As String Dim i As Integer sckServer(Index).GetData s If UCase(Left(Trim(s), 2) = PT Then 判断是否为悄悄话，点对点方式 If IsNumeric(Mid(Trim(s), 3, 1) Then i = Mid(Trim(s), 3, 1) sckSer

21、ver(i).SendData Channel & Index & & Right(Trim(s), Len(Trim(s) - 3) DoEvents End If Else 广播方式 For i = 0 To MaxChan - 1 利用winsock的State属性给所有连接在服务器上的客户发消息 If sckServer(i).State = 7 Then sckServer(i).SendData Channel & Index & & Trim(s) DoEvents End If Next i End If lstReceive.AddItem Channel & Index &

22、 & Trim(s) End Sub Private Sub sckServer_Error(Index As Integer, ByVal Number As Integer, Description As String, _ ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As _ Long, CancelDisplay As Boolean) sckServer(Index).Close End Sub 从程序中可以看到：第一，程序中限制了通道数（10路）。第二，通过判断WinSock控件的State属性是否为0（关闭状态），来重新使用已关闭的WinSock控件。第三，通过给WinSock控件传递的信息加上包头，来对信息进行不同的处理（程序中若信息前加上了“PT（Private Talk）+通道数”的包头，由此就知道客户想要同拥有此“通道数”的另一客户进行点对点通信，否则就以广播方式将信息发给所有客户）。五、实验报告要求按照实验步骤，记录编制程序实现网络通信的整个过程。