VB网络程序设计

1、VB网络程序设计VB网络程序设计 1 网络聊天程序任务网络聊天程序任务 1.1 VB提供了一系列的网络编程控件，利用它们，网络编提供了一系列的网络编程控件，利用它们，网络编程将成为一件快乐而简单的工作。程将成为一件快乐而简单的工作。VB网络控件主要有三种：网络控件主要有三种：（1）Winsok控件控件 主要用于编制基于主要用于编制基于TCP/IP或或UDP协议的网络应用程序。协议的网络应用程序。（2）Internet Transfer控件控件 主要以来传输文件，主要以来传输文件，执行执行FTP命令以及登录服务器等。命令以及登录服务器等。（3）WebBrowser 用于创建浏览器用于创建浏览器

2、本节先介绍本节先介绍Winsok控件。控件。 3 在网络编程中最常用的方案是客户机在网络编程中最常用的方案是客户机/ /服务器模式服务器模式（Client/ServerClient/Server，简称，简称C/SC/S）。这种模式包含客户机和）。这种模式包含客户机和服务器两类应用程序。其中客户应用程序向服务器请求服务器两类应用程序。其中客户应用程序向服务器请求服务，而服务程序通常在一个众所周知的地址侦听对服服务，而服务程序通常在一个众所周知的地址侦听对服务的请求，也就是说，服务进程一直处于休眠状态，直务的请求，也就是说，服务进程一直处于休眠状态，直到一个客户提出了连接请求。此时，服务持续将被唤

3、醒，到一个客户提出了连接请求。此时，服务持续将被唤醒，并对客户的请求作出适当的反应。并对客户的请求作出适当的反应。4 聊天服务程序：由客户端和服务端两个程序组聊天服务程序：由客户端和服务端两个程序组成，采用成，采用WinsokWinsok控件开发。这两个程序可以在同一台计控件开发。这两个程序可以在同一台计算机上运行，也可以在网络上不同的计算机上运行。整个算机上运行，也可以在网络上不同的计算机上运行。整个系统的运行机制是：系统的运行机制是： 第一步：建立连接第一步：建立连接 主要过程是：由客户端程序向服务端程序发出连主要过程是：由客户端程序向服务端程序发出连接请求，服务端程序收到并接受连接请求，

4、至此客户接请求，服务端程序收到并接受连接请求，至此客户机与服务器创建了数据交流通道。机与服务器创建了数据交流通道。 第二步：开始聊天第二步：开始聊天 主要过程是：在客户机的主要过程是：在客户机的“发送的信息发送的信息”文本框中文本框中输入文字时，服务器端的输入文字时，服务器端的“收到的信息收到的信息”文本框中就文本框中就会实时地显示相同的文字，反之亦然。会实时地显示相同的文字，反之亦然。51. Winsock控件主要用来编制控件主要用来编制TCP/IP或或 协议的通话程序。协议的通话程序。答案：答案：UDP2. 在网络编程中最常用的方案是在网络编程中最常用的方案是 。答案：客户机答案：客户机/

5、服务器程序（服务器程序（Client/Server)6P215 P215 习题习题 三、问答题三、问答题2.2.简述网络聊天程序的运行过程。简述网络聊天程序的运行过程。答：网络聊天程序的运行过程是：答：网络聊天程序的运行过程是： 第一步：建立连接第一步：建立连接 主要过程是：由客户端程序向服务端程序发出连接主要过程是：由客户端程序向服务端程序发出连接请求，服务端程序收到并接受连接请求，至此客户机与请求，服务端程序收到并接受连接请求，至此客户机与服务器创建了数据交流通道。服务器创建了数据交流通道。 第二步：开始聊天第二步：开始聊天 主要过程是：在客户机的主要过程是：在客户机的“发送的信息发送的信

