nba2kol自动防守:VB示例:用VB制造文件下载程序

来源：百度文库 编辑：偶看新闻 时间：2024/05/06 05:11:05
用VB制造文件下载程序
　　下载文件是每个网友都经常做的事，大家一般都是用一些专用软件如“网络蚂蚁”来完成。但是，如果要本人编写一个程序，实现下载一个特定的文件（如下载相关的网页并显示出来）又该怎么做呢？不要急，看了下面的引见你就会知道实现文件的下载其实是很简单的。
　　在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事件：接收数据时发生；
　　下面我们就来实现文件的下载功能，并以下载搜狐网站的首页为例：

oPtioneｘPlicit
DimmyallasstrinG
PriVatesuBform＿loaD
建立连接
Winsock1．Protocol＝0
Winsock1．remoteHost＝"soHu．com如果想下载"新浪"首页，则换为sina．com．cn
Winsock1．remotePort＝80
Winsock1．connect开始提取数据
enDsuB
PriVatesuBWinsock1＿connect
DimstrcommanDasstrinG
DimstrWeBPaGeasstrinG
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．senDDatastrcommanD发送命令
endsub

[riVatesuBWinsock1＿DataarriVal??ByValBytestotalaslonG

　　开始下载，收到数据时，发生DataarriVal事件

onerrorresumeneｘt
DimWebDataasstrinG
Winsock1．GetDataWeBDataVBstringmyall＝myall＋WeBData取得相关的网页文件
enDsuB
PriVatesuBWinsock1＿close当下载完成时发生。
　　本人定义相关的操做
　　myall是下载的网页，你能够把它显示在文本框中，也可把它保存为文件，也可通过一些自定义的函数进行消息的提取，限于篇幅，这里就不引见了。
　　Winsock1．close关闭Winsock
　　enDsuB
　　到此为止，相信你已了解如何在VB中通过Winsock控件下载文件了。本程序在VB6.0、Win98环境下运行正常，如果你还有什么问题，可到WWW．D1VB．com来，我们一起讨论。
vb程序如何生成文件 在VB中如何制作下载指定文件的程序 用VB编写程序 哪里有下载VB程序 怎样下载一个VB程序 谁能给几个asp.net（VB）的示例程序阿 用vb创建文件 程序VB！！！！！！！！！！！！！！！ vb程序？？？ 用vb怎样写一个搜索文件的程序 vb文件下载的问题 vb程序安装找不到文件怎么办? VB程序，关于EXCEL文件的操作 用VB编写数据库程序 用VB调用其它程序 VB程序，MSDN在何处下载 谁有VB程序下载网址 哪里有下载VB程序的 怎么样用VB删除文件？ 怎么写一个VB程序,让他能够从网站上下载一些文件? 在VB中，如何实现把文件拖到VB程序中，程序能自动打开 VB下载+VB源码下载 vb下载完解压哪个文件 谁能把vb中的示例应用程序Vbmail发给我 ？