【引用】URLDownloadToFile_VB下载文件!

最新推荐文章于 2020-01-01 18:21:35 发布
最新推荐文章于 2020-01-01 18:21:35 发布
阅读量830 收藏 5
点赞数 1
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/miaozk2006/article/details/82416844
版权
该博客介绍了VB中如何使用URLDownloadToFile函数来下载文件，包括相关操作类的实现和迅雷下载地址的解密函数。同时推荐了VB FTP操作、画图工具实现、IP地址获取等其他VB编程相关文章。
摘要由CSDN通过智能技术生成
这些天，写一个小程序，要将某空间服务器上的内容下载到本机使用，开始想用winsock控件，但是因为本人天赋有限，搞不定，所幸在网上发现了这样一个API函数，这个函数可是令人惊叹的好用啊！  比起winsock来，好用多了！

VB中声明:
 程序代码
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long


调用方法：

 程序代码
dim Url as String, myFile As String  
Url=" http://www.blue-sun.cn/"  
Filepath="c:\test.txt"  
URLDownloadToFile(0&, Url, Filepath, 0&, 0&)  

相关文章参考：

※VB FTP操作类(可上传、下载、创建文件夹等等)

※VB 写下载者代码

※【引用】URLDownloadToFile_VB下载文件!

※vb一个使用URLDownloadToFile实现文件下载的类※

※VB 迅雷下载地址解密函数※


★VB部分相关文章推荐：★

