2001-12-22 20:19作者：出处：Yesky责任编辑：

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

　　在VB中有一个 Winsock 控件，通过它可以实现文件的下载。下面我首先介绍一下该控件的主要属性、方法和事件：

　　localPor属性：设置本地计算机使用的端口（一般设置为0）；

　　Protocol属性：设置Winsock控件使用的协议，tcP或uDP（一般设置为0）；

　　remotePort属性：设置要连接的远端计算机端口（80为HttP 21为ftP，25为smtP）；

　　remoteHost 属性：设置用于标识远程计算机的名称（remotePort 属性如果为 80 则设置为“soHu．com”或“sina．com．cn”，如果为 25 则设置为“smtP．21cn．com”）；

connect方法：要求连接到远程计算机；

　　close方法：关闭连接；

　　senDData方法：将数据发送给远程计算机；

　　GetData方法：获取当前的数据块并将其存储在变体类型的变量中；

　　connect事件：当一个connect操作完成时发生；

　　close事件：当close操作完成时发生；

　　DataarriVal事件：接收数据时发生；

　　下面我们就来实现文件的下载功能，并以下载搜狐网站的首页为例：

oPtion eｘPlicit

Dim myall as strinG

PriVate suB form＿loaD

建立连接

Winsock1．Protocol＝0

Winsock1．remoteHost ＝ "soHu．com如果想下载"新浪"首页，则换为 sina．com．cn

Winsock1．remotePort ＝ 80

Winsock1．connect 开始提取数据

enD suB

PriVate suB Winsock1＿connect

Dim strcommanD as strinG

Dim strWeBPaGe as strinG

strWeBPaGe ＝ "Http//WWW．osHu．com/" 指定网页，这里是指搜狐的首页

strcommanD ＝ "Get " ＋ strWeBPaGe ＋ " HttP/1．0" ＋ VBcrlf

strcommanD ＝ strcommanD ＋ "accePt/" ＋ VBcrlf

strcommanD ＝ strcommanD ＋ "accePtteｘt/Html" ＋ VBcrlf

strcommanD ＝ strcommanD ＋ VBcrlf

Winsock1．senDData strcommanD 发送命令

end sub

　　myall 是下载的网页，你可以把它显示在文本框中，也可把它保存为文件，也可通过一些自定义的函数进行信息的提取，限于篇幅，这里就不介绍了。

　　Winsock1．close 关闭 Winsock

　　enD suB

　　到此为止，相信你已了解如何在VB中通过 Winsock 控件下载文件了。本程序在 VB6．0、Win９8 环境下运行正常，如果你还有什么问题，可到 WWW．D1VB．com来，我们一起讨论。下载本文