admin 管理员组文章数量: 887176
2024年1月23日发(作者:excel公式多级bom)
用VB制作文件下载程序
下载文件是每个网友都经常做的事,大家一般都是用一些专用软件如“网络蚂蚁”来完成。但是,如果要自己编写一个程序,实现下载一个特定的文件(如下载相关的网页并显示出来)又该怎么做呢?不要急,看了下面的介绍你就会知道实现文件的下载其实是很简单的。
在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 + "accePttext/Html" + VBcrlf
strcommanD = strcommanD + VBcrlf
Winsock1.senDData strcommanD 发送命令
end sub
[riVate 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来,我们一起讨论。
版权声明:本文标题:用VB制作文件下载程序 内容由网友自发贡献,该文观点仅代表作者本人, 转载请联系作者并注明出处:http://www.freenas.com.cn/free/1705990718h496947.html, 本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,一经查实,本站将立刻删除。
发表评论