6、息”文本框中文本框中输入文字时，服务器端的输入文字时，服务器端的“收到的信息收到的信息”文本框中就文本框中就会实时地显示相同的文字，反之亦然。会实时地显示相同的文字，反之亦然。7 1.2. 1.2. 服务器的界面设计服务器的界面设计1.1.创建一个创建一个“标准标准 EXEEXE”工程，选中工程，选中“工程工程”菜单的菜单的“部部件件”，在控件中找到，在控件中找到Microsoft Winsock ControlMicrosoft Winsock Control并并将其选中。将其选中。2.2.将将Form1Form1的名称改为的名称改为frmSvrfrmSvr，并在其中添加两个命令按，并在其中

7、添加两个命令按钮（钮（Command1Command1的的CaptionCaption属性为属性为“退出退出”，Command2Command2的的CaptionCaption属性为属性为“发送发送”）。）。3.3.在窗体是添加三个在窗体是添加三个TextBoxTextBox控件，其名称分别为控件，其名称分别为txtServerIPtxtServerIP，txtSendtxtSend和和txtReceivetxtReceive。4.4.在窗体上添加一个在窗体上添加一个WinsockWinsock控件，将其控件，将其ProtocolProtocol（协（协议）属性设置为议）属性设置为0 0（即（

8、即sckTCPProtocolsckTCPProtocol）。）。8 1.3 1.3 服务器程序代码设计服务器程序代码设计Private Sub Form_LoadPrivate Sub Form_Load三三 设置侦听端口设置侦听端口 WinsockServer.LocalPort = 10001 WinsockServer.LocalPort = 10001 读取服务器的读取服务器的IPIP地址地址 开始侦听开始侦听 End SubEnd SubPrivate Sub Command1_ClickPrivate Sub Command1_Click三三 点击点击“退出退出”按钮后关闭应用程

9、序按钮后关闭应用程序 Unload Me Unload MeEnd SubEnd Sub9 1.3 1.3 服务器程序代码设计服务器程序代码设计Private Sub Command2_ClickPrivate Sub Command2_Click三三 只要只要txtSendtxtSend文本框的内容写好以后就由文本框的内容写好以后就由WinsockServerWinsockServer控件发送控件发送 End SubEnd SubPrivate Sub Private Sub WinsockServer_ConnectionRequest(ByVal WinsockServer_Connec

10、tionRequest(ByVal requestID As Long)requestID As Long) 当收到连接请求时，当收到连接请求时，WinsockWinsock处于侦听状态处于侦听状态 此时应该使用此时应该使用CloseClose方法关闭方法关闭WinsockWinsock，然后使用，然后使用AcceptAccept方法接受连接请求方法接受连接请求 WinsockServer.Accept requestID WinsockServer.Accept requestIDEnd Sub End Sub 10 1.3 1.3 服务器程序代码设计服务器程序代码设计Private Sub

11、 WinsockServer_DataArrival(ByVal BytesTotal As Private Sub WinsockServer_DataArrival(ByVal BytesTotal As Long)Long) 当客户端有信息发送来时，利用当客户端有信息发送来时，利用WinsockServerWinsockServer控件的控件的GatDataGatData方法读取数据方法读取数据 并将其显示在并将其显示在txtReceivetxtReceive文本框中文本框中 Dim MyStr As StringDim MyStr As String WinsockServer.Get

12、Data MyStr WinsockServer.GetData MyStr TxtReceive.Text = MyStr TxtReceive.Text = MyStrEnd SubEnd Sub11 1.4 1.4 客户机程序界面设计客户机程序界面设计1.1.创建一个新的创建一个新的“标准标准 EXEEXE”工程，并添加工程，并添加Winsock Winsock 控件控件。2.2.将将Form1Form1的名称改为的名称改为frmCltfrmClt，并在其中添加两个命令，并在其中添加两个命令按钮（按钮（Command1Command1的的CaptionCaption属性为属性为“退出退出

