用VB实现文件下载

　　 
　　下载文件是每个网友都经常做的事，大家一般都是用一些专用软件如“网络蚂蚁”来完成。但是，如果要自己编写一个程序，实现下载一个特定的文件（如下载相关的网页并显示出来）又该怎么做呢？不要急，看了下面的介绍你就会知道实现文件的下载其实是很简单的。

在ＶＢ中有一个 Ｗｉｎｓｏｃｋ 控件，通过它可以实现文件的下载。下面我首先介绍一下该控件的主要属性、方法和事件：
ＬｏｃａｌＰｏｒ属性：设置本地计算机使用的端口（一般设置为０）；
Ｐｒｏｔｏｃｏｌ属性：设置Ｗｉｎｓｏｃｋ控件使用的协议，ＴＣＰ或ＵＤＰ（一般设置为０）；
ＲｅｍｏｔｅＰｏｒｔ属性：设置要连接的远端计算机端口（８０为ＨＴＴＰ?２１为ＦＴＰ，２５为ＳＭＴＰ）；
ＲｅｍｏｔｅＨｏｓｔ 属性：设置用于标识远程计算机的名称（ＲｅｍｏｔｅＰｏｒｔ 属性如果为 ８０ 则设置为“ｓｏｈｕ．ｃｏｍ”或“ｓｉｎａ．ｃｏｍ．ｃｎ”，如果为 ２５ 则设置为“ｓｍｔｐ．２１ｃｎ．ｃｏｍ”）；
Ｃｏｎｎｅｃｔ方法：要求连接到远程计算机；
Ｃｌｏｓｅ方法：关闭连接；
ＳｅｎｄＤａｔａ方法：将数据发送给远程计算机；
ＧｅｔＤａｔａ方法：获取当前的数据块并将其存储在变体类型的变量中；
Ｃｏｎｎｅｃｔ事件：当一个Ｃｏｎｎｅｃｔ操作完成时发生；
Ｃｌｏｓｅ事件：当Ｃｌｏｓｅ操作完成时发生；
ＤａｔａＡｒｒｉｖａｌ事件：接收数据时发生；
下面我们就来实现文件的下载功能，并以下载搜狐网站的首页为例：
Ｏｐｔｉｏｎ Ｅｘｐｌｉｃｉｔ
Ｄｉｍ ｍｙａｌｌ Ａｓ Ｓｔｒｉｎｇ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿Ｌｏａｄ??
′建立连接
Ｗｉｎｓｏｃｋ１．Ｐｒｏｔｏｃｏｌ＝０
Ｗｉｎｓｏｃｋ１．ＲｅｍｏｔｅＨｏｓｔ ＝ ″ｓｏｈｕ．ｃｏｍ′如果想下载″新浪″首页，则换为 ｓｉｎａ．ｃｏｍ．ｃｎ
Ｗｉｎｓｏｃｋ１．ＲｅｍｏｔｅＰｏｒｔ ＝ ８０
Ｗｉｎｓｏｃｋ１．Ｃｏｎｎｅｃｔ ′开始提取数据
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｗｉｎｓｏｃｋ１＿Ｃｏｎｎｅｃｔ??
Ｄｉｍ ｓｔｒＣｏｍｍａｎｄ Ａｓ Ｓｔｒｉｎｇ
Ｄｉｍ ｓｔｒＷｅｂＰａｇｅ Ａｓ Ｓｔｒｉｎｇ
ｓｔｒＷｅｂＰａｇｅ ＝ ″ｈｔｔｐ?／／ｗｗｗ．ｏｓｈｕ．ｃｏｍ／″ ′指定网页，这里是指搜狐的首页
ｓｔｒＣｏｍｍａｎｄ ＝ ″ＧＥＴ ″ ＋ ｓｔｒＷｅｂＰａｇｅ ＋ ″ ＨＴＴＰ／１．０″ ＋ ｖｂＣｒＬｆ
ｓｔｒＣｏｍｍａｎｄ ＝ ｓｔｒＣｏｍｍａｎｄ ＋ ″Ａｃｃｅｐｔ? ?／?″ ＋ ｖｂＣｒＬｆ
ｓｔｒＣｏｍｍａｎｄ ＝ ｓｔｒＣｏｍｍａｎｄ ＋ ″Ａｃｃｅｐｔ? ｔｅｘｔ／ｈｔｍｌ″ ＋ ｖｂＣｒＬｆ
ｓｔｒＣｏｍｍａｎｄ ＝ ｓｔｒＣｏｍｍａｎｄ ＋ ｖｂＣｒＬｆ
Ｗｉｎｓｏｃｋ１．ＳｅｎｄＤａｔａ ｓｔｒＣｏｍｍａｎｄ ′发送命令
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｗｉｎｓｏｃｋ１＿ＤａｔａＡｒｒｉｖａｌ?ＢｙＶａｌ ｂｙｔｅｓＴｏｔａｌ Ａｓ Ｌｏｎｇ?
′开始下载，收到数据时，发生ＤａｔａＡｒｒｉｖａｌ事件
Ｏｎ Ｅｒｒｏｒ Ｒｅｓｕｍｅ Ｎｅｘｔ
Ｄｉｍ ｗｅｂＤａｔａ Ａｓ Ｓｔｒｉｎｇ
Ｗｉｎｓｏｃｋ１．ＧｅｔＤａｔａ ｗｅｂＤａｔａ? ｖｂＳｔｒｉｎｇ
ｍｙａｌｌ ＝ ｍｙａｌｌ ＋ ｗｅｂＤａｔａ ′取得相关的网页文件
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｗｉｎｓｏｃｋ１＿Ｃｌｏｓｅ?? ′当下载完成时发生。
′自己定义相关的操作
′ｍｙａｌｌ 是下载的网页，你可以把它显示在文本框中，也可把它保存为文件，也可通过一些自定义的函数进行信息的提取，限于篇幅，这里就不介绍了。
Ｗｉｎｓｏｃｋ１．Ｃｌｏｓｅ ′关闭 Ｗｉｎｓｏｃｋ
Ｅｎｄ Ｓｕｂ
到此为止，相信你已了解如何在ＶＢ中通过 Ｗｉｎｓｏｃｋ 控件下载文件了。本程序在 ＶＢ６．０、Ｗｉｎ９８ 环境下运行正常，如果你还有什么问题，可到 ｗｗｗ．ｄ１ｖｂ．ｃｏｍ来，我们一起讨论。

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