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

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程序也将随之产生。本文所介绍的程序是笔者在此方面做的一点尝试，已经调试成功。

查看本文来源