13、”， Command2Command2的的CaptionCaption属性为属性为“连接服务器连接服务器” ，Command3Command3的的CaptionCaption属性为属性为“发送发送”）。）。3.3.在窗体是添加四个在窗体是添加四个TextBoxTextBox控件，其名称分别为控件，其名称分别为txtClientIPtxtClientIP，txtServerIPtxtServerIP，txtSendtxtSend和和txtReceivetxtReceive。4.4.在窗体上添加一个在窗体上添加一个WinsockWinsock控件，将其控件，将其ProtocolProtocol（协

14、（协议）属性设置为议）属性设置为0 0（即（即sckTCPProtocolsckTCPProtocol）。）。12 1.4. 客户机的程序代码设计客户机的程序代码设计Private Sub Form_Load三三 设置聊天服务器的侦听端口设置聊天服务器的侦听端口 WinsockClient.RemotePort = 10001 读取本机的读取本机的IP地址地址 End SubPrivate Sub Command1_Click三三 点击点击“退出退出”按钮后关闭应用程序按钮后关闭应用程序 Unload MeEnd Sub13 1.4. 客户机的程序代码设计客户机的程序代码设计Private S

15、ub Command2_Click三三 根据根据txtServerIP文本框中输入的服务器文本框中输入的服务器IP，连接聊天服务器连接聊天服务器 End SubPrivate Sub Command3_Click三三 输 入输 入 t x t S e n d 文 本 框 的 内 容 后 由文 本 框 的 内 容 后 由WinsockServer控件发送控件发送 End Sub14 1.4. 客户机的程序代码设计客户机的程序代码设计Private Sub WinsockClient_Connect三三 如果与服务器连接成功，则向用户提供下列信息如果与服务器连接成功，则向用户提供下列信息 MsgB

16、ox 你成功地与聊天服务器进行了连接你成功地与聊天服务器进行了连接, vbInformationEnd SubPrivate Sub WinsockClient_DataArrival(ByVal BytesTotal As Long) 当服务器有信息发送来时，利用当服务器有信息发送来时，利用WinsockClient控件的控件的GatData方法读取数据方法读取数据 并将其显示在并将其显示在txtReceive文本框中文本框中 Dim MyStr As String WinsockClient.GetData MyStr txtReceive.Text = MyStrEnd Sub15演示聊

17、天程序演示聊天程序16 2 Winsock控件及网络应用程序设计基础控件及网络应用程序设计基础 Winsock控件是建立在控件是建立在TCP协议的基础上，能够完成远程计协议的基础上，能够完成远程计算机间的通信，用途非常广泛。即使我们对算机间的通信，用途非常广泛。即使我们对TCP/IP，TCP这些这些知识不太熟悉，只要理解了网络应用程序设计的一般原理，并对知识不太熟悉，只要理解了网络应用程序设计的一般原理，并对Winsock的主要属性、方法和事件有所了解，也可以在很的主要属性、方法和事件有所了解，也可以在很短时间内创建一个简单的网络通信程序。短时间内创建一个简单的网络通信程序。17 2.1 Wi

18、nsock控件的主要属性控件的主要属性Winsock控件主要有八个属性：控件主要有八个属性：1. BytesReceived属性：返回接收到的数据。通常用属性：返回接收到的数据。通常用GetData方法来方法来获取这些数据。获取这些数据。2. LocalHostName属性：返回本地计算机的名称。属性：返回本地计算机的名称。3. LocalIP属性：返回本地计算机的属性：返回本地计算机的IP地址。地址。4. LocalPost属性：返回或者设置所用的端口，如果设置为属性：返回或者设置所用的端口，如果设置为0，则使用随，则使用随机端口。机端口。5. Protocol属性：返回或设置属性：返回或设