※vb中line的用法[转

最低0.47元/天 解锁文章
miaozk2006
关注
  • 1
    点赞
  • 踩
  • 5
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
vb一个使用URLDownloadToFile实现文件下载的类
miaozk2006的专栏
04-02 2190
       一个使用URLDownloadToFile函数和IBindStatusCallback接口编写的文件下载类，类名称为URLDownFile。在复制以下代码之前，朋友们需要先先下载Edanmo编写的一个名为olelib.tlb的类型库文件，类的具体代码如下： Option Explicit Implements IBindStatusCallbackPublic ...
vb URLDownloadToFile下载函数
lbuskeep的专栏
06-17 3967
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As
VB使用URLDownloadToFile下载文件实例
05-11
这是一个用VB写的带回调函数的URLDownloadToFile下载源代码。
vb url下载文件
12-14
利用vb从网页上下载文件
vb调用URLDownloadToFile Api下载文件实例
06-25
vb调用URLDownloadToFile Api下载文件实例
VB6制作的远程程序更新程序,使用URLDownloadToFile函数,可以实现进度条显示,建议配合setup factory7使用
10-30
URLDownloadToFile函数下载远程文件,可以实现断点续传,通过progressbar也可以实现进度条显示,下载百分比,下载速度的显示,另外也包含读取,写入ini文件的源码..通过setup factory7的文件打包,实现了通过网络更新本地程序的功能,当然,前提是你需要一个iis服务器....
使用URLDownloadToFile函数实现文件下载（带下载进度）
08-26
vs2015MFC项目只要改成自己的下载地址，就可以实现文件下载。
URLDownloadToFile_visualbasic_
10-01
在VB（Visual Basic）编程环境中，`URLDownloadToFile`函数是一个非常实用的API，用于从互联网上下载文件到本地。这个函数是Windows操作系统内置的一部分，属于Wininet库，因此在VB程序中使用它时需要引入相关引用。...
为 URLDownloadToFile 实现进度条
热门推荐
kingsollyu的专栏
01-03 1万+
最近使用 MFC的CInternetSession类下载文件时遇到一些问题, CInternetSession::OpenUrl　这个方法在使用个别代理的网络环境或者网速慢得要死的情况下，它会抛一个连接超时的异常，虽然catch 这个异常可以避免runtime error ，但下载也中止了。不过MSDN中提到SetOption可以设置超时时间，结果很悲剧的一次又一次的依然超时，后来才看到网上说SetOption无法如帮助文档中说的那样可以设置超时时间是MS已经确认的bug了,官方的解决方案是使用winine
使用URLDownloadToFile下载URL文件
08-30
使用线程调用URLDownloadToFile下载URL文件，同时显示进度，可暂停下载，VS2010编译通过
VB.NET编程调用迅雷下载文件
05-03
首先确保电脑已经安装讯雷，打开VS.NET 点击菜单：项目->添加引用->COM->添加对ThunderAgent 1.0 Type Library的引用。
调用迅雷下载vb6.0
04-23
调用迅雷下载,是用visual basic6.0编写的调用迅雷下载的例子。
VB视频教程 下载链接（迅雷下载）
11-23
VB视频教程 下载链接 （请使用迅雷下载）
vb urldownloadtofile 下载 及 容易发生的问题
weixin_30810583的博客
12-28 581
　　这两天写自动升级程序,发现urldownloadtofile是个很好用的函数,只是,当我第二次下载的时候,发现它从缓存中下载这点比较烦人,找了一下午的资料,终于找到了解决的办法,现在把它写下来,希望能帮到有缘的人 '从网站下载文件 Public Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadTo...
URLDownloadToFile函数
yanfei的世界
04-03 1075
Downloads bits from the Internet and saves them to a file.            Syntax:HRESULT URLDownloadToFile(          LPUNKNOWN pCaller,    LPCTSTR szURL,    LPCTSTR szFileName,    DWORD dwRe
一个使用URLDownloadToFile实现文件下载的类
lyserver的专栏
05-16 5007
一个使用URLDownloadToFile函数和IBindStatusCallback接口编写的文件下载类，类名称为URLDownFile。在复制以下代码之前，朋友们需要先先下载Edanmo编写的一个名为olelib.tlb的类型库文件，类的具体代码如下：。Option ExplicitImplements IBindStatusCallbackPublic Event O
VBA自学应用（6）——URLDownloadToFile下载图片
一位VBA和JSA、书法爱好者
01-01 2969
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _ "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _ ByVal szFileName As String, ByVal dwReserved As Long, _ ByVal lpfn...
为 URLDownloadToFile 函数实现进度条
非常道的博客
06-27 4273
URLDownloadToFile这个函数，我一开始只是用它来下载配置文件，主要考虑到如果下载较大的文件这个函数会阻塞很长时间，全部下载完毕后才返回，而且无法显示下载进度，今天才知道自己火星了，人家的最后一个参数提供了相关的接口（以前看都不看直接传NULL），查了些资料总算搞清楚怎么用了，记录一下。 １。创建一个IBindStatusCallback的派生类，声明IBindStatusC
vb6实现下载带进度使用URLDownloadToFile函数实现文件下载（带下载进度）
最新发布
09-07
在Visual Basic 6.0中，使用`URLDownloadToFile`函数可以实现文件的下载功能。这个函数是Windows API的一部分，用于从指定的URL下载文件并保存到本地磁盘。为了实现带有下载进度的文件下载，我们需要结合其他技术来获取下载进度信息。 `URLDownloadToFile`函数本身并不提供下载进度的回调，因此要获取进度信息，可以采用以下方法： 1. **定时轮询法**：通过定时检查临时文件的大小来估算下载进度。这种方法简单，但可能存在一定的延迟和误差。 2. **使用HTTP头信息**：对于HTTP协议的下载，可以通过解析HTTP响应头中的`Content-Length`字段来计算下载进度，这需要能够接收和解析HTTP响应头。 3. **第三方库或工具**：使用支持进度回调的第三方下载库或工具，例如AxWebBrowser控件的`Navigate2`方法，可以通过事件获取下载进度。 下面是一个使用定时轮询法的示例代码，这个方法适用于多种类型的URL，但需要注意的是，对于非HTTP协议的下载，可能无法获取进度信息。 ```vb Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" ( _ ByVal pCaller As Long, _ ByVal szURL As String, _ ByVal szFileName As String, _ ByVal dwReserved As Long, _ ByVal lpfnCB As Long) As Long Private Sub DownloadFile(url As String, fileName As String) Dim hEvent As Long Dim result As Long Dim fileLength As Long Dim downloaded As Long Dim percent As Long Dim timeInterval As Long Dim timerID As Long ' 初始化下载进度 downloaded = 0 fileLength = 0 percent = 0 ' 设置定时器，例如每500毫秒触发一次检查 timeInterval = 500 timerID = SetTimer(0, 0, timeInterval, AddressOf UpdateProgress) ' 下载文件 result = URLDownloadToFile(0, url, fileName, 0, 0) ' 取消定时器 KillTimer 0, timerID End Sub Private Sub UpdateProgress(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal dwTime As Long) ' 更新下载进度的代码 ' 这里需要自己实现如何获取下载的当前字节和总字节数 ' 更新界面的进度条等组件 End Sub ``` 在上述代码中，`UpdateProgress`子程序需要根据实际情况实现，用于更新下载进度。由于VB6本身不具备直接获取下载进度的能力，需要用户根据具体情况，可能结合第三方库或API来实现此功能。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值