VB网络程序设计.ppt

《VB网络程序设计.ppt》由会员分享，可在线阅读，更多相关《VB网络程序设计.ppt（48页珍藏版）》请在优知文库上搜索。

1、1VB网络程序设计网络程序设计2 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 Microsoft Winsock ControlControl并将其选中。并将其选中。2.2.将将For

7、m1Form1的名称改为的名称改为frmSvrfrmSvr, ,并在其中添加两个命并在其中添加两个命令按钮（令按钮（Command1Command1的的CaptionCaption属性为属性为“退出退出”, ,Command2Command2的的CaptionCaption属性为属性为“发送发送”）。）。3.3.在窗体是添加三个在窗体是添加三个TextBoxTextBox控件控件, ,其名称分别为其名称分别为txtServerIPtxtServerIP, ,txtSendtxtSend和和txtReceivetxtReceive。4.4.在窗体上添加一个在窗体上添加一个WinsockWinso

8、ck控件控件, ,将其将其ProtocolProtocol（协议）属性设置为协议）属性设置为0 0（即（即sckTCPProtocolsckTCPProtocol）。）。8 1.3 1.3 服务器程序代码设计服务器程序代码设计Private Sub Form_Load()Private Sub Form_Load() 设置侦听端口设置侦听端口 WinsockServer.LocalPort = 10001WinsockServer.LocalPort = 10001 读取服务器的读取服务器的IPIP地址地址 TxtServerIP.Text = WinsockServer.LocalIPTxt

9、ServerIP.Text = WinsockServer.LocalIP 开始侦听开始侦听 WinsockServer.ListenWinsockServer.ListenEnd SubEnd SubPrivate Sub Command1_Click()Private Sub Command1_Click() 点击点击“退出退出”按钮后关闭应用程序按钮后关闭应用程序 Unload MeUnload MeEnd SubEnd Sub9 1.3 1.3 服务器程序代码设计服务器程序代码设计Private Sub Command2_Click()Private Sub Command2_Clic

10、k() 只要只要txtSendtxtSend文本框的内容写好以后就由文本框的内容写好以后就由WinsockServerWinsockServer控件发送控件发送 WinsockServer.SendData TxtSend.TextWinsockServer.SendData TxtSend.TextEnd SubEnd SubPrivate Sub WinsockServer_ConnectionRequest(ByVal requestID Private Sub WinsockServer_ConnectionRequest(ByVal requestID As Long)As Long

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

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

13、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属性为属性为“退出退出”, , Com

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

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

16、 Sub13 1.4. 客户机的程序代码设计客户机的程序代码设计Private Sub Command2_Click() 根据根据txtServerIP文本框中输入的服务器文本框中输入的服务器IP, ,连接聊连接聊天服务器天服务器 WinsockClient.RemoteHost = txtServerIP.Text WinsockClient.ConnectEnd SubPrivate Sub Command3_Click() 输入输入txtSend文本框的内容后由文本框的内容后由WinsockServer控控件发送件发送 WinsockClient.SendData txtSend.TextEnd Sub14 1.4. 客户机的程序代码设计客户机的程序代码设计Private Sub WinsockClient_Connect() 如果与服务器连接成功如果与服务器连接成功, ,则向用户提供下列信息则向用户提供下列信息 M s g B o x 你 成 功 地 与 聊 天 服 务 器 进 行 了 连 接你 成 功 地 与 聊 天 服 务 器 进 行 了 连 接 , vbInformati