19、置Winsock所用的协议（所用的协议（TCP或或UDP）。）。6. RemoteHostName属性，返回或设置远程计算机的名称。属性，返回或设置远程计算机的名称。7. RemoteHostIP属性，返回远程计算机的属性，返回远程计算机的IP地址。地址。 State属性：返回属性：返回Winsock控件的当前状态。控件的当前状态。1819符号常数符号常数值值含义含义sckClosed0关闭状态，缺省值关闭状态，缺省值sckOpen1打开状态打开状态sckListening2侦听状态侦听状态sckConnectionPending3连接状态连接状态sckResolvingHost4解析主机解析

20、主机sckHostResolved5以解析的主机以解析的主机sckConnecting6正在连接正在连接Sckconnected7已经连接已经连接sckClosing8客户端正在关闭连接客户端正在关闭连接sckErros9错误错误Winsock控件的控件的State属性属性3. 如果希望得到本地计算机的如果希望得到本地计算机的IP地址，可以使用地址，可以使用Winsock控控件的件的 属性。属性。答案：答案：LocalIP4. Winsock控件的控件的BytesReceived属性返回接收到的数属性返回接收到的数据，通常使用据，通常使用 方法来获取这些数据。方法来获取这些数据。答案：答案：G

21、etData3. 如果如果Winsock1.LocaPort=0,那么应用程序那么应用程序将将 。答案：使用随机端口答案：使用随机端口20 2.2 Winsock 2.2 Winsock控件的主要方法控件的主要方法WinsockWinsock控件的方法主要有六个：控件的方法主要有六个：1. Listen1. Listen方法方法语法：语法： WinsockWinsock对象对象.Listen.Listen作用：使服务器处于侦听状态，等待客户访问。作用：使服务器处于侦听状态，等待客户访问。2. Connect2. Connect方法方法语法：语法： WinsockWinsock对象对象.Conn

22、ect.Connect远程主机远程主机IPIP，远程端，远程端口口 作用：用于向远程主机发出连接请求。作用：用于向远程主机发出连接请求。3. Accept3. Accept方法方法语法：语法： WinsockWinsock对象对象.Accept RequestID.Accept RequestID作用：用于接受一个连接请求，其中作用：用于接受一个连接请求，其中RequestIDRequestID是是客户机发来的请求信号客户机发来的请求信号21 2.2 Winsock 2.2 Winsock控件的主要方法控件的主要方法WinsockWinsock控件的方法主要有六个：控件的方法主要有六个：4.

23、SendData4. SendData方法方法语法：语法： WinsockWinsock对象对象.SendData .SendData 数据数据作用：用于发送数据作用：用于发送数据5. GetData5. GetData方法方法语法：语法： WinsockWinsock对象对象. GetData . GetData 变量变量 数据类型数据类型 ，最，最大长度大长度 作用：用来获得接收到的数据作用：用来获得接收到的数据6. Clcse6. Clcse方法方法语法：语法： WinsockWinsock对象对象.Close.Close作用：关闭当前连接作用：关闭当前连接22语句的含义是语句的含义是

24、。答案：答案：LocalIP使服务器处于侦听状态，等待客户访问。使服务器处于侦听状态，等待客户访问。23 2.3 Winsock 2.3 Winsock控件的主要事件控件的主要事件WinsockWinsock控件的事件主要有两个：控件的事件主要有两个：事件：一旦数据到达，就会触发该事件。它通常与事件：一旦数据到达，就会触发该事件。它通常与GetDataGetData方法一起使用，通过方法一起使用，通过GetDataGetData方法获得新到达方法获得新到达的数据。的数据。2. ConnectionRequest2. ConnectionRequest事件：当客户机使用事件：当客户机使用Conn

25、ectConnect方法请求连接时触发该事件，它通常与方法请求连接时触发该事件，它通常与AcceptAccept方法方法一起使用，用来接受客户机的连接请求。一起使用，用来接受客户机的连接请求。241. 一旦数据到达，将首先触发一旦数据到达，将首先触发Winsock控件的（控件的（ ）。）。A. DataArrival事件事件B. ConnectionRequest事件事件C. DataSand事件事件D. DataGet事件事件答案：答案：B252. 要发送数据，通常使用要发送数据，通常使用Winsock控件的（控件的（ ）。）。A. SendData方法方法B. Listen方法方法C. A

