VB Winsock控件使用方法参考模板

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

2、Port属性：设置要连接的远端计算机端口（80为HttP21为ftP，25为smtP）；remoteHost 属性：设置用于标识远程计算机的名称（remotePort 属性如果为 80 则设置为“soHucom”或“sinacomcn”，如果为 25 则设置为“smtP21cncom”）；connect方法：要求连接到远程计算机；close方法：关闭连接；senDData方法：将数据发送给远程计算机；GetData方法：获取当前的数据块并将其存储在变体类型的变量中；connect事件：当一个connect操作完成时发生；close事件：当close操作完成时发生；DataarriVal事件：接

3、收数据时发生；下面我们就来实现文件的下载功能，并以下载搜狐网站的首页为例：oPtion ePlicitDim myall as strinGPriVate suB formloaD建立连接Winsock1Protocol0Winsock1remoteHost "soHucom如果想下载"新浪"首页，则换为 sinacomcnWinsock1remotePort 80Winsock1connect 开始提取数据enD suBPriVate suB Winsock1connectDim strcommanD as strinGDim strWeBPaGe as str

4、inGstrWeBPaGe "Http/WWWosHucom/" 指定网页，这里是指搜狐的首页strcommanD "Get " strWeBPaGe " HttP/10" VBcrlfstrcommanD strcommanD "accePt/" VBcrlfstrcommanD strcommanD "accePttet/Html" VBcrlfstrcommanD strcommanD VBcrlfWinsock1senDData strcommanD 发送命令end sub2 / 3ri

5、Vate suB Winsock1DataarriValByVal Bytestotal as lonG开始下载，收到数据时，发生DataarriVal事件on error resume netDim WebData as strinGWinsock1GetData WeBData VBstring myall myall WeBData 取得相关的网页文件enD suBPriVate suB Winsock1close 当下载完成时发生。自己定义相关的操作myall 是下载的网页，你可以把它显示在文本框中，也可把它保存为文件，也可通过一些自定义的函数进行信息的提取，限于篇幅，这里就不介绍了。Winsock1close 关闭 WinsockenD suB到此为止，相信你已了