《编写简单的网络程序》由会员分享，可在线阅读，更多相关《编写简单的网络程序（49页珍藏版）》请在金锄头文库上搜索。
1、第14章 编写简单的网络程序,Visual Basic 程序设计教程,Visual Basic程序设计教程,2,本章介绍： Internet基本控件 使用WebBrowser控件 为应用程序增加FTP功能 创建Internet Transfer控件 使用Winsock控件 Visual Basic Script简介,Visual Basic程序设计教程,3,14.1 概述,VB网络应用程序主要有两种类型：IIS应用程序和DHTML应用程序。 IIS应用程序，是根据Microsoft Internet Information Server命名的，它驻留在Web服务器上，用来处理从浏览器来的输入请
2、求。IIS应用程序对请求进行处理、运行相关的VB代码并向用户返回响应信息。IIS应用程序的所有处理都在服务器上进行。,Visual Basic程序设计教程,4,DHTML应用程序，是为动态HTML命名的，它允许编写代码来处理HTML页面上任何元素的事件。 在VB里还可以向工程中增加其它类型的Internet功能，可以在基于窗体的应用程序中利用一些特别设计的网络控件来扩展Internet的功能。,Visual Basic程序设计教程,5,14.2 一个简单的网络浏览器,【例14-1】 利用WebBrowser控件制作一个简单的浏览器，程序运行时的界面如图14.1所示。窗体上有一个标签、一个文本框
3、和一个WebBrowser控件。标签的Caption属性如图所示，文本框的Text属性置空，其它属性均为缺省设置。,Visual Basic程序设计教程,6,WebBrowser控件不是VB的标准控件，使用之前必须将其添加到工具箱中。通过选择“工程”菜单中的“部件”命令，打开“部件”对话框，再从中选择“Microsoft Internet Control”进行添加，然后在窗体上相应的位置放置控件。,Visual Basic程序设计教程,7,Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then WebBrowse
4、r1.Navigate Text1.Text 显示指定的页面 End Sub Private Sub Form_Resize()WebBrowser1.width=ScalewidthWebBrowser1.Height=ScaleHeight-Text1.Height End Sub,Visual Basic程序设计教程,8,14.3 Internet基本控件,Visual Basic程序设计教程,9,14.4 使用WebBrowser控件,WebBrowser控件是一个基于IE内核的浏览器控件，它具有网页浏览、局部文档浏览和文件下载等许多Internet Explorer浏览器的特性，通过
5、WebBrowser控件可以快速地开发出功能强大的浏览器。,Visual Basic程序设计教程,10,14.4.1 WebBrowser控件的属性、方法和事件 1WebBrowser控件的属性,Visual Basic程序设计教程,11,2WebBrowser控件的方法WebBrowser控件的常用的方法如下：（1）GoHome方法使用格式:object.GoHome功能：装入设定的起始页。（2）Navigate方法使用格式:object.Navigate URL 功能：装入指定的页面。,Visual Basic程序设计教程,12,（3）GoBack方法使用格式：object.GoBack功
6、能：返回上一个页面。（4）GoForward方法使用格式：object.GoForward功能：进入下一个页面。,Visual Basic程序设计教程,13,（5）Refresh方法使用格式：object.Refresh功能：刷新页面。 （6）Stop方法使用格式：object.Stop功能：停止载入页面。 （7）GoSearch方法使用格式：object.GoSearch功能：搜索页面。,Visual Basic程序设计教程,14,3WebBrowser控件的事件（1）ProgressChange事件功能：当浏览器下载页面时触发该事件， ProgressMax是下载完成的最大值，Progre
7、ss是 当前下载完成的值。（2）DownloadComplete事件功能：页面下载完成后触发该事件。（3）NavigateComplete2事件功能：当浏览一个新的页面时触发该事件。,Visual Basic程序设计教程,15,（4）TitleChange事件功能：当前浏览的页面标题发生改变时触发该事件。 （5）BeforeNavigate2事件功能：浏览器装入页面前触发该事件，其中URL参 数为将要装入的页面地址。 （6）StatusTextChang事件功能：当浏览器的操作状态改变时调用，其中Text为浏览器的操作状态。,Visual Basic程序设计教程,16,【例14-2】设计一个W
8、WW浏览器。界面设计和程序运行如图14.2所示，该浏览器实现基本的浏览功能，如浏览网页，前进、后退、停止、刷新、主页、搜索和下载进度显示等功能。,Visual Basic程序设计教程,17,按照程序实现的功能，在窗体中加入一个工具栏控件、一个ImageList控件、一个标签控件、一个组合框控件、一个WebBrowser控件和一个状态栏控件，ImageList控件中的图片如图所示。,Visual Basic程序设计教程,18,14.5 为应用程序增加FTP功能,实现FTP功能可使用Internet Transfer控件，该控件支持两种最常用的网络协议：HTTP和FTP。 Internet Tra
9、nsfer控件可以按照WebBrowser控件的方式连接到一个使用HTTP协议的WWW服务器，但与WebBrowser控件不同的是，Internet Transfer控件看不到自动显示的实际网页，而是取到网页的HTML代码文件。,Visual Basic程序设计教程,19,使用FTP协议可以在FTP服务器上登录，实现文件的上传或下载。 Internet Transfer控件的一般用途是为应用程序增加FTP功能,Visual Basic程序设计教程,20,14.5.1 创建Internet Transfer控件“工程”菜单中的“部件”命令，打开“部件”对话框，再从中选择“Microsoft In
10、ternet Transfer Control 6.0”进行添加。该控件在窗体上缺省的名称为Inet1，在程序运行时不可见。,Visual Basic程序设计教程,21,14.5.2 Internet Transfer控件的属性,Visual Basic程序设计教程,22,Visual Basic程序设计教程,23,14.5.3 Internet Transfer控件的方法 Internet Transfer控件的常用方法有： 1Cancel方法 使用格式：Inet1.Cancel 功能：取消当前的请求，关闭所有已建立的连接。 2Execute方法 使用格式：Inet1.Execute url
11、,operation,data,requestHeaders 功能：执行向远程服务器的请求以完成某种操作。 Execute方法包含的参数如教材表14.4所示。,Visual Basic程序设计教程,24,3OpenURL方法 使用格式：Inet1.OpenURL URL ,datatype 功能：打开并返回指定URL的文档。 参数url是必需的，表示被检索文档的URL。参数datatype是可选的。用来指定数据类型。 4Getchunk方法 使用格式：Inet1.GetChunk(size,datatype) 功能：从远程主机获取数据，从StateChanged事件中检索数据。把Execute
12、方法当作GET操作来调用之后使用该方法。 参数Size是必需的，是长整型数值表达式，决定被检索的块的大小。,Visual Basic程序设计教程,25,5.GetHeader方法 使用格式：Inet1.GetHeader (hdrName) 功能：获取HTTP文件的标头文本。 参数hdrName是可选的。字符串，指定将被检索的标头，如果没有指定标头，将返回所有的标头。,Visual Basic程序设计教程,26,14.5.4 Internet Transfer控件的事件 Internet Transfer控件只有一个StateChanged事件，当连接中状态发生改变，就会引发该事件。事件的格式
13、是： Private Sub Inet1_StateChanged(ByVal State As Integer) 参数State用于指定Internet Transfer控件的状态，它的取值如教材表14.7所示。,Visual Basic程序设计教程,27,【例14-3】使用HTTP协议下载WEB网页的HTML文档，界面如图所示。窗体中有一个Internet Transfer控件、一个标签、一个命令按钮和两个文本框。各个控件的属性如图所示， Internet Transfer控件的属性采用缺省设置。,Visual Basic程序设计教程,28,【例14-4】使用FTP协议从服务器获取根目录，
14、程序界面如图所示。窗体中有一个Internet Transfer控件、三个标签、一个命令按钮、一个文本框和一个列表框。各个控件的属性如图所示，Internet Transfer控件的属性采用缺省设置。,Visual Basic程序设计教程,29,利用WinSock控件可以实现与远程计算机建立连接，并通过传输控制协议(TCP)或者用户数据报文协议(UDP)进行数据交换。这两种协议都可以用来创建客户端与服务器的应用程序。通过设置控件的属性并调用其方法就可轻易连接到一台远程机器上去，并且还可双向交换数据，成为编制客户端/服务器应用程序的基础。,14.6 使用Winsock控件,Visual Basi
15、c程序设计教程,30,14.6.1 Winscok控件的通讯协议 1TCP协议 TCP协议是基于连接的协议，可以将它同电话系统相比。在开始数据传输之前，用户必须先建立连接。 2UDP协议 UDP协议是一种无连接协议，跟TCP的操作不同，计算机之间并不建立连接。,Visual Basic程序设计教程,31,14.6.2 创建Winsock控件为了使用Winscok控件，必须先将其添加到工具箱中。通过选择“工程”菜单中的“部件”命令，打开“部件”对话框，再从中选择“Microsoft Winscok Control 6.0”进行添加。该控件在窗体上缺省的名称为Winsock1，在程序运行时不可见。
16、,Visual Basic程序设计教程,32,14.6.3 Winsock控件的属性,Visual Basic程序设计教程,33,State属性值,Visual Basic程序设计教程,34,14.6.4 Winsock控件的方法 1Accept方法 使用格式：object.Accept requestID 功能：在处理ConnectionRequest事件时用这个方 法接受新连接请求。仅适用于TCP服务器应 用程序。,Visual Basic程序设计教程,35,例如：Private Sub Winsock1_ConnectionRequest (ByVal requestID As Long) 测试 State 属性，如果当前连接是打开的话，则关闭连接。If Winsock1.State sckClosed Then Winsock1.CloseWinsock1.Accept requestID 将requestID 参数值传递给Accept方法。End Sub,
