用Visual Basic设计browser及ftp程序(四)

ftp程序设计

　　前面提到internet transfer control可以提供ftp protocol，这里我们便要告诉您如何运用 internet transfer control来设计一个可以连接ftp server的client程序，并将ftp server上的bbb.txt文件download到local端。

step 1：程序设计

　　在file选项中选择newproject建立一个新的工程，在屏幕上看到许多选项，如activex document.exe、activex document.dll、activex.exe、activex control等，这时要选standard.exe。接着在project下，选择property属性选项，在general选项下将project name改为ftp client。

　　在屏幕的form上加入一个internet transfer control，取名为inet1。将inet1 property的参数设置如下：

accesstype=2-icnamedproxy

username="david"

password="2333334"

protocol=2-icftp

proxy=172.18.16.65:8080

　　我们在此将username及password设置好，当我们login进入ftp server时，server将会直接跳过输入username和password的屏幕。

　　加入一个textbox control，取名为ftpgetfile。 加入两个button control，取名为ftpget和ftplink，分别将其caption改为ftpget和 ftplink。

在ftplink _click()中加入以下程序代码：

private sub ftplink _click()

inet1.excute "ftp 128.9.200.4"

end sub

　　execute是internet transfer control提供的一个用来执行ftp公用程序的method，我们可以在它的后面加入ftp的命令，这样我们就可以使用任何熟悉的ftp公用程序来完成工作。笔者的ftp server地址是128.9.200.4，所以我们在ftp命令后面填入这个地址。

接着在ftpget _click()中加入以下程序代码：

private sub ftplink _click()

inet1.excute "get aaa.txt c:\bbb.txt"

end sub

这个动作是将ftp server上的aaa.txt文件传送到client端。

step 2：测试

　　将ftpclient执行起来，按下ftplink button，连结到 ftp server。按下ftpget button，取回文件。有没有发觉到在c:\目录下面多了一个bbb.txt的文件？恭喜您成功了！