用VB能否实现文件下载？
用VB能否实现文件下载？ 问题点数：50、回复次数：6Top
1 楼thirdapple（.:RNPA:.陨落雕 - 芝兰宝树）回复于 2002-06-08 14:14:24 得分 3
可以的Top
2 楼Dickson（沧海冷心）回复于 2002-06-08 14:15:25 得分 4
winsockTop
3 楼saucer（思归）回复于 2002-06-08 14:16:01 得分 20
sure, use WinInet API:
SAMPLE: VBFTP.EXE: Implementing FTP Using WinInet API from VB (Q175179)
http://support.microsoft.com/default.aspx?scid=kb;EN-US;q175179
or you can use Inet controls, MSXML component,....Top
4 楼wzsswz（岌岌荆棘）回复于 2002-06-08 14:19:32 得分 20
转载：
《 {用VB实现文件下载} 》
{下载文件是每个网友都经常做的事，大家一般都是用一些专用软件如“网络蚂蚁”来完成。但是，如果要自己编写一个程序，实现下载一个特定的文件（如下载相关的网页并显示出来）又该怎么做呢？不要急，看了下面的介绍你就会知道实现文件的下载其实是很简单的。
在ＶＢ中有一个 Ｗｉｎｓｏｃｋ 控件，通过它可以实现文件的下载。下面我首先介绍一下该控件的主要属性、方法和事件：
ＬｏｃａｌＰｏｒ属性：设置本地计算机使用的端口（一般设置为０）；
Ｐｒｏｔｏｃｏｌ属性：设置Ｗｉｎｓｏｃｋ控件使用的协议，ＴＣＰ或ＵＤＰ（一般设置为０）；
ＲｅｍｏｔｅＰｏｒｔ属性：设置要连接的远端计算机端口（８０为ＨＴＴＰ２１为ＦＴＰ，２５为ＳＭＴＰ）；
ＲｅｍｏｔｅＨｏｓｔ 属性：设置用于标识远程计算机的名称（ＲｅｍｏｔｅＰｏｒｔ 属性如果为 ８０ 则设置为“ｓｏｈｕ．ｃｏｍ”或“ｓｉｎａ．ｃｏｍ．ｃｎ”，如果为 ２５ 则设置为“ｓｍｔｐ．２１ｃｎ．ｃｏｍ”）；
Ｃｏｎｎｅｃｔ方法：要求连接到远程计算机；
Ｃｌｏｓｅ方法：关闭连接；
ＳｅｎｄＤａｔａ方法：将数据发送给远程计算机；
ＧｅｔＤａｔａ方法：获取当前的数据块并将其存储在变体类型的变量中；
Ｃｏｎｎｅｃｔ事件：当一个Ｃｏｎｎｅｃｔ操作完成时发生；
Ｃｌｏｓｅ事件：当Ｃｌｏｓｅ操作完成时发生；
ＤａｔａＡｒｒｉｖａｌ事件：接收数据时发生；
下面我们就来实现文件的下载功能，并以下载搜狐网站的首页为例：
Ｏｐｔｉｏｎ Ｅｘｐｌｉｃｉｔ
Ｄｉｍ ｍｙａｌｌ Ａｓ Ｓｔｒｉｎｇ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿Ｌｏａｄ
′建立连接
Ｗｉｎｓｏｃｋ１．Ｐｒｏｔｏｃｏｌ＝０
Ｗｉｎｓｏｃｋ１．ＲｅｍｏｔｅＨｏｓｔ ＝ ″ｓｏｈｕ．ｃｏｍ′如果想下载″新浪″首页，则换为 ｓｉｎａ．ｃｏｍ．ｃｎ
Ｗｉｎｓｏｃｋ１．ＲｅｍｏｔｅＰｏｒｔ ＝ ８０
Ｗｉｎｓｏｃｋ１．Ｃｏｎｎｅｃｔ ′开始提取数据
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｗｉｎｓｏｃｋ１＿Ｃｏｎｎｅｃｔ
Ｄｉｍ ｓｔｒＣｏｍｍａｎｄ Ａｓ Ｓｔｒｉｎｇ
Ｄｉｍ ｓｔｒＷｅｂＰａｇｅ Ａｓ Ｓｔｒｉｎｇ
ｓｔｒＷｅｂＰａｇｅ ＝ ″ｈｔｔｐ／／ｗｗｗ．ｏｓｈｕ．ｃｏｍ／″ ′指定网页，这里是指搜狐的首页
ｓｔｒＣｏｍｍａｎｄ ＝ ″ＧＥＴ ″ ＋ ｓｔｒＷｅｂＰａｇｅ ＋ ″ ＨＴＴＰ／１．０″ ＋ ｖｂＣｒＬｆ
ｓｔｒＣｏｍｍａｎｄ ＝ ｓｔｒＣｏｍｍａｎｄ ＋ ″Ａｃｃｅｐｔ ／″ ＋ ｖｂＣｒＬｆ
ｓｔｒＣｏｍｍａｎｄ ＝ ｓｔｒＣｏｍｍａｎｄ ＋ ″Ａｃｃｅｐｔ ｔｅｘｔ／ｈｔｍｌ″ ＋ ｖｂＣｒＬｆ
ｓｔｒＣｏｍｍａｎｄ ＝ ｓｔｒＣｏｍｍａｎｄ ＋ ｖｂＣｒＬｆ
Ｗｉｎｓｏｃｋ１．ＳｅｎｄＤａｔａ ｓｔｒＣｏｍｍａｎｄ ′发送命令
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｗｉｎｓｏｃｋ１＿ＤａｔａＡｒｒｉｖａｌＢｙＶａｌ ｂｙｔｅｓＴｏｔａｌ Ａｓ Ｌｏｎｇ
′开始下载，收到数据时，发生ＤａｔａＡｒｒｉｖａｌ事件
Ｏｎ Ｅｒｒｏｒ Ｒｅｓｕｍｅ Ｎｅｘｔ
Ｄｉｍ ｗｅｂＤａｔａ Ａｓ Ｓｔｒｉｎｇ
Ｗｉｎｓｏｃｋ１．ＧｅｔＤａｔａ ｗｅｂＤａｔａ ｖｂＳｔｒｉｎｇ
ｍｙａｌｌ ＝ ｍｙａｌｌ ＋ ｗｅｂＤａｔａ ′取得相关的网页文件
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｗｉｎｓｏｃｋ１＿Ｃｌｏｓｅ ′当下载完成时发生。
′自己定义相关的操作
′ｍｙａｌｌ 是下载的网页，你可以把它显示在文本框中，也可把它保存为文件，也可通过一些自定义的函数进行信息的提取，限于篇幅，这里就不介绍了。
Ｗｉｎｓｏｃｋ１．Ｃｌｏｓｅ ′关闭 Ｗｉｎｓｏｃｋ
Ｅｎｄ Ｓｕｂ
Top
5 楼fhqkhnzh（剑宇）回复于 2002-06-08 14:22:37 得分 3
可以Top
6 楼pick2103（快乐天天）回复于 2002-06-08 14:36:07 得分 0
谢谢各位！Top
