基于Visual Basic 6的网络程序设计

摘 要 本文介绍了应用Visual Basic 6（VB）提供的控件进行网络程序设计，包括Web 浏览器（Web Browser）和文件传送程序(FTP) 的开发过程。主要内容包括VB提供的控件介绍以及程序开发的关键步骤。用本文阐述的内容即可建立一个Web Browser及FTP系统。

　　关键字 Visual Basic；互连网络传输控件；代理服务器；超文本传输协议；文件传输协议

　　引言

　　自从Internet技术成熟和普及以来，人们就可以非常方便、快捷地在互联网上进行文件下载、信息发布、在线视频、即时获取信息、电子邮件传送等操作。 Internet可以说是21世纪人类电子科技的一大创新，也是新一代媒体的替代物。由于这个重大改变，人们的生活方式也随之受到了非常大的影响，电子购物、网上信息库、网上股市实时交易等如雨后春笋般的出现。那么这些方式是如何在互联网络上实现的呢？本文介绍采用现今比较流行的程序设计语言Visual Basic 6.0独有的网络控件来开发设计Browser及FTP程序的方法。

　　以往的Visual Basic 4.0并没有提供一个完整的解决方案供Visual Basic爱好者设计Internet程序，而使用Visual Basic 6.0提供的一些网络控件，就可以设计Internet的相关程序。在本文中，笔者将会用Internet Transfer control6.0配合Web Browser control，阐述了如何用Visual Basic 6.0轻松地设计Browser及FTP程序的方法。

　　相关内容简介

　　Visual Basic 6.0 是一种基于对象的程序设计系统，它将Windows系统的很多的功能都集成到了控件中。VB中的控件和其他面向对象语言类似也提供了按钮控件、文本控件等Windows界面常见的功能控件。每个控件都具有自己的属性和事件，可以为控件的属性赋值，触发控件的事件，实现特定的功能。

　　1、主要控件介绍

　　1.1 Internet Transfer control简介

　　Internet Transfer control 6.0是微软为方便使用者设计Internet应用程序所提供的一种控件。它提供了HTTP和FTP两种互联网协议。在使用Internet Transfer control时，必须依据网络性质先设置它的存取方式，存取方式分为直接连接到Internet和通过代理（proxy）来连接Internet两种。当设置好了相关参数之后，Internet Transfer control提供了OpenURL和Execute两个方法，用于执行网络相关的操作。在下面的设计中，笔者会说明它的用法。

　　1.2 Web Browser control 简介

　　Web Browser control最早是由IE 3.0提供的，在安装IE 3.0时就会自动载入，Visual Basic 6.0 将其变成内部控件。它提供的Navigate方法，能够连接到Web服务器。

　　由于Internet Transfer control并没有提供图形模式的存取方式，所得到的文件仅能以文本模式传回；如果传回的文件包含图形的话，则必须将所得到的HTML文件用程序做一个转换。在此，所以笔者选择了Web Browser control来做一个转换。　　

　　2、Web Browser程序设计

　　2.1网络参数设置

　　首先确定网络系统是直接连到Internet还是通过代理（proxy）连接到Internet。可以通过以下的步骤来确定系统是以哪种方式连接到Internet：双击"我的电脑"→"控制面板"→"Internet选项"，打开Internet 属性对话框。在Internet 属性对话框中选择"连接"选项页，通过该选项页就可知道系统是通过代理方式还是通过直接连接方式连接到Internet。

　　如果系统是通过代理方式连接到Internet，必须找出代理服务器（proxy Server）的地址及端口，以利于程序设置。具体操作如下：
单击"局域网设置"按钮显示"局域网（LAN）设置"对话框如图1 ，在此对话框中即可查看代理服务器的地址及端口。

图1 局域网设置对话框

　　2.2 程序设计

　　（1）创建程序界面。单击"File"菜单下的"New Project"命令，显示"New Project"对话框如图二，单击"Standard.EXE"图标，创建一个新的工程,将工程文件名设置为Webbrowser.vbp 。

图2 Visual Basic 6.0的新建工程界面

　　在工程文件创建以后，系统自动地创建了一个窗体Form，默认的窗体文件文件名为Form1.frm。在窗体上添加所需的控件，适当调整它们的大小和位置。

　　(2) 设置窗体界面中控件的属性。控件的属性设置见表1。在设置过程中，一定要确认所选中的控件，然后在逐一设置该控件的属性。

　　表1 控件属性设置

控件类型	属性和属性值	功能描述
TextBox	Name属性设置为CGISearchText属性设置为空	输入CGI命令
TextBox	Name属性设置为webnameText属性设置为空	显示html文字结果
TextBox	Name属性设置为htmlshowText属性设置为空	输入要前往的网页地址
Label	Name属性设置为Label1Caption属性设置为Search	用来描述操作
CommandButton	Name属性设置为SearchCaption属性设置为Search	执行CGI命令
CommandButton	Name属性设置为GoCaption属性设置为Go	执行前往网页地址的动作
CommandButton	Name属性设置为ShowDocCaption属性设置为ShowDoc	执行显示html文字结果
*Inet	Name属性设置为Inet1 Accesstype属性设置为2-icnamedproxy Protocol属性设置为4-icHTTP Proxy属性设置为192.168.4.2:8080	实现通信和网络操作
*Web browser	Name属性设置为Web1	用来处理WEB页信息

　　其中带有*号的控件是在工具箱中看不到的控件，需要从部件中添加。添加的方法如下：

　　选择"Project"菜单栏中的"Components" 菜单命令，显示对话框如图3。选中"Controls"选项卡中的两个选项后，单击"确定"按钮，在工具箱中就添加了所需的控件。

图3 选择组件对话框

　　设计完成后的程序窗体界面如图4。

图4 Web Browser系统设计界面

　（3）编写程序代码。在Go_Click()中加入以下程序代码，这个动作是连接到所选择的网页服务器，并将屏幕显示在web1的方块区域内。

Private Sub Go_Click() 　web1.Navigate webname.Text End Sub

　　程序中运用web1的Navigate方法，该方法将屏幕连接到webname 文本框控件中所指定的网络站点。

　　在htmlshow _Click()加入以下的程序代码：

Private Sub htmlshow _Click() 　a$ = web1.LocationURL 　ShowDoc.Text = Inet1.OpenURL(a$) End Sub

　　该程序先将web1所连接到的URL 地址，通过LocationURL属性读出，并将它暂存于字符串a。接着使用OpenURL()命令将所接收到的HTML程序代码显示在ShowDoc 文本框控件中。

　　在CGIserch _Click()中加入以下程序代码：

Private Sub CGIserch _Click() 　Web1.Navigate "http://search.sina.com/bin/Search ? p=" + CGI.Text End Sub

　　该程序用CGI命令来查询文件，将查询命令指定传送到sina这个网络搜寻站，这样就完成了一个小型的Web Browser。