用VB实现文件下载

发表于:2007-06-17来源:作者:点击数: 标签:
下载文件是每个网友都经常做的事,大家一般都是用一些专用软件如“ 网络 蚂蚁”来完成。但是,如果要自己编写一个程序,实现下载一个特定的文件(如下载相关的网页并显示出来)又该怎么做呢?不要急,看了下面的介绍你就会知道实现文件的下载其实是很简单的

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

在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 Explicit
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 + ″Accept? text/html″ + vbCrLf
strCommand = strCommand + vbCrLf
Winsock1.SendData strCommand ′发送命令
End Sub
Private Sub Winsock1_DataArrival?ByVal bytesTotal As Long?
′开始下载,收到数据时,发生DataArrival事件
On Error Resume Next
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、Win98 环境下运行正常,如果你还有什么问题,可到 www.d1vb.com来,我们一起讨论。

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