vb中多线程的实现

最新推荐文章于 2024-08-06 09:11:35 发布

benxie

最新推荐文章于 2024-08-06 09:11:35 发布

阅读量2.1k

点赞数

分类专栏： VB 文章标签：多线程 vb internet string integer textbox

本文链接：https://blog.csdn.net/benxie/article/details/80730

版权

本文介绍如何使用VB的Internet Transfer控件编写一个异步多线程下载程序，通过OpenURL或Execute方法实现高效下载。程序能判断是否需要重新下载文件，并在下载过程中调整链接以方便本地查阅。通过监控StateChanged事件来获取并处理数据。

摘要由CSDN通过智能技术生成

用VB编写异步多线程下载程序
作者：大庆油田有限公司勘探开发研究院网络室满孝
为了高效率地下载某站点的网页,我们可利用VB的Internet Transfer 控件编写自己的下载程序, Internet Transfer 控件支持超文本传输协议 (HTTP) 和文件传输协议 (FTP)，使用 Internet Transfer 控件可以通过 OpenURL 或 Execute 方法连接到任何使用这两个协议的站点并检索文件。本程序使用多个Internet Transfer 控件，使其同时下载某站点。并可判断文件是否已下载过或下载过的文件是否比服务器上当前的文件陈旧，以决定是否重新下载。所有下载的文件中的链接都做了调整，以便于本地查阅。
OpenURL 方法以同步方式传输数据。同步指的是传输操作未完成之前，不能执行其它过程。这样数据传输就必须在执行其它代码之前完成。
而 Execute 方法以异步方式传输数据。在调用 Execute 方法时，传输操作与其它过程无关。这样，在调用 Execute 方法后，在后台接收数据的同时可执行其它代码。
用 OpenURL 方法能够直接得到可保存到磁盘的数据流，或者直接在 TextBox 控件中阅览（如果数据是文本格式的）。而用 Execute 方法获取数据，则必须用 StateChanged 事件监视该控件的连接状态。当达到适当的状态时，调用 GetChunk 方法从控件的缓冲区获取数据。
　
首先，建立启始的http检索连接,
Public g As Variant
Public k As Variant
Public spath As String
Dim links() As String
g = 0
spath = 本地保存下载文件的路径
links(0)=启始URL
inet1.execute links(0)