打开APP
userphoto
未登录

开通VIP,畅享免费电子书等14项超值服

开通VIP
VB示例:用VB制造文件下载程序
用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事件:接收数据时发生;
  下面我们就来实现文件的下载功能,并以下载搜狐网站的首页为例:

oPtionexPlicit
DimmyallasstrinG
PriVatesuBform_loaD
建立连接
Winsock1.Protocol=0
Winsock1.remoteHost="soHu.com如果想下载"新浪"首页,则换为sina.com.cn
Winsock1.remotePort=80
Winsock1.connect开始提取数据
enDsuB
PriVatesuBWinsock1_connect
DimstrcommanDasstrinG
DimstrWeBPaGeasstrinG
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.senDDatastrcommanD发送命令
endsub

[riVatesuBWinsock1_DataarriVal??ByValBytestotalaslonG

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

onerrorresumenext
DimWebDataasstrinG
Winsock1.GetDataWeBDataVBstringmyall=myall+WeBData取得相关的网页文件
enDsuB
PriVatesuBWinsock1_close当下载完成时发生。
  本人定义相关的操做
  myall是下载的网页,你能够把它显示在文本框中,也可把它保存为文件,也可通过一些自定义的函数进行消息的提取,限于篇幅,这里就不引见了。
  Winsock1.close关闭Winsock
  enDsuB
  到此为止,相信你已了解如何在VB中通过Winsock控件下载文件了。本程序在VB6.0、Win98环境运行正常,如果你还有什么问题,可到WWW.D1VB.com来,我们一起讨论。
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请点击举报
打开APP,阅读全文并永久保存 查看更多类似文章
猜你喜欢
类似文章
【热】打开小程序,算一算2024你的财运
Winsock建立socket连接注意点
在VB中使用Winsock 实现通信
VB6 通过winsock控件数组实现客户端和服务器多对一通信
VB Socket编程 框架
VB中利用Winsock实现断点续传
100项PPT制作技术
更多类似文章 >>
生活服务
热点新闻
分享 收藏 导长图 关注 下载文章
绑定账号成功
后续可登录账号畅享VIP特权!
如果VIP功能使用有故障,
可点击这里联系客服!

联系客服