26、ccept方法方法D. GetData方法方法答案：答案：A263. 当当Winsock控件处于关闭状态时，其控件处于关闭状态时，其State属性的值是属性的值是（ ）。）。A. 1B. 0C. 2D. 6答案：答案：B274. 当当Winsock控件的控件的LocalPort属性的作用是（属性的作用是（ ）。）。A. 仅返回所有端口仅返回所有端口B. 仅设置所有端口仅设置所有端口C. 返回或设置所有端口返回或设置所有端口D. 返回或设置返回或设置IP地址地址答案：答案：B285. 当使用当使用SendData将数据发送到主机后时，将触发的将数据发送到主机后时，将触发的Winsock控件的是（

27、控件的是（ ）。）。A. SendProgressB. MouseDownC. ClickD. KeyPress答案：答案：A29 2.4 2.4 网络应用程序设计基础网络应用程序设计基础1. 1. 基于基于SocketSocket的通信过程的通信过程WinsockWinsock控件是基于控件是基于SocketSocket接口（套接字）创建的。它接口（套接字）创建的。它是现在是现在TCP/IPTCP/IP网络中最通用的网络中最通用的APIAPI（应用程序接（应用程序接口），也是在口），也是在InternetInternet上进行应用程序开发最通用的上进行应用程序开发最通用的APIAPI。Win

28、dows SocketWindows Socket规范已成为规范已成为WindowsWindows网络编程网络编程的标准。的标准。SocketSocket在计算机中提供了一个通信端口，可以通过这个在计算机中提供了一个通信端口，可以通过这个端口与任何一个也同样具有端口与任何一个也同样具有SocketSocket接口的计算机进行接口的计算机进行通信。应用程序在网络上传输、接收的信息都通过这通信。应用程序在网络上传输、接收的信息都通过这个个SocketSocket接口来实现。基于接口来实现。基于SocketSocket的通信过程如下的通信过程如下页图所示：页图所示：3031SocketSocket应

29、用程序应用程序A发送发送发送发送接收接收接收接收应用程序应用程序B通信细节通信细节利用利用Socket进行网络编程，只需对进行网络编程，只需对Socket接口进行接口进行数据的读写操作，根本不必关心两台计算机间的通数据的读写操作，根本不必关心两台计算机间的通信细节就能够完成数据的发送和接收工作。信细节就能够完成数据的发送和接收工作。32SocketSocket应用程序应用程序A发送发送发送发送接收接收接收接收应用程序应用程序B通信细节通信细节 利用利用Socket进行网络编程，只需对进行网络编程，只需对Socket接口进行数据的接口进行数据的读写操作，根本不必关心两台计算机间的通信细节就能够完

30、读写操作，根本不必关心两台计算机间的通信细节就能够完成数据的发送和接收工作。成数据的发送和接收工作。P 215 习题习题 三三 问答题问答题1. 简述基于简述基于Socket的通信过程。的通信过程。2. 2.基于基于WinsockWinsock控件的开发模式控件的开发模式VBVB提供的提供的WinsockWinsock控件正是基于控件正是基于SocketSocket规范创建的。利用规范创建的。利用WinsockWinsock控件开发网络通信系统时，通常要涉及到服务控件开发网络通信系统时，通常要涉及到服务器和客户机两类应用程序：器和客户机两类应用程序：（1 1）服务器程序的开发模式）服务器程序的

