- 1PS提示：因为图层已锁定，无法编辑图层的处理方法
- 2picacg苹果版怎么找不到|picacg ios版是不是下架了介绍
- 3Adobe Illustrator CS5 序列号大全
- 4ACDsee注册码免费分享（含ACDsee18、ACDsee10等版本）
- 5Potato(土豆聊天)怎么换头像|Potato app更改头像方法介绍
- 6PDF浏览器能看3D文件吗？PDF浏览器看3D文件图文详细教程
- 7Potato(马铃薯聊天)怎么注册不了|Potato不能注册处理方法介绍
- 8最新的Adobe Illustrator CS4序列号大全
- 9Intel i7-9700K性能跑分曝光：同代提升约12%
- 10XP系统怎么清除缓存？
- 11Intel Z390主板有望10月8日公布：8核9代酷睿随后登场
- 12XP系统安装chrome无法找到入口怎么处理？
[摘要]转载VB爱好者乐园 作者：艾军 -------------------------------------------------------------------------------- ...
转载VB爱好者乐园 作者：艾军
--------------------------------------------------------------------------------
下载文件是每个网友都经常做的事，大家一般都是用一些专用软件如“网络蚂蚁”来完成。但是，如果要自己编写一个程序，实现下载一个特定的文件（如下载相关的网页并显示出来）又该怎么做呢？不要急，看了下面的介绍你就会知道实现文件的下载其实是很简单的。
在VB中有一个 Winsock 控件，通过它可以实现文件的下载。下面我首先介绍一下该控件的主要属性、方法和事件：
localPor属性：设置本地计算机使用的端口（一般设置为0）；
Protocol属性：设置Winsock控件使用的协议，tcP或uDP（一般设置为0）；
remotePort属性：设置要连接的远端计算机端口（80为HttP21为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＿DataarriValByVal 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来，我们一起讨论。
推荐资讯 总人气榜
最新教程 本月人气
- 1iphone7以旧换新会有吗 苹果iphone7以旧换新活动会出吗
- 2苹果iphone6拆机图解 苹果iphone6拆机图文说明教程视频
- 3iphone5s换电池图文说明教程视频 苹果iphone5s怎么换电池
- 4微信怎么发gif图片 微信怎么发gif动态图方法流程
- 5iphone7 32g够用吗 苹果7内存32g够不够用
- 6iphone7 256g价格多少钱 苹果iphone7 256gb售价介绍
- 7ios9.3.5怎么降级至ios9.3.2 苹果ios9.3.5降级9.3.2图文说明教程视频
- 8苹果终止iphone4硬件支持是真的吗
- 9漂流瓶发什么回复率高 微信漂流瓶发什么才吸引人
- 10旧iphone/ipad变卡怎么办 旧iphone/ipad变卡处理方法
- 11安卓7.0比较ios10哪一个好 android7.0与ios10比较区分
- 12苹果iphone手机显示充电但无法充电怎么办
