翰文个人计算机学习网
  • 翰文快讯
  • 翰文PC快讯
  • 综合软件区
  • 操作系统
  • 注册表解析
  • Windows系列
  • Unix/Linux
  • 其他系统
  • 应用软件
  • 微软MS Office
  • WPS Office
  • 多媒体软件
  • 图像处理
  • Photoshop
  • Painter
  • Illustrator
  • CorelDRAW
  • 三维空间
  • AutoCAD
  • 3DMAX
  • 3DMAYA
  • 硬件资源
  • 攒机指南
  • 硬件超频
  • 维修指南
  • 网络资源
  • 在线通讯
  • 网上冲浪
  • 浏览器中心
  • 网络故障解析
  • 病毒资料
  • 病毒通报
  • 病毒防治
  • 病毒常识
  • 黑客技巧
  • SQL/MySQL
  • Oracle
  • Delphi
  • 编程资源
  •  C/C#/C++/VC++/VC.NET
  •  Basic/VB/VB.NET/VBScript
  •  FoxBasic/FoxPro/VF/VF.NET
  •  Java/JavaScript
  • PowerBuilder
  • 热门词:
  • 翰文计算机学习网首页
  • >
  • Basic/VB/VB.NET/VBScript
  • >
  • 用VB制作文件下载程序
  • 用VB制作文件下载程序

  • 资源来源:
  • HW-PCS.ORG
  • 资源作者:
  • 翰文计算机学习网
  • 人气指数:
  • [4195]
  •   下载文件是每个网友都经常做的事,大家一般都是用一些专用软件如“网络蚂蚁”来完成。但是,如果要自己编写一个程序,实现一个特定的文件(如相关的网页并显示出来)又该怎么做呢?不要急,看了下面的介绍你就会知道实现文件的其实是很简单的。

      在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来,我们一起讨论。

    感谢您对翰文计算机学习网的支持

  • 关于我们
  • 联系方式
  • 成功案例
  • 技术报价
  • RSS索引
  • 网站地图
  • 翰文电脑学习网
  • MSN:LNDDYGYC9@HOTMAIL.COM Powered by 翰文个人计算机学习网 版权所有,未经允许不得转载
    ICP备案号码:[沪ICP备12020678号] Copyright 2008-2020 HW-PCS.ORG, All Rights Reserved.