手机站
网通分站
电信主站
密 码:
用户名:
当前位置 : 主页>程序设计>VB>列表

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

来源:互联网 作者:west263.com 时间:2008-02-23
西部数码-全国虚拟主机10强!40余项虚拟主机管理功能,全国领先!双线多线虚拟主机南北访问畅通无阻!免费赠送企业邮局,.CN域名,自助建站480元起,免费试用7天,满意再付款! P4主机租用799元/月.月付免压金!
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的文件?恭喜您成功了!

上一篇: 用Visual Basic设计e-mail程序
下一篇: 使用Visual Basic开发通讯软件(一)

文章整理:西部数码--专业提供域名注册虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!