31、开发模式v服务器程序必须设置好服务器程序必须设置好LocalPortLocalPort属性，作为侦听端口。属性，作为侦听端口。该值可设置成任何一个整数，只要其它应用程序没有使该值可设置成任何一个整数，只要其它应用程序没有使用过的值即可，单习惯上应大于用过的值即可，单习惯上应大于10001000。v使用使用ListenListen方法使服务器进入侦听状态，等待客户机的方法使服务器进入侦听状态，等待客户机的连接请求。连接请求。332. 2.基于基于WinsockWinsock控件的开发模式控件的开发模式（1 1）服务器程序的开发模式）服务器程序的开发模式v客户机程序发出连接请求后，将触发服务器程序

32、的客户机程序发出连接请求后，将触发服务器程序的ConnectionRequestConnectionRequest事件，该事件得到一个参数事件，该事件得到一个参数RequestIDRequestID。v服务器程序使用服务器程序使用A c c e p tA c c e p t方法接受客户机程序的方法接受客户机程序的RequestIDRequestID请求。至此，服务器程序就可以使用请求。至此，服务器程序就可以使用SendDataSendData方法向客户机发送数据了。方法向客户机发送数据了。v当服务器接收到数据时，会产生当服务器接收到数据时，会产生DataArrivalDataArrival事件

33、。在事件。在该事件中可使用该事件中可使用GetDataGetData方法接收数据。方法接收数据。34353. 简述基于简述基于Winsock控件的开发过程。控件的开发过程。答：答：1 1）服务器程序的开发模式）服务器程序的开发模式服务器程序必须设置好服务器程序必须设置好LocalPortLocalPort属性，作为侦听端口。使属性，作为侦听端口。使用用ListenListen方法使服务器进入侦听状态，等待客户机的连接方法使服务器进入侦听状态，等待客户机的连接请求。客户机程序发出连接请求后，将触发服务器程序的请求。客户机程序发出连接请求后，将触发服务器程序的ConnectionRequestCo

34、nnectionRequest事件，该事件得到一个参数事件，该事件得到一个参数RequestIDRequestID。服务器程序使用。服务器程序使用AcceptAccept方法接受客户机程方法接受客户机程序的序的RequestIDRequestID请求。至此，服务器程序就可以使用请求。至此，服务器程序就可以使用SendDataSendData方法向客户机发送数据了。当服务器接收到数据方法向客户机发送数据了。当服务器接收到数据时，会产生时，会产生DataArrivalDataArrival事件。在该事件中可使用事件。在该事件中可使用GetDataGetData方法接收数据。方法接收数据。363.

35、简述基于简述基于Winsock控件的开发过程。控件的开发过程。2 2）客户机程序的开发模式）客户机程序的开发模式首先设置好首先设置好RemoteHost属性，用来指向运行服务器程序的属性，用来指向运行服务器程序的远程计算机的的主机名或远程计算机的的主机名或IP地址。设置地址。设置RemotePort属性，属性，用来指向服务器程序的侦听端口号。使用用来指向服务器程序的侦听端口号。使用Connect方法方法向服务器提出连接请求。如果服务器接受了上述请求，向服务器提出连接请求。如果服务器接受了上述请求，客户机程序就会产生客户机程序就会产生Connect事件。连接成功后，就可以事件。连接成功后，就可以

36、根据需要使用根据需要使用SendData方法向服务器发送数据了。当客方法向服务器发送数据了。当客户机程序接收的数据时，就会产生户机程序接收的数据时，就会产生DataArrival事件，可事件，可以用以用GetData方法接收数据。方法接收数据。37 3 3 其它网络应用程序设计其它网络应用程序设计 3.1 3.1 局域网中保证联网计算机时间同步局域网中保证联网计算机时间同步 当采用客户机当采用客户机/ /服务器模式在局域网上开发系统时，必服务器模式在局域网上开发系统时，必须保证所有计算机的时钟时间一致。在就需要用到统一的时须保证所有计算机的时钟时间一致。在就需要用到统一的时间，以便协调工作，最

