服务器维护网站维护数据维护系统安全配置
专业定制网站企业建站一条龙、软件定制开发、系统集成
稳定虚机备案一条龙，稳定快捷通道
服务理念诚信守诺客户至上专业精神专心贯注

用VB制作文件下载程序

作者：黑客防线网安VB教程基地来源：黑客防线网安VB教程基地浏览次数：0

用VB制作文件下载程序

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

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

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

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

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

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

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

　　close方法：关闭连接；

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

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

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

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

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

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

　　oPtioneｘPlicit

　　DimmyallasstrinG

　　PriVatesuBform＿loaD

　　建立连接

　　Winsock1．Protocol＝0

　　Winsock1．remoteHost＝"so**Hu．com如果想下载"新浪"首页，则换为si****na．com．cn

　　Winsock1．remotePort＝80

　　Winsock1．connect开始提取数据

　　enDsuB

　　PriVatesuBWinsock1＿connect

　　DimstrcommanDasstrinG

　　DimstrWeBPaGeasstrinG

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

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

　　strcommanD＝strcommanD＋"accePt/"＋VBcrlf

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

　　strcommanD＝strcommanD＋VBcrlf

　　Winsock1．senDDatastrcommanD发送命令

　　endsub

　　[riVatesuBWinsock1＿DataarriVal??ByValBytestotalaslonG

　　开始下载，收到数据时，发生DataarriVal事件

　　onerrorresumeneｘt

　　DimWebDataasstrinG

　　Winsock1．GetDataWeBDataVBstringmyall＝myall＋WeBData取得相关的网页文件

　　enDsuB

　　PriVatesuBWinsock1＿close当下载完成时发生。

　　自己定义相关的操作

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

　　Winsock1．close关闭Winsock

　　enDsuB

　　到此为止，相信你已了解如何在VB中通过Winsock控件下载文件了。本程序在VB6.0、Win98环境下运行正常。

希望这篇用VB制作文件下载程序的文章能够对您有所帮助，如果您觉得这篇网站维护教程有用的话，别忘了推荐给您的朋友哦！如果您有好的经验方法，不妨拿出来和大家一起分享：假如每个人都拿出一个经验，那么我们都将额外的获取一堆他人的经验。
请记住本站永久域名：（黑客防线网安服务器维护方案维护基地）Www.Rongsen.Com.Cn

黑客防线网安服务器维护方案本篇连接：http://ww.rongsen.com.cn/show-14634-1.html

网站维护教程更新时间:2023-02-08 11:40:55 【打印此页】【关闭】

0
顶一下0
踩一下

上一篇：VB应用程序中实现“查找和替换”功能
下一篇：利用VB6.0实现五线谱作曲工具