基于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 Aclearcase/" target="_blank" >ccesstype属性设置为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。
　2.3测试程序

　　远行设计完的Web Browser程序，在web name文本框中输入所要的网址，如输入http://www.baidu.com。单击"Go Button"按钮，将会在web1 控件的方块区域内显示了baidu的主页。单击"ShowDoc"按钮，baidu的主页的HTML程序代码则显示在htmlshow文本框中。

　　接下来试试CGI搜寻功能。如在CGIserch 文本框中输入"图书"，然后单击"Serch"按钮，则查询的结果被显示在web1方形区域中。同样的也可以单击"ShowDoc"按钮，则将查询结果所传回的HTML程序代码显示在htmlshow文本框中显示。这样一个简单的WEB浏览器的基本功能就实现了。　　

　　3、FTP程序设计

　　前面提到Internet Transfer control可以提供FTP 协议，下面介绍用 Internet Transfer control来设计一个可以连接FTP Server的客户端程序，并将FTP Server上的bbb.txt文件下载到本地端的程序。

　　(1) 使用同样的方法建立一个新的工程，将工程文件名设置FTPclient.vbp ，默认的窗体文件名为FORM1.FRM。部分控件的属性设置见表2：

　　表2 控件属性设置

控件类型	属性和属性值	功能描述
TextBox	Name属性设置为FTPgetfileText属性设置为空	输入传输的文件名
CommandButton	Name属性设置为FTPgetCaption属性设置为FTPget	进行文件传输操作
CommandButton	Name属性设置为FTPLinkCaption属性设置为FTPLink	进行文件传输连接操作
Inet	Name属性设置为Inet1 Accesstype属性设置为2-icnamedproxy Protocol属性设置为4-icFTP Proxy属性设置为192.168.4.2:8080 Username属性设置为"wnaglichen"password="2522510"	实现通信和网络操作说明：在此将Username及password设置好，当Login进入FTP Server时，Server设计完成后的程序窗体界面如图5。

图5 ftp程序的设计界面

　　（2）编写程序代码。

　　在FTPLink _Click()中输入以下程序代码：

Private Sub FTPLink _Click() 　Inet1.excute "FTP 192.168.4.20" End Sub

　　Execute是Internet Transfer control提供的一个用来执行FTP公用程序的方法，可以在它的后面加入FTP的命令，这样就可以使用任何熟悉的FTP公用程序来完成工作。笔者的FTP Server地址是192.168.4.20，所以在FTP命令后面填入这个地址。

　　在FTPget _Click()中输入以下程序代码：

Private Sub FTPLink _Click() 　Inet1.excute "GET aaa.txt c:\bbb.txt" End Sub

　　该程序可实现将FTP Server上的aaa.txt文件传送到客户端。

　　执行FTPclient程序，单击"FTPLink"按钮，连结到 FTP Server；单击"FTPget"按钮，取回文件。此时，可以发现在本地硬盘C:\目录下面看到多了一个bbb.txt的文件，这个文件就是从远程服务器中下载到本地的文件。这也就说明，一个简单的文件传输程序设计成功了。

　　结论

　　通过上面的阐述，大家可以了解在VB中开发Web程序的具体流程。随着网络的普及和计算机的发展、文件传输速度的提高，一些高质量的Web程序也将随之产生。本文所介绍的程序是笔者在此方面做的一点尝试，已经调试成功。

原文转自：http://www.ltesting.net