文档介绍：on error resume nc x t
用VB制作文件下载程序
2001-1、22 20:19作者：出处：Ycsky责任编辑:
下载文件是每个网友都经常做的事，大家一般都是用一些专用转任如“网给蚂蚁”来完 成。但是，如果要自己编写一个程序,实现下载一个特定的文件（如下载相关的驷并显示 出来）又该怎么做呢？不要急，看了下面的介绍你就会知道实现文件的下载其实是很简单的。
在VB中有一个Winsock控件，通过它可以实现文件的下载。下面我首先介绍一下该 控件的主要属性、方法和事件：
locaiPor属性：设置本地计算机使用的端口（一般设置为0）；
Protocol属性：设置用nsock控件使用的协议，tcP或uDP （一般设置为0）；
rcmotcPort属性：设置要连接的远端计算机端口（80为HitP 21为ftP, 25为smtP）；
rumotuHosl•属性：设置用于标识远程计算机的名称（rumotuPort属性如果为80则设置 为“soHu. com"或"sina. com. cn",如果为 25 则设置为"smtP. 21 cn. com"）； connect方法：要求连接到远程计算机；
close方法：关闭连接；
smDData方法：将数据发送给远程计算机；
GclPaU方法：获取当前的数据块并将其存储在变体类型的变量中；
connuci事件：当一个connuci•操作完成时发生；
close事件：当close操作完成时发生；
DataarriVal事件：接收数据时发生；
下面我们就来实现文件的下载功能，并以下载搜狐网站的首页为例：
oPtion c x Plicit
Dim mvall as strinG J
PriVatc suB form loaf)
建立连接
Winsock 1 . Protocol = 0
Winsock 1. rcmotcHost = "soHu. com如果想下载"新浪"首页,则换为
sina . com. cn
Winsock 1 . remotePort = 80
Winsock 1. connect开始提取数据
unD suB
PriVatc suB Winsock 1_connect
Dim streommanD as strinG
Dim strWeBPaGe as strinG
strWeBPaGe = ”Hi中〃VNN'. esHu. com/”指定网页，这里是指搜狐的首页
streommanD = "Get" + strWeBPaGe + n HttP/1. 0" + VBcHf
streommanD = streommanD + MacccPt/n + VBcrlf
streommanD = streommanD + uacccPttc x t/Hlml" + \(7Bcrlf
streommanD = streommanD + VBcrlf
Winsock 1