用VB制作文件下载程序

日期：2007年5月1日作者：查看:[大字体中字体小字体]

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

　　在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
[1] [2] 下一页
用VB制作文件下载程序相关文章：
·用VB制作文件下载程序
用VB制作文件下载程序相关软件

上一篇:在VB应用软件中实现动画效果

下一篇:自制控件方面的有关知识

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

用VB制作文件下载程序

精品推荐

热点TOP10

特别推荐