VBWinsock控件使用方法

1、用VB制作文件下载程序2001-12-22 20:19作者：出处：Ycsky责任编辑:下载文件是每个网友都经常做的事，大家一般都是用一些专用软件如“网络蚂蚊”来完 成。但是，如果要自己编写一个程序,实现下载一个特定的文件（如下载相关的亚并显示 出来）又该怎么做呢？不要急，看了下面的介绍你就会知道实现文件的下载其实是很简单的。在VB中有一个Winsock控件，通过它可以实现文件的下载。下面我首先介绍一下该 控件的主要属性、方法和事件：locaiPor属性：设晝本地计算机使用的瑞口（一般设直为0）;Protocol属性：设 Winsock控件使用的协议，tcP或uDP （般设宣为0）；rcmotc

2、Port属性：设直要连接的远端计算机端口（80为HttP 21为ftP, 25为smtP）；rcmotcHosl属性：设宣用于标识远程计算机的君称（rcmotcPort属性如果为80则设宣 为soHu. com或sina. com. cn,如果为 25 则设直为smtP. 21 cn. com”）； collect方法：要求连接到远程计算机；close方法：关闭连接；senDDaia方法：将数据发送给远程计算机；GciPaU方法：获取当前的数据块并将其存储在变体类型的变長中；connect事件：当一个connect操作完成时发生；close事件：当close操作完成时发生；OataarriVa

3、l事件：接收数据时发生；下面我们就来实现文件的下载功能，并以下载搜狐网站的首页为例：oPtion c x PlicitDim mvall as strinGJPriVatc suB form_loaD建立连接Winsock 1 Protocol = 0Winsock 1. rcmotcHost = soHu. com如果想下载新浪首页,则换为sina com. cnWinsock 1 remotePort = 80Winsock 1. connect开始提取数据enD suBPriVatc suB Winsock 1_connectDim strcommaiiD as strinGDim st

4、rWeBPaGe as strinGstrWeBPaGe = “Hitp/WWW. osHu. com/指定网页，这里是指搜狐的首页streommanD = MGctH + strWeBPaGe + n HttP/1 （）+ VBcrlFstreommanD = streommanD + MacccPt/n + VBcrlFstreommanD = streommanD + uacccPttc x t/Hlml + VBcrlfstreommanO = streommanD + VBcrlFWinsock 1 senDData streommanD 发送命令end subriVatc suB

5、Winsock 1_DataarriValByVai Bytcslolal as lonG开始下载，收到数据时，发生HataarriVal事件on error resume nc x tDim WcbData as svrinGWinsock 1 GciData WcBDala XBsvring myall = myall + WcBDala 取得相关的网页文件cnD suBPriVate suB Winsock 1_close 当下载完成时发生。自己定义相关的操作myall是下载的网页，你可以把它显示在文本框中，也可把它保存为文件，也可通过一 些自定义的函数进行信息的提取，限于篇幅，这里就不介绍了。Winsock 1 close 关闭 WinsockcnD suB到此为止，相信你巳丁解如何在VB