VBWinsock控件使用方法.pdfVIP

用 VB 制作文件下载程序 2001-12-22 20:19 作者：出处： Yesky 责任编辑： 下载文件是每个网友都经常做的事，大家一般都是用一些专用 软件 如 网络“ 蚂蚁 ”来完 成。但是， 如果要自己编写一个 程序 ，实现下载一个特定的文件（如下载相关的 网页 并显示 出来）又该怎么做呢？不要急， 看了下面的介绍你就会知道实现文件的下载其实是很简单的。 在 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 是下载的网页，你可以把它显示在文本框中，也可把它保存为文件，也可通过一 些自定义的函数进行信息的提取，限于篇幅，