用制作文件下载程序

2021-09-06 来源：黑龙江租房网

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

在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

[riVate suB Winsock1＿DataarriValByVal 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来，我们一起讨论。

查看本文来源