树结构图
TOP 10
  • 相关软件
    >用VB制作文件下载程序　创建者：webmaster　更新时间：2005-05-18 00:00

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

    　　在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


    [riVate suB Winsock1＿DataarriVal??ByVal 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、Win98 环境下运行正常，如果你还有什么问题，可到 WWW．D1VB．com来，我们一起讨论。    相关文章
    本页查看次数: