|
转载VB爱好者乐园
作者：艾军
--------------------------------------------------------------------------------
下载文件是每个网友都经常做的事，大家一般都是用一些专用软件如“网络蚂蚁”来完成。但是，如果要自己编写一个程序，实现下载一个特定的文件（如下载相关的网页并显示出来）又该怎么做呢？不要急，看了下面的介绍你就会知道实现文件的下载其实是很简单的。
在VB中有一个 Winsock 控件，通过它可以实现文件的下载。下面我首先介绍一下该控件的主要属性、方法和事件：
localPor属性：设置本地计算机使用的端口（一般设置为0）；
Protocol属性：设置Winsock控件使用的协议，tcP或uDP（一般设置为0）；
remotePort属性：设置要连接的远端计算机端口（80为HttP21为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
[riVate suB Winsock1＿DataarriValByVal Bytestotal as lonG
开始下载，收到数据时，发生DataarriVal事件
on error resume neｘt
Dim WebData as strinG
Winsock1．GetData WeBData VBstring myall ＝ myall ＋ WeBData 取得相关的网页文件
enD suB
PriVate suB Winsock1＿close 当下载完成时发生。
自己定义相关的操作
myall 是下载的网页，你可以把它显示在文本框中，也可把它保存为文件，也可通过一些自定义的函数进行信息的提取，限于篇幅，这里就不介绍了。
Winsock1．close 关闭 Winsock
enD suB
到此为止，相信你已了解如何在VB中通过 Winsock 控件下载文件了。本程序在 VB6．0、Win９8 环境下运行正常，如果你还有什么问题，可到 WWW．D1VB．com来，我们一起讨论。
| 
