下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
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
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2024厂房抵押借款合同范本
- 2024年零星工程施工合同书范本
- 2024年汽车内外饰件合作协议书
- 2024年无机酸项目合作计划书
- 2024代理合同通知书范文
- 2024年运载火箭电源系统项目合作计划书
- 第11课《记承天寺夜游》课件语文八年级上册
- 第17课《爱莲说》课件语文七年级下册
- Unit6Workquietly!PartALet'slearn(课件)人教PEP版英语五年级下册
- Unit9IlikemusicthatIcandancetoSectionB(2a2e)课件人教版九年级英语全册
- 人工智能(基础版)高职人工智能基础课程PPT完整全套教学课件
- 年产500万件电泳涂装及PVC喷胶项目环评影响报告
- 2023年06月齐鲁工业大学(山东省科学院)招聘工作人员(21名)笔试历年难、易错考点试题含答案详解
- 城市轨道交通票务管理PPT完整全套教学课件
- 2023年德国专利法中文版
- 急性胃肠炎病历(修订版)
- 时代与变革-为人生而艺术+教学设计高一上学期美术人美版(2019)美术鉴赏
- 理解性默写 课件69张-统编版高中语文选择性必修下册
- 2023年山东二造《建设工程计量与计价实务(安装)》知识点必练100题(含详解)
- GB/T 6488-2008液体化工产品折光率的测定(20℃)
- DB31-T 744-2022 智能电网储能系统并网装置测试技术规范
评论
0/150
提交评论