37、号的方法就是通过程序的方法，解决间，以便协调工作，最号的方法就是通过程序的方法，解决时钟同步的问题。时钟同步的问题。3839数据服务器数据服务器MyServer应用程序应用程序1应用程序应用程序2应用程序应用程序n这是某一应用系统的网络拓补结构，我们可以采用这是某一应用系统的网络拓补结构，我们可以采用Winsock控件解决众多客户机与数据服务器间的时间同步问题。控件解决众多客户机与数据服务器间的时间同步问题。 解决时钟同步的基本思路是：首先精确调整服务器解决时钟同步的基本思路是：首先精确调整服务器的时钟，然后，当客户机启动时与服务器连接，并与服的时钟，然后，当客户机启动时与服务器连接，并与服务

38、器务器“对时对时”。这样，每当执行应用程序时，客户机就。这样，每当执行应用程序时，客户机就会与服务器时钟同步了。会与服务器时钟同步了。404. 如何保证局域网中联网的计算机同步运行？如何保证局域网中联网的计算机同步运行？ 答：解决时钟同步的基本思路是：首先精确调整服务器的答：解决时钟同步的基本思路是：首先精确调整服务器的时钟，然后，当客户机启动时与服务器连接，并与服务时钟，然后，当客户机启动时与服务器连接，并与服务器器“对时对时”。这样，每当执行应用程序时，客户机就会。这样，每当执行应用程序时，客户机就会与服务器时钟同步了。与服务器时钟同步了。41P215 习题习题 三、问答题三、问答题 1.

39、1.客户机程序的主要代码客户机程序的主要代码（1 1）与服务器建立连接）与服务器建立连接在客户机主窗体的在客户机主窗体的LoadLoad事件中连接服务器程序，具体方法与聊天程事件中连接服务器程序，具体方法与聊天程序相同。序相同。Private Sub Form_LoadPrivate Sub Form_Load三三 设置聊天服务器的侦听端口设置聊天服务器的侦听端口 WinsockClient.RemotePort = 10001 WinsockClient.RemotePort = 10001 读取本机的读取本机的IPIP地址地址 根据根据txtServerIPtxtServerIP文本框中输

40、入的服务器文本框中输入的服务器IPIP，连接聊天服务，连接聊天服务器器 如果与服务器连接成功，则向用户提供下列信息如果与服务器连接成功，则向用户提供下列信息 MsgBox MsgBox 你成功地与聊天服务器进行了连接你成功地与聊天服务器进行了连接,End SubEnd Sub42（2）其它代码）其它代码Private Sub WinsockClient_DataArrival(ByVal bytesTotal) 当收到服务器发来的数据时，完成以下工作：当收到服务器发来的数据时，完成以下工作： （1）日期数据类型接收数据；）日期数据类型接收数据； （2）设置本机的系统日期）设置本机的系统日期 定

41、义一个日期类型数据变量定义一个日期类型数据变量 Dim MyDate As Date 以日期数据类型接受服务器日期数据以日期数据类型接受服务器日期数据 WinsockClient.GetData MyDate,VbDate 使本机的系统日期等于服务器日期使本机的系统日期等于服务器日期 Date=MyDateEnd Sub432. 2.服务端程序主要代码服务端程序主要代码Private Sub WinsockServer_ConnectionRequest _ (ByVal RequestID As Long) 当收到客户机的连接请求时，完成以下工作：当收到客户机的连接请求时，完成以下工作： （1）结束）结束Winsock的侦听状态；的侦听状态； （2）接受连接请求；）接受连接请求； （3）将服务器的系统日期发送给客户机）将服务器的系统日期发送给客户机 WinsockServer.Accept RequestID 将系统当前的时间将系统当前的时间Date发送给提出请求的客户机发送给提出请求的客户机 End Sub44 3.2 Web 3.2 Web浏览器浏览器1.1.一个简单的浏览器应用程序示例一个简单的浏览器应用程序示例（1 1）创建一个新的）创建一个新的“标